Word 如何一次性完成整篇日语文章的注音？

我用拼音指南给日语文章注音，一次只能注一小段。如果是一片很长的文章，总不能一点一点弄下去把？有什么好办法呢？

使用Word宏调用自带的注音功能自动注音 2011-05-18 20:43:12| 分类： 电脑基础 | 标签：word 汉字注音 vba sendkeys |字号大中小 订阅

简介：
平时利用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

温馨提示：内容为网友见解，仅供参考

当前网址：https://22.t2y.org/zz/fi6s2hsts.html