[問題] 關於word巨集問題
有人會用word的巨集功能來達到取代格式的嗎?
問題是這樣子的,我想要用取代的方式,來達成格式(style)的轉換
像是原本是
1 XXXXXXXX
2 OOOOOOOO
3 ZZZZZZZZ
用取代功能後,可以轉變成
1 XXXXXXXX
2 OOOOOOOO
3 ZZZZZZZZ
不僅只是顏色的改變,而是改變的是以另外一種樣式(style)來取代
有試著用內建的去跑跑看...結果都是整行改變,而不是只有取代的改變
程式碼為:
For i = 1 To 5
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Style = ActiveDocument.Styles("自訂格式")
Selection.Find.Replacement.ParagraphFormat.Borders.Shadow = False
With Selection.Find
.Text = i & " "
.Replacement.Text = i & " "
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Next
這需要改哪個地方才能只針對特定字做格式改變?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 60.244.195.79
Office 近期熱門文章
PTT數位生活區 即時熱門文章