因为不熟悉word宏命令，所以把这个任务分成三部分。首先，了解光标移动命令；第二，了解添加拼音的命令；第三，对排版做一些美化调整。

首先，它并不复杂。只需录制一个宏，移动光标，就可以清楚地看到移动指令。

选择。MoveRightunit:=wdCharacter，Count:=1，Extend:=wdExtend

接下来，我简单浏览了msdn中的选择对象和一些移动前缀的方法，对一些移动指令有了初步的了解。

其次，我右击菜单，在自定义菜单中找到了“拼音标准”对应的命令FormatPhoneticGuide，并以此为关键词进行搜索，很快就得到了宏中使用的简单调用方法，但我觉得这种方法不科学，如果有软件处理响应时间跟不上，很容易崩溃，但又找不到更好的方法：

按键' {enter} '，2 '模拟键盘输入，2是等待时间，因为后面调用了标有拼音的对话框，需要几秒钟才能把回车键信息正确发送给它。其实数值越大越安全，但是等待时间过长会影响程序的运行效率。我觉得这个方法不太好，但是找不到FormatPhoneticGuide的其他信息，所以就用这个笨方法！申请。runmacroname :=' formatponeticguide '

第三，为了让带拼音的字容易阅读，我决定在每个字之间加一个空格。否则拼音会挤在一起，拼的时候会把孩子搞糊涂。这很简单。要录制宏，只需单击键盘箭头并向右移动，然后点击空格。这个动作可以在程序中循环。

add拼音的宏写得很快，我一步一个脚印，没有任何意外，效果还不错，直接上了结果图。喜欢的朋友也可以看看完整的宏代码。

代码如下：复制内容子地址拼音()

作者Author:MissileCat日期：20140410版本33601.0.0

添加拼音宏

将注音符号添加到完整的单词文本/p p dim t将计数作为整数

将字符串形式的字符串变暗

一样长

将色调调成整数/p p

选择。整个故事

选择。文本

文本长度=选择。字符，计数

t开始=1/p t处理计数=0/p p选择。GoTo What:=wdGoToHeading，其中：=wdGoToAbsolute，count :=1/p p p Selection。MoveRight unit:=wdCharacter，Count:=1，Extend:=wdExtend

选择。GoTo What:=wdGoToHeading，其中：=wdGoToAbsolute，Count:=1

对于丁特环=1至丁特环长度

选择。move right(unit :=wdCharacter，Count:=1，Extend:=wdExtend)

右(选择。文本，1)

如果AscW(tstrCharA) 255和AscW(tstrCharA) -255，那么

如果t处理计数为0，则

tintA=Len(选择。文本)

发送密钥“{enter}”，2

申请。运行宏名称=' FormatPhoneticGuide '

选择。MoveRight unit:=wdCharacter，count :=tintA/p p t处理计数=0/p p p结束If

其他

tintreating count=tintreating count 1

如果…就会结束

“Next/p p”为每个单词添加一个空格。

选择。GoTo What:=wdGoToHeading，其中：=wdGoToAbsolute，Count:=1/p p 'Selection。home key unit :=wdStory/p p p For tint loopx=1 To tint textlength

选择。MoveRight unit:=wdCharacter，Count:=1

选择。键入Text Text:=' '

然后

MsgBox“任务已成功完成”

. range . PhoneticGuide text :=' l uu, alignment :=_

wdphonetguidelinealignmentnetwoone，Raise:=15，FontSize:=8，FontName _

:=' '