Word如何用VBA代码批量替换，把所有带下划线的文字前端添加“<good>”，后端添加“<yes>”？

Question

如图 ：“个人卫生”、“勤洗手”、“通风透气”等文字替换前有下划线。替换成：注意<good>个人卫生<yes>，做到<good>勤洗手<yes>；家中要常<good>通风透气<yes>，保持<good>干净整洁<yes>；做好<good>保暖<yes>，尽量不要受冻感冒。替换后可以有下划线，也可以没有下划线。<good>和<yes>是我随便举的例子，也可以替换成其他字符。

Answer 1

不用VBA，用通配符替换即可，教程如下：

追问

谢谢您的答案。
像这样用通配符替换的方式，需要每一次都在窗口里忙碌一番。
如果用VBA，把代码放到命令按钮里，每一次只需点一下按钮即可，省时省力，又不会出错。
我用录宏的方法录过这个过程，放在按钮里没法用。

追答

哦哦，明天我测试一下。你发代码给我

Answer 2

重点知识点:

要使用VBA宏对word进行操作，一定要指定当前document为对象。

参看以下宏，注意要复制到当前word文件名(ThisDocument)下面的模块中如图1

Sub myFind()

Dim MyRange

Set MyRange = ActiveDocument.Content '指定当前word所有内容

With MyRange.Find '以下操作针对上面指定的对象

.Font.Underline = wdUnderlineSingle

.Text = ""

.Replacement.Text = "<good>^&<yes>"

.Execute Replace:=wdReplaceAll

End With

End Sub

本回答被提问者采纳