Word自带的注音功能给长篇文章自动注音

平时利用Word/Excel都可对汉字(中国汉字或日本汉字等)进行注音,这是一项office自带的功能。
但这个自带的功能对注音的范围非常有限,且效率不高,每次只能注三四十个汉字,而且必须手动点确定。这对于大量的注音工作极其不友好。
今天介绍一个简单的方法,利用几行代码,让word自动将整篇文章注音。

原理是word的宏功能,利用Word自身的注音向导,使用SendKeys方法模拟手工按确定键。注音以句为单位处理。

本文以word 2016为例介绍。


用Word打开你要注音的Word文档,点击“视图——宏——查看宏”或直接用快捷键“Alt+F8”

打开查看宏窗口,在“宏名”输入“zhuyin”再点击右侧的“创建”按钮。

在弹出的VB窗口中,将以下代码全部复制到对话框中

Sub AutoPhonetic()
''''''''''''''''''''''''''''''''''''''''''''''''''''
'putown.org
'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


注:将原有的代码全部覆盖。
然后再点击左上角的保存图标保存,关闭即可。
再次点击“视图——宏——查看宏”或直接用快捷键“Alt+F8”

在打开查看宏窗口点击右侧的“运行”即可。
现在word就开始自动帮你注音了,部分电脑可能会出现卡顿或者“为响应”的提示,不用管它,等待就行。
部分电脑第一次运行会弹出“拼音指南”窗口。只要点一次“确定”,就会自动运行代码了。

运行完后,会弹出“完成”窗口,点击关闭即可。
[v_blue]本功能不保证注音100%正确,因为拼音存在多音字,日语存在音读和训读的情况。结果仅供参考。部分版本word在遇到多读音时会弹出“拼音指南”窗口让你确认,确认完后点击确定,代码会自动接着运行。[/v_blue]

相关文章

Putown

Putown

so.putown.org 一站式搜索服务及工具

发表评论

邮箱地址不会被公开。 必填项已用*标注

微信扫一扫,分享到朋友圈

Word自带的注音功能给长篇文章自动注音
返回顶部

显示

忘记密码?

显示

显示

获取验证码

Close