word 2010中,我想一次性去掉整篇文章的注音,请问如何操作呢?

2025-03-05 04:30:00
推荐回答(2个)
回答1:

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

回答2:

  1. 选择全文,剪切,编辑菜单-选择性粘贴-无格式文本

  2. 查找:\([a-ɡ]@\)
    替换为:不填
    勾选“使用通配符”,全部替换