VBA快速修改word文档中特定文字格式的方法

1、打开文档，如下图所示，我们需要把这段文字中所有的文本“大象”修改为楷体并加粗。

2、同时按下fn和F11键打开如下图所示的VBA编辑界面。

3、鼠标双击左侧如下图所示的“thisdocument”，右侧弹出VBA编辑器。

4、输入一段代码“

Sub lkyy()
Dim doc As Document
Set doc = ActiveDocument
With doc.Content.Find
    .Text = "大象"
    With .Replacement
        .Font.Name = "楷体"
        .Font.Bold = True
    End With
    .Execute Replace:=wdReplaceAll
End With
End Sub”。

5、鼠标移动到上方，点击如下图所示的三角形运行按钮。

6、鼠标继续点击如下图所示的左边的word图标回到word编辑界面，可以看到文档中的所有文本“大象”都已经修改为了指定的格式了，如下图所示。