Word 的 "取代" 功能不僅可以幫我們把找到的文字取代為指定的文字, 還可以把找到的文字改格式, 如改顏色、大小......等等。有位朋友用 "錄製巨集" 把這樣的動作錄下來, 卻發現錄下的巨集不會改文字的格式, 為什麼呢?

我研究了一番, 原來, 錄下來的程式碼會像這樣:

Sub 巨集10()
'
' 巨集10 巨集
' 巨集錄製於 2009/3/2，錄製者 BigHead
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "xxx"
.Replacement.Text = "yyy"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

若要改顏色、改大小就需在 With Selection.Find ...... End With 之間添加底下這樣兩句:

.Replacement.Font.ColorIndex = wdBlue    '字型顏色:藍色
.Replacement.Font.Size = 14    '字型大小:14

這應該是 Word 的 bug 吧?! (註: 我是用 2003 版測的)