返回目录：word文档
简介：
平时利用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