正則表達式但保持字體格式？

Question

Previously I asked for help with a word VBA macro regex。

這樣做的時候有沒有辦法維護字體格式？

Answer 1

不是很優雅，但是這不是你想要的（或者你的意思是你想用一個'0'代替整個內容）？

Sub Macro1() 
    Selection.Find.ClearFormatting 
    Selection.Find.Replacement.ClearFormatting 
    With Selection.Find 
     .Text = "^$*" 
     .Replacement.Text = "0" 
     .Forward = True 
     .Wrap = wdFindContinue 
     .Format = False 
     .MatchCase = False 
     .MatchWholeWord = False 
     .MatchWildcards = False 
     .MatchSoundsLike = False 
     .MatchAllWordForms = False 
    End With 
    Selection.Find.Execute Replace:=wdReplaceAll 
End Sub