如何调用添加拼音功能

Question

在Office Word 2010中能添加拼音注释(开始->拼音指南)，但问题是，即便是全选全文的情况下，它也只会对开头的几行添加拼音。目前要对有两千多页的文档进行全文拼音注释添加，每一行是一条单独的记录，手工处理显然太 劳模。
在其他网站上有了解可以用MsVB编写宏来实现自动处理。想问下该如何实现。

Answer 1

网上搜索下个拼音字体,然后word打开,直接把字体换成拼音就行了.

Answer 2

libralibra 谢谢提醒。
有指定用Word的拼音库

Answer 3

打开录制宏
选第一行，进行添加拼音功能。
关闭录制宏按alt+F11，查看宏代码，
修改宏代码，加个循环，循环所有的段落数，一段执行一次。
好在你的一段就是一行。爽。改完了运行一下宏，世界清静了。

Answer 4

回VanSoft：
谢谢回复。那样录制所得到的宏，如：    Selection.MoveRight Unit:=wdCharacter, Count:=4, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    With Selection
        .Start = 0
        .End = 3
        .Range.PhoneticGuide Text:="shì", Alignment:= _
            wdPhoneticGuideAlignmentOneTwoOne, Raise:=9, FontSize:=5, FontName:= _
            "宋体"
    End With在这里，"是" 所对应的拼音已经获得-即，"shì",问题的核心是，如何调用Word的拼音控件以返回输入对应的拼音注释。

Answer 5

已经知道如下代码可以弹出拼音注释窗口:
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
aLine = Selection.Text
'MsgBox aLineDim pinyinDialog As Dialog
Set pinyinDialog = Dialogs(Word.WdWordDialog.wdDialogPhoneticGuide)
pinyinDialog.Execute
但当尝试使用Handler实现 在弹出后，自动产生一个 回车 按键信息 时，编译提示子过程未定义，代码如下:Sub InsertPinyin()Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
aLine = Selection.Text
'MsgBox aLineDim pinyinDialog As Dialog
Set pinyinDialog = Dialogs(Word.WdWordDialog.wdDialogPhoneticGuide)AddHandler pinyinDialog.Ev_Event, AddressOf EventHandler
pinyinDialog.Execute
End SubSub EventHandler()
 SendKeys "{ENTER}"
End Sub有人知道怎么处理吗?

Answer 6

如果看会VBA编程就很容易了

Answer 7

AddHandler pinyinDialog.Ev_Event, AddressOf EventHandler
改为
pinyinDialog.Display
试试。
删除：
Sub EventHandler()
 SendKeys "{ENTER}"
End Sub