有時候一篇文章時給小朋友或者中文初學(xué)者看的，那么怎樣給整篇文章每個字批量添加拼音標(biāo)注呢？下面小編就來教一下大家。
由于對word宏命令不太熟悉，我將個任務(wù)分解為三部分，第一，了解光標(biāo)的移動指令；第二，了解加拼音的命令；第三，對排版進(jìn)行一些美化調(diào)整。
第一點，并不復(fù)雜，簡單錄制一個宏，移動一下光標(biāo)，就很清楚地看到移動的指令了。
Selection.MoveRightunit:=wdCharacter,Count:=1,Extend:=wdExtend
接下來，我在msdn簡單瀏覽了一下selection對象以及一些move前綴的方法，初步了解了一些移動的指令。
第二點，我右鍵點了下菜單，在自定義菜單中找了“拼音標(biāo)準(zhǔn)”對應(yīng)的命令FormatPhoneticGuide，以此為關(guān)鍵字進(jìn)行搜索，很快就得到了在宏中使用的簡單調(diào)用方法，但這個方法我覺得不科學(xué)，如果有軟件處理響應(yīng)時間跟不上，很容易就會崩潰，但沒找到更好的方法：
SendKeys"{enter}",2‘模擬鍵盤輸入，2是等待時間，因為加拼音標(biāo)注的對話框調(diào)用在后面，為了正確向它發(fā)出回車鍵信息，要等幾秒，事實上這個值越大越安全，但等待時間太長會影響程序的運行效率，這個方法我認(rèn)為不太好，但沒有找到FormatPhoneticGuide的其它信息，也就將就使用這個笨方法了！Application.RunMacroName:="FormatPhoneticGuide"
第三點，為了讓加了拼音后的文字容易閱讀，我決定每個字之間都加上一個空格，否則的話，拼音全擠在一起，會令小孩在拼讀時迷惑，這相當(dāng)簡單，錄制一個宏，就按一下鍵盤箭頭右移動，然后打個空格就好了，在程序中可以將這個動作循環(huán)一下。
Addpinyin的宏很快就寫好，我一句句單步了一下，沒有什么意外，效果還不錯，直接上結(jié)果圖。喜歡的朋友可以也可以看看完整的宏代碼。
Author:MissileCat Date:20140410 version:1.0.0
為一篇完整的word文字加上標(biāo)音標(biāo)注</p> <p> Dim tintTreatingCount As Integer
Dim tstrCharA As String
Dim tlngCurPos As Long
Dim tintA As Integer</p> <p>
Selection.WholeStory
tstrText = Selection.Text
tintTextLength = Selection.Characters.Count
tintlinestart = 1</p> <p> tintTreatingCount = 0</p> <p> Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1</p> <p> Selection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1
For tintloopx = 1 To tintTextLength
tlngCurPos = Selection.MoveRight(unit:=wdCharacter, Count:=1, Extend:=wdExtend)
tstrCharA = Right(Selection.Text, 1)
If AscW(tstrCharA) < 255 And AscW(tstrCharA) > -255 Then
If tintTreatingCount > 0 Then
tintA = Len(Selection.Text)
SendKeys "{enter}", 2
Application.Run MacroName:="FormatPhoneticGuide"
Selection.MoveRight unit:=wdCharacter, Count:=tintA</p> <p> tintTreatingCount = 0</p> <p> End If
Else
tintTreatingCount = tintTreatingCount + 1
End If
Next</p> <p> '為每個字都加上空格
Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1</p> <p> 'Selection.HomeKey unit:=wdStory</p> <p> For tintloopx = 1 To tintTextLength
Selection.MoveRight unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" "
Next
MsgBox "任務(wù)成功完成"
' .Range.PhoneticGuide Text:="lǐ", Alignment:= _
' wdPhoneticGuideAlignmentOneTwoOne, Raise:=15, FontSize:=8, FontName _
' :="宋體"
End Sub
現(xiàn)在再來看文章是不是每個字都標(biāo)注上拼音啦！
喜歡 
頂
難過
囧
圍觀
無聊
