Word中清除拼音信息

Word的拼音指南功能，一次只能处理一小段文字，可以用下面的宏批量操作。

Sub DeletePinYin()

  For i = 0 To ActiveDocument.Content.End
    Set aRange = ActiveDocument.Content
    With aRange
      .Start = i
      .End = i + 1
      .PhoneticGuide ""
    End With
  Next
End Sub