回复: 用 VBA 添加 XML 代码
Sub addCoding()
'已经解决取消高亮问题
Dim b, e As Boolean
For Each aPara In ActiveDocument.Paragraphs
e = False
For Each aChar In aPara.Range.Characters
If aChar.HighlightColorIndex = wdBrightGreen Then
aChar.HighlightColorIndex = wdNoHighlight
If b Then
aChar.InsertBefore...