word批量注拼音 使用系统的拼音指南工具

Sub AddPinyinToneMarks()
    Dim fw As Range

Dim aimWord

Dim i As Long

Set fw = Selection.Range

If fw.Start = fw.End Then Set fw = ActiveDocument.Range

ScreenUpdating = False

On Error Resume Next

For Each aimWord In fw.Characters

If aimWord Like "[一-龥]" Then

aimWord.Select

SendKeys "{tab 1}", 2
SendKeys "+{s}", 2
SendKeys "{up 7}", 2
SendKeys "{enter}", 2
SendKeys "{enter}", 100

Application.Run macroname:="FormatPhoneticGuide"

i = i + 1

End If

Next

ScreenUpdating = True

ActiveDocument.Range(fw.Start, fw.Start).Select

MsgBox "已完成对【" & i & "个】汉字加拼音。"

Set fw = Nothing

End Sub