使用VBA根据文本样式(颜色/字体/字号)进行定位并追加内容

需求说明

一个doc文档中有大量的特殊样式文本,使用相同的样式黑体,三号(16),红色(RGB:255 0 0),现在需要将这些特殊样式的文本都是使用#符号包围起来,如下图所示:

VBA代码实现

Sub batchEdit()
'
' 批量根据样式修改文本内容

'
With Selection.Find.Font
    .NameFarEast = "黑体"
    .Size = 16
    .Color = RGB(255, 0, 0)
End With

With Selection.Find
.Text = ""  ' 不指定要查找的文本内容,只按照样式搜索
.Replacement.Text = "#^&#"  ' 使用^&表示原文本内容
.Format = True  ' 设置按照样式进行搜索
End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub