利用WORD_VBA编程实现批量制作艺术字桌签_王克波.pdf

SECRETARYS COMPANION秘书之友2023年第2期一、设计思路桌签作为会议必备物品，具有规范座次的作用。于成志1等利用 WORD 软件中的邮件合并功能，实现了批量制作单一方向桌签的目的。汪忠军2利用 WORD 单元格中的文字方向功能，形成背向的两行竖向文字以便打印成桌签。办公室作为会议主管部门，承担着参会人员桌签的制作工作，为确保桌签长度一致，目前桌签均采用艺术字形式，这种方式最大的好处是长度和高度固定，打印出来的桌签观赏性强。但艺术字无法与EXCEL 表实现邮件合并，使用过程中由工作人员修改前后两个桌签名称，打印一次，再修改，再打印，如此反复，极大增加了办公室人员的劳动强度，浪费了办公室人员的时间。为了减少打印桌签的重复劳动，笔者充分利用 WORD的 VBA 功能 3，以及 EXCEL的 自 动 计 算 功 能，通 过 在WORD 中编写 VBA 代码，实现了快速批量生成艺术字桌签的功能。本次设计分三部分：一是桌签模板的建立，二是EXCEL 姓名源数据的建立，三是 WORD 中 VBA 编程。笔者在工作目录中建立了三个文件：桌签模板，桌签明细，并表桌签。“桌签模板”用于建立艺术字桌签样式，并实现上下显示，以便打印后对折使用。其中“桌签明细”为EXCEL 文件，其功能是实现少于三字时中间自动补空格，利 用 WORD VBA 编 程实现批量制作艺术字桌签王克波马晨臣办公自动化的特点和作用；材料 2 是讲“谐乐剧组”的经验就是利用“两微一端”，创新剧组；材料3-5 讲微传播在传播内容、方式、受众、监管等方面存在的问题；材料 6 介绍了 L 县旅游市场存在的问题（负面新闻）和造成的不良影响；材料 7 讲微传播要传递正能量。经过前面两轮三个步骤的材料阅读后，考生就可以开始进入申论题目的正式作答环节了，这时需要考生依照申论题目顺次作答。为了找准每一题的作答要点，考生需要对申论材料进行第三轮第四步阅读，即结合每道题的题干要求，有针对性地快速回读对应材料，以印证核对每个申论题目的作答要点。综上，虽然掌握“三四三四”申论考试给定材料阅读方法，在一定程度上能帮助考生又快又好地作答申论题目，但是，随着近年来申论考试的变化，考生除了掌握这个有效阅读技巧之外，还需要注重平时的综合人文素养积累，关心时事政治，养成正确的申论思维，这样才可能获得高分。参考文献：1 2启政国家公务员录用考试命题研究中心.国家公务员录用考试专用教材:申论 M.北京：中共党史出版社，2019：3.3肖飞.今天的思维和播种决定了未来的收获2022 年国家公务员考试申论A卷简析 J.应用写作，2022（7）：2.4安徽中公教育.2020 安徽公务员考试申论试题（B）EB/OL.2021-03-06（2022-11-24）.http:/ 年广西公务员考试申论真题及答案 EB/OL.2014-04-11.（2022-11-24）.http:/www.gjgwy.org.6 施熙灿.国外（地区）水价概况中国水价改革研讨会专家讲座 R.北京:清华大学，2002.7中国教育在线.2013 年福建省公务员考试 申论 真题及答案 EB/OL.2013-04-13.（2022-11-24）.http:/.8公考通.2018 广西公务员考试申论试题（B 类）EB/OL.2018-04-15.（2022-11-24）.http:/www.chinagwy.org.（作者单位：北部湾大学教育学院）46SECRETARYS COMPANIONSECRETARYS COMPANION2023年第2期秘书之友并统计需要打印的桌签数量。“并 表 桌 签”为 最 终 根 据EXCEL 表明细生成的桌签，可以直接连接打印机打印，也可进行个别内容的修改。工作方法是设定自动循环，循环次数是“桌签明细”中的数量（EXCEL 中自动计算），每次循环均调用新名称替换“桌签模板”中的内容，然后把“桌签模板”中的内容复制，粘贴到“并表桌签”文件中，依次循环即可生成完整的“并表桌签”，实现一次EXCEL 录入，批量输出的目的。二、桌签模板与桌签明细建立过程（一）桌签模板的建立过程首先通过页面设置，设定桌签页面为 A5 纵向模式（各单位所用桌签大小，可根据需要调整）。在 WORD 的功能区点击“插入”选项，选择“艺术字”按钮，选择模式为“艺术字样式 8”。如图 1 所示。选择艺术字的阴影效果为“无阴影”。如图 2 所示。艺术字的位置设定为“顶端居中，四周型文字环绕”。如图 3 所示。复制一份艺术字，然后将一份下移到中间偏下位置，点选上边的艺术字，选择“格式”中的“旋转”，点击两次“向右旋转 90”（如图 4 所示），并移动上边的艺术字到指定位置，达到桌签高度美观的目的。调整艺术字字体为“楷体”，其他选择默认值，在第一页后插入分页符。制作完成的 WORD 桌签模板如图 5 所示。（二）桌签明细建立过程将“桌签明细.xlsx”的 A列 确 定 为“姓 名（输 入 数据）”，B 列设置为“姓名模板”，C1 用于统计所输入姓名的数量（如图 6 所示）。“姓名模板”专用于处理姓名少于三个字的人名，处理方式是在中间加两个空格。B2 及其他 B 列单元格是为了显示的美观，其中的代码是：“=IF（LEN(A2）3,MID（A2，1，1）&REPT（，2）&MID（A2，2，1），A2）”C1 单元格用于统计需要打印的姓名数量，其中的代码是：“=COUNTA（A:A）”三、WORD VBA 的编程与代码运行在 WORD 的功能区点击“开发工具”选项，其中就有Visual Basic 按钮，单击即可打开 WORD 中的“VBA 窗口”（如图 7 所示）。（一）更改艺术字过程Sub 更 改 艺 术 字 过 程(outprint)实现“桌签模板”中桌签内容替换为 OUTPRINT。Dim a As ShapeFor Each a In ActiveDocu图 1艺术字样式 8 的位置图 2艺术字设置为“无阴影”图 3 艺术字位置设定图 4 艺术字向右旋转所在位置办公自动化47SECRETARYS COMPANION秘书之友2023年第2期ment.ShapesIf a.Type=15 Thena.Selecta.TextEffect.Text=outprintEnd IfNextEnd Sub（二）艺术字批量制作桌签过程Sub 艺术字批量制作桌签过程()Set sht=GetObject（,excel.application）.activesheetsumprnt=sht.Cells（1，3）For i=2 To sumprnt 启动循环，从第二行至非空最大行 Windows（桌签模板.doc 兼容模式）.Activate更改艺术字过程（sht.Cells（i，2）Selection.WholeStorySelection.CopyWindows（并表桌签.doc 兼容模式）.ActivateSelection.PasteAndFormat（wdPasteDefault）Next iEnd Sub（三）代码运行点击运行“艺术字批量制作桌签过程”宏后，即可在“并表桌签.doc”中形成所需要的桌签，如图 8 所示。代码运行时，“桌签明细”“桌签模板”“并表桌签”三个文件应同时打开，以免出现错误。四、结语该艺术字桌签 VBA 代码运行可靠，操作简便，通过多次使用，所形成的艺术字桌签端庄大气，可以实现多页桌签一次生成、批量输出的目的，避免了办公室工作人员一次只改一个名称再打印的重复性劳动，提高了办公室人员的劳动效率，真正实现了将办公室人员从重复性工作中解放出来的目的。参考文献：1于成志，张旭红.会议桌签的制作 J.秘书，2015（08）:27-29.2汪忠军.不用裁剪巧制会议桌签 J.电脑爱好者，2012（09）:65.3何振娟，王玮，刘海，龚小燕，刘小欣，汪新杰，纵翔宇.EXCEL 中 VBA及 WORD 邮件合并功能在批量处理报表中的应用 J.电脑知识与技术，2021，17（06）:212-214.4 张文晓.基于 VBA 实现 Excel和 Word 之间的数据传递 J.电脑知识与技术，2019，15（08）:201-204.（作者单位：山东特种工业集团有限公司）图 6所建立的桌签明细 EXCEL 文件图 5WORD 艺术字桌签模板图 7WORD 中 VBA 的启动位置图 8根据桌签明细生成的艺术字桌签办公自动化48