给WORD批量添加拼音

word中的拼音指南功能默认的每次最多只能给30个汉字添加拼音，如果上百上千汉字，根本不实用。

所以需要另辟蹊径，首先在每个字的后面添加一个空格（因为添加拼音以后，拼音可能会挨的太近导致粘连视觉效果不好，我个人觉得，所以我一般都是每个字后面先添加一个空格。）

使用该帖子的 方法：想给Word中每个文字后面添加一个空格，两种方法轻松解决 (baidu.com)

第二种方法就是通过通配符来实现。通过Ctrl+H快捷键调出替换窗格，在上面输入“?”，在下面输入“^& ”  [注意，^& 的后面有一个空格哦]，然后在更多里面点选“通配符”，确定就可以了，记得下面的通配符一定要勾选，否则是不起作用的哦！

 然后使用  教师媒体工作者实用小功能，word批量添加拼音_哔哩哔哩_bilibili

这帖子提供的方法即可

Sub 清除拼音()
    charNum = ActiveDocument.Characters.Count
    For i = 1 To charNum
       ActiveDocument.Characters(i).PhoneticGuide Text:="", Alignment:=wdPhoneticGuideAlignmentOneTwoOne, Raise:=11, FontSize:=8, FontName:="MS Gothic"
    Next
    MsgBox "完成"
End Sub
Sub 根据单词添加拼音()
'    Application.ScreenUpdating = False '不显示宏刷新
    WdNum = ActiveDocument.Words.Count
    For num = WdNum To 1 Step -1
        sel = ActiveDocument.Words(num)
        If Left(sel, 1) Like "[一-龥]" Then
            ActiveDocument.Words(num).Select
            SendKeys "{enter}", 4
            Application.Run MacroName:="FormatPhoneticGuide"
        End If
    Next num
'    Application.ScreenUpdating = True
    MsgBox "完成"
End Sub
Sub 拼音样式()
    num = ActiveDocument.fields.Count
    For wor = 1 To num
        myString = ActiveDocument.fields(wor).Code
        myString = Right(myString, Len(myString) - InStrRev(myString, "("))
        pinyin = Left(myString, InStr(myString, ")") - 1)
        ActiveDocument.fields(wor).Select
        Selection.Range.PhoneticGuide Text:=pinyin, _
        Alignment:=wdPhoneticGuideAlignmentCenter, _
        Raise:=12, _
        FontSize:=10
    Next
    MsgBox "完成"
End Sub