批量替换word中带格式的文本/高亮文本

Sub 替换word中带格式的文本()
  Set 范围 = ThisDocument.Content
  范围.Find.Font.Bold = True         '找粗体
  范围.Find.Text = "123"             '找字符为123
  范围.Find.Replacement.Font.Bold = False       '替换为非粗体
  范围.Find.Replacement.Text = "456"            '替换字符为456
  替换 = 范围.Find.Execute(Format:=True, Replace:=wdReplaceAll)    '执行替换
End Sub

Sub 高亮文本()
  Set 范围 = ThisDocument.Content
  范围.Find.Text = "孙兴华"                  '查找文本
  范围.Find.Replacement.Highlight = True    ' 替换为高亮
  范围.Find.Execute Replace:=wdReplaceAll   ' 执行替换
End Sub