riosoq5f7a70@outlook.com

• Mar 15 Thu 2018 19:01

• [WordVBA]巨集裡的代替不克不及改文字色彩?

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

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 的 bug 吧?! (註: 我是用 2003 版測的)

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