How to use QM's regular expression to replace text in word

[Start_Learning]

3.VBA：（Find replacement format）

With ActiveDocument.Content.Find
.ClearFormatting
.Font.Bold = True
With .Replacement
.ClearFormatting
.Font.Bold = False
End With
.Execute FindText:="", ReplaceWith:="", _
Format:=True, Replace:=wdReplaceAll
End With

Macro Find and Replace 3

Code:

Copy      Help

exe 1

typelib Word {00020905-0000-0000-C000-000000000046} 8.0
Word.Application app._getactive
app.ActiveDocument.Content.Find.ClearFormatting()
app.ActiveDocument.Content.Find.Font.Bold=1
app.ActiveDocument.Content.Find.Replacement.ClearFormatting()
app.ActiveDocument.Content.Find.Replacement.Font.Bold=0
app.ActiveDocument.Content.Find.Replacement.Text = replaceStr
VARIANT vFindText = "hi"
VARIANT vReplaceWith= "hello"
VARIANT vFormat=1
VARIANT vReplaceAll=Word.wdReplaceAll
app.ActiveDocument.Content.Find.Execute(vFindText @ @ @ @ @ @ @ vFormat vReplaceWith vReplaceAll)
app.ActiveDocument.Save