起舞

关键词：

这个宏用来在文档中查找（可替换）相应的字眼，并设置字体，颜色等，如加粗文档中所有特定的的词语等。

MS官方文档只能替换查找到的第一个单词，这个宏可以查找替换全部相的字词。

Sub 批量替换字体格式()

Dim mypath, myfile, wApp

Dim i As Integer

Dim findword As String

Dim myStoryRange As Range

findword = "查找的字词"

'选择目录

With Application.FileDialog(msoFileDialogFolderPicker)

    If .Show = False Then Exit Sub

    mypath = .SelectedItems(1) & ""

End With

myfile = Dir(mypath & "*.doc*")

On Error GoTo ERROR1

'循环打开文档

Do While myfile <> ""

    Set wApp = CreateObject("word.application")

    wApp.Visible = True

    With wApp

        '打开word

        .Documents.Open mypath & myfile

        '批量替换字体颜色为白色

        Do

            .Selection.Find.ClearFormatting

            .Selection.Find.Replacement.ClearFormatting

            With .Selection.Find

                .Text = findword

                .Replacement.Text = ""

                .Forward = True

                .Wrap = wdFindContinue

                .Format = True

                .MatchCase = False

                .MatchWholeWord = False

                .MatchByte = False

                .MatchAllWordForms = False

                .MatchSoundsLike = False

                .MatchWildcards = True

            End With

            .Selection.Find.Execute

            If .Selection.Font.Name = "黑体" Then

                Exit Do

            End If

            .Selection.Font.Name = "黑体"

            .Selection.Font.Color = RGB(255, 255, 255)

        Loop

     '保存并退出

        .ActiveDocument.Save

        .Quit

    End With

    Set wApp = Nothing

    myfile = Dir

Loop

Exit Sub

ERROR1:

wApp.Application.Quit

End Sub