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

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

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

 

排版助手的流程讲解：

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

For Each para In Selection.Paragraphs
...
Next

For 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