回复: 用 VBA 添加 XML 代码
用下面这个代码基本实现了所需要的功能。在我自己win7和word2007 上测试成功。不过加入的XML代码,后面部分还有高亮,不知道如何去除,请教李亮。
Sub addCoding()
Dim b, e As Boolean
For Each aPara In ActiveDocument.Paragraphs
b = True
e = False
For Each aChar In aPara.Range.Characters
If aChar.HighlightColorIndex = wdBrightGreen...