【VBA】如何在WORD文件的每个自动序号后修改字符

要想将文章中所有的：

1）实例文字

替换为

1）#示例文字

可以使用VBA来进行操作。

1. 保存一份源文档的副本。VBA的修改是难以撤销的。也可以先复制一部分出来到新文档进行试验。

2. 打开 Word 文档。

3. 按下 "Alt" + "F11" 打开 Visual Basic for Applications (VBA) 编辑器。

4. 在 VBA 编辑器中，点击"插入(Insert)"，然后选择"模块(Module)"。

5. 添加对 Microsoft VBScript Regular Expressions 的引用。在 VBA 编辑器中，选择 "工具" 菜单，然后选择 "引用"。在弹出的对话框中找到并勾选 "Microsoft VBScript Regular Expressions"，点击 "确定"。（重要！没有这一步可能运行正则表达式会出错）

6. 在新建的模块中粘贴以下宏代码：

Sub IdentifyNumberedParagraphs()
    Dim doc As Document
    Set doc = ActiveDocument
    
    Dim para As Paragraph
    Dim listFormat As ListFormat
    Dim isNumbered As Boolean
    
    ' 遍历文档中的每个段落
    For Each para In doc.Paragraphs
        ' 获取段落的ListFormat对象
        Set listFormat = para.Range.ListFormat
        
        ' 判断段落是否为自动编号
        isNumbered = False
        If listFormat.ListType <> WdListType.wdListNoNumbering And Not listFormat.ListTemplate Is Nothing Then
            isNumbered = True
        End If
        
        ' 判断编号格式是否为 "1)"
        If isNumbered Then
            Dim numberPattern As String
            numberPattern = "^\d+\)"
            Dim regex As Object
            Set regex = CreateObject("VBScript.RegExp")
            
            ' 设置正则表达式参数
            regex.Pattern = numberPattern
            regex.IgnoreCase = True
            
            ' 进行匹配
            Dim match As Object
            Set match = regex.Execute(listFormat.ListString)
            
            ' 输出结果
            If match.Count > 0 Then
                para.Range.InsertBefore "#"
            End If

        End If
    Next para
End Sub

5. 关闭 VBA 编辑器。

6. 运行宏：按下 "Alt" + "F8" 打开宏对话框，在列表中选择 "AddTextAfterHeadings" 宏，然后点击 "运行(Run)" 按钮。