小秘书的福音——使用Word VBA打造自动排版工具

本人办公室的秘书一枚。公文处理是我的日常，公文排版是我最基础的工作之一。文字排版其实是件无聊的工作，字体，字号、行距被规定得死死的，我们的工作就是识别，然后去设置。然而，这种机械式重复工作，做不得几下就腻了，我决定借助工具的辅助，帮我快速的完成工作。

经过一番折腾，终于做出了这一版，效果是这样的：

排版助手的流程讲解：

一、遍历选区内的每一个段落、或者直接遍历全部文档：

For Each para In Selection.Paragraphs
...
NextFor Each para In ActiveDocument.Paragraphs
...
next

二、使用正则表达式，寻找文章中各个元素的特征（大标题、一级标题、二级标题），记录他的长度，得出它的位置，然后设置它的字体。如：

Dim RegEx一级标题, Matches一级标题 As Object
Set RegEx一级标题 = CreateObject("vbscript.regexp")
RegEx一级标题.Pattern = "^[一二三四五六七八九十]{1,3}、[^。,，]+[,，、]?[^。,，]+\s*(。|$)"For Each para In Selection.ParagraphsIf Matches一级标题.Count > 0 Thenstrlen = Len(Matches一级标题.Item(0).Value)ActiveDocument.Range(Start:=para.Range.Start, End:=para.Range.Start + strlen).Font.Name = "黑体"end if
next

三、以上代码就是这个排版助手的知识核心。其中，最重要的部分，就是正则表达式的编写。它定义了你认为的“一级标题”应该是什么样子。比如我的这个匹配的模式：

"^[一二三四五六七八九十]{1,3}、[^。,，]+[,，、]?[^。,，]+\s*(。|$)"

能够匹配以“一、”开头，中间有一个或者没有逗号，结尾为句号或者设么都没有的情况：

一、会议说明（匹配）

二、参会人员。XXX，OOO、YYY（匹配）

三、会议强调，要严格执行党内法规，坚持把纪律规矩摆在前面。（不匹配，因为有2个逗号）

四、结束语

第一次在CSDN上分享我自己的小知识。自己原来是学计算机的，但是工作后，在办公室做了秘书，技术荒废了好久。但是，转念一想，自己既然是学计算机的，为什么不用自己的电脑技术，为实际的工作提供助力呢？

Word软件无疑是世界上使用最广泛的软件之一，它功能强大，但是并不是每一个人都能掌握。据我观察，普通文员掌握程度最多20%，甚至大多数文员，连手动排版都觉得困难。这是一个超级工具遍布各个角落的时代，人与人之间的差距，很大程度上，就是掌握复杂工具的能力之间的差距。

今天这个工具，看起来只有小小几段代码，但是对一个需要每天都对公文进行排版的文员，绝对是炸弹级别的助手。如果你正好是公务员、政府两办的朋友，绝对要透彻的研究一下。

小秘书的福音——使用Word VBA打造自动排版工具相关推荐

建模数据科学家的福音：MIT系特征自动构造工具今日发布
Root 编译整理自TechCrunch & Feature Labs 量子位报道 | 公众号 QbitAI 建模数据科学家的活难度很大. 得洞察big data背后的本质,从海量复杂的原始 ...
Word VBA 宏 Bookmarks 报错5828 错误的书签名称解决办法
问题描述: 在用 Word VBA 编写自动添加书签的宏时,出现以下错误: 代码: Sub AddBookmark(prefix As String)Selection.HomeKey Unit:=w ...
电脑word在哪_word是什么？小学生：单词，大学生：论文排版工具
word是什么,对于不同人会有不同的理解,它可能只是一个单词,它也可能是一个排版工具.今天就以我自己的经历给大家讲述一下,人生的不同阶段,word分别是什么. 一.小学阶段,好像是一个单词我们那个时 ...
打造智能的“电话小秘书”：搜狗号码通新功能解读
打造智能的"电话小秘书":搜狗号码通新功能解读文/王易见前不久搜狗推出的一款名为"号码通"的手机软件引发了用户的强烈反响,这款产品凭借强大的"防骚 ...
使用koa2+wechaty打造个人微信小秘书
前言开篇连连问? 你是不是有闲置的微信号? 你想不想有个小秘书定时提醒你将要做的事情? 你是否为忘记一些纪念日而懊恼? 你是否加班到很晚,而忘记了今天和别人有约? 你是不是下班还记得拿快递,到家后才 ...
C#开发纽曼来电小秘书总结（指南）
最近帮别人开发纽曼来电小秘书,小踩了几个坑,在此与大家分享,给大家排排雷坑1. 文档不够详细,函数不全,更没有介入流程介绍,总之就是一个大坑. EnableCard()CheckLine(Line: ...
Word VBA 常用语句
原文地址:Word VBA 常用语句作者:cathay 转帖:从n多地方google出来的......... '定制模块行为 '(1)强制对模块内所有变量进行声明 Option Explicit ...
word vba高效排版范例应用_收藏 | 原来word里面也有函数！
Word里面的rand"函数" 可以在文档中快速生成文本,小伙伴在Word中练习排版时,可以用虚拟文本来练习排版.在任意位置输入=rand()必须为英文半角,按[Enter]键,就 ...
QQ空间小秘书 V1.70 Beta1 ~~ 天空原创软件
软件名字:QQ空间小秘书 V1.70 Beta1 软件介绍: 这是一款QQ空间辅助软件,也是一款互踩必备工具,您无需进入对方的QQ空间,就可以快速的给对方留言和日志评论,再也不用忍受访问慢的烦恼,而且 ...
word vba 打开弹出msgbox，每隔10秒刷新一次域值。
word vba 打开弹出msgbox,每隔10秒刷新一次域值. Option Explicit'Private WithEvents WdApp As Word.Application'Public ...

小秘书的福音——使用Word VBA打造自动排版工具

小秘书的福音——使用Word VBA打造自动排版工具相关推荐

最新文章

热门文章