提供一個(gè)方案給樓主參考，可以批量修改多個(gè)文檔中某個(gè)指定文字的屬性：
1、啟動(dòng)Word后，鍵入Alt+F11打開VBA編輯窗口；
2、選擇菜單“插入->模塊”，然后在代碼編輯區(qū)中粘貼如下代碼：
Option Explicit
Const g_strRootPath = c:\Docs\ ' 指定存放所有文件的目錄，可以有子目錄
Const g_strTextToFind = 茶 ' 需要批量查找修改格式的文字內(nèi)容
Dim g_oTargetFont As New Font
' 主函數(shù)
Sub Main()
Dim fso, oFolder
' 設(shè)置需要修改的字體屬性
g_oTargetFont.Size = 18 ' 字號(hào)
g_oTargetFont.Color = wdColorRed ' 顏色
g_oTargetFont.Bold = True ' 是否加粗（True加粗，F(xiàn)alse正常）
g_oTargetFont.Italic = True ' 是否斜體（True斜體，F(xiàn)alse正常）
g_oTargetFont.Underline = wdUnderlineDash ' 下劃線風(fēng)格
'... 設(shè)置其他字體屬性
Set fso = CreateObject(Scripting.FileSystemObject)
Set oFolder = fso.GetFolder(g_strRootPath)
ChangeFontStyleForFilesUnderFolder fso, oFolder
MsgBox 完成！
End Sub
' 修改指定文件夾（遞歸）下面的所有Word文件中指定文字的格式
Sub ChangeFontStyleForFilesUnderFolder(fso, oFolder)
Dim oSubFolder, oFile
For Each oSubFolder In oFolder.SubFolders
ChangeFontStyleForFilesUnderFolder fso, oSubFolder
Next
For Each oFile In oFolder.Files
Documents.Open oFile.Path
ChangeFontStyleForActiveDocument
ActiveDocument.Close True
Next
End Sub
' 修改當(dāng)前打開文檔里面所有指定文字的格式
Sub ChangeFontStyleForActiveDocument()
Selection.StartOf wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = g_strTextToFind
.Replacement.Text = ^&
.Replacement.Font = g_oTargetFont
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
3、修改代碼開始處的兩個(gè)參數(shù)：存放所有需要批量修改文檔的根目錄（下面可以包含子目錄，比如“C:\Docs”），需要修改的文字（比如“茶”字，也可以是一個(gè)詞或者句子）；
4、修改“主函數(shù)”里面想要設(shè)置的字體屬性，如字號(hào)、顏色、加粗、斜體、下劃線，等等；
4、鍵入F5運(yùn)行，直到看到“完成！”。
5、檢查各個(gè)文檔里面指定的文字是否已經(jīng)被設(shè)置成了指定的格式。
