英翻馬其頓文

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

Word 的 "代替" 功能不僅可以幫天成翻譯公司們把找到的文字取代為指定的文字翻譯社 還可以把找到的文字改花式翻譯社 如改色彩、大小......等等翻譯有位朋友用 "錄製巨集" 把如許的動作錄下來, 卻發現錄下的巨集不會改文字的花樣, 為什麼呢?

.Replacement.Font.ColorIndex = wdBlue    '字型色彩:藍色
.Replacement.Font.Size = 14    '字型巨細:14

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