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

Sub test()

n = 0ActiveDocument.ActiveWindow.View.ShowHiddenText = TrueFor Each i In ActiveDocument.CharactersIf i.Font.Hidden = True Thenn = n + 1

i.Delete

End IfNextMsgBox 共删除隐藏字符 & n & 个

End Sub