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编辑界面，可以看到文档中的所有文本“大象”都已经修改为了指定的格式了，如下图所示。