Question

word vba 删除文档中的隐藏文字

word中含有大量隐藏文字，用VBA如何编写宏来批量删除隐藏文字
（统一段落中既有隐藏文字也有非隐藏文字），请把代码发出来，如果有宏以外的切实可行的办法，也可以采纳。

Answer 1

Sub test()

n = 0
ActiveDocument.ActiveWindow.View.ShowHiddenText = True
For Each i In ActiveDocument.Characters
If i.Font.Hidden = True Then
n = n + 1

i.Delete

End If
Next
MsgBox "共删除隐藏字符" & n & "个"

End Sub