簡介：

平時利用Word/Excel都可對漢字（中國漢字或日本漢字等）進行注音,這是一項自帶的功能。

但手動調出對話方塊時，注音範圍受限，且效率不高。

今天恰巧需要處理一個文件，但簡單地寫了下面宏。實現了自動將整篇文章注音。

原理是利用Word自身的注音嚮導，使用SendKeys方法模擬手工按確定鍵。注音以句為單位處理。

個人在Office 2007上針對日語測試正常。

匯入方法：

用Word開啟你要注音的Word文件，按ALT+F11,在調出的VBE視窗中新增模組，複製以下程式碼儲存後。關閉VBE視窗。

使用選單欄中的宏對話方塊，選中 AutoPhonetic執行即可。

注意事項：

1.執行過程中內容量大的話，螢幕會狂閃。完成時會彈出通知對話方塊。

2.不要使用單步執行，單步執行無法讓SendKeys正常實現。

VBA程式碼：

Sub

AutoPhonetic()

""""""""""""""""""""""""""""""""""""""""""""""""""""

"History

Description

"20110518 yilliam.blog.163.com

"

Add Phonetic for Kan-ji in

Word

""""""""""""""""""""""""""""""""""""""""""""""""""""

Dim

rngCurrent As Range

Dim EnterKey As String

On Error Resume

Next

Application.ScreenUpdating = False

EnterKey =

"{Enter}"

For Each rngCurrent In

ActiveDocument.Sentences

rngCurrent.Select

SendKeys

EnterKey, False

Dialogs(wdDialogPhoneticGuide).Show

Next

Set rngCurrent = Nothing

Application.ScreenUpdating =

True

MsgBox prompt:="Finished!", Buttons:=vbOKOnly + vbInformation,

Title:="Notice"

End Sub