word文档单词自动加音标的宏代码
来源:高中英语教学交流
发布时间:2012-11-04 10:41:00
查看次数:
word文档单词单词自动加音标的宏代码(注意****为修改的地方)
Sub GetPhonetic()
'必须有音标字体安装Kingsoft Phonetic Plain
'写在前面:您运行此程序前必须引用MSForms
'即VBE/工具/引用:Microsoft Forms 2.0 Object Library (C:\WINNT\system32\FM20.DLL)
'打开金山词霸,并使用显示在任务栏中,不是最小化系统托盘(启动栏)中!!(金山词霸/主菜单/
'设置/界面方案/其它/其它选项:任务栏图标,去勾)并关闭屏幕取词功能!
'将每个单词为一个段落,注意,本程序未加入单词拼写检查,可在WORD中拼写和语法检查中设置
Dim EwTxt As String, MyData As DataObject, CopyTxt As String, MyRange As Range
Dim Mystring() As String, aString As String, i As Paragraph, StartWrite As Long
On Error Resume Next
If Tasks.Exists("****此处填写金山词霸任务栏中显示的文字,如“金山词霸2007(暂停取词)”****") = False Then Exit Sub '如果未在任务栏中则关闭程序
Tasks("****此处填写金山词霸任务栏中显示的文字,如“金山词霸2007(暂停取词)”****").WindowState = wdWindowStateNormal '正常窗口
Set MyData = New DataObject '引用DataObject
Application.ScreenUpdating = False '关闭屏幕更新
With ActiveDocument
For Each i In .Paragraphs '在段落中循环
If Len(i.Range) = 1 Then GoTo GN '如果为空白段落则继续下一次
EwTxt = i.Range.Text '返回文本(单词)
StartWrite = i.Range.End - 1 '取得段落标记前的位置
Set MyRange = .Range(StartWrite, StartWrite) '取得段落标记前的插入点区域
Tasks("****此处填写金山词霸任务栏中显示的文字,如“金山词霸2007(暂停取词)”****").Activate '激活金山词霸应用程序,此处填写金山词霸任务栏的内容,如金山词霸2007
SendKeys EwTxt, True '发送单词
SendKeys "{TAB 2}", True '移动二次TAB
SendKeys "^c", True '复制
MyData.GetFromClipboard '从剪贴板复制数据到 DataObject
CopyTxt = MyData.GetText(1) '获得无格式文本
Mystring = VBA.Split(CopyTxt, vbCrLf) '返回一个数组
aString = Mystring(1) '取得数组中的第二个值,也就是音标
MyRange.InsertAfter " " & aString '在插入点处插入音标
'设置该区域的音标字体
.Range(StartWrite + 2, i.Range.End - 2).Font.Name = "Kingsoft Phonetic Plain"
GN: Next
Application.ScreenUpdating = True '恢复屏幕更新工作
Tasks(VBA.Replace(.Name, ".doc", "")).Activate '激活WORD文档
'提示
MsgBox "自动音标标注工作已经结束!", vbInformation + vbOKOnly, "Microsoft Word"
End With
End Sub
- 相关文章
- ·在Word里用通配符实现特殊替换05-09·让Windows XP自动登录的三种方法09-14·多列数据区域转换成一列VBA代码03-05·JS 自动答题脚本07-01·如何在excel中统计各分数段人数?03-12·Word高级替换技巧03-05·sql server 删除大量数据时超时11-09·如何压缩word?10-19·Word轻松排版四步曲 08-30
- 最新文章
- ·十秒免工具激活windows 1002-25·批量替换word文档中的第一行作为文件的文件名06-21·连接打印机时需要输入用户名密码怎么办?05-15·免魔法使用 New Bing 新方案03-18·Win10电脑账号密码设置、修改、取消12-06·[亲测有效]excel批量修改文件名10-29·Excel随机生成区间数值06-23
- 阅读排行
- ·如何让试题的ABCD选项对齐04-13·word排版技巧整理08-02·word 如何自动生成目录08-02·不同电脑文件字体改变了的解决方法12-15·Excel 进行学生成绩统计分析03-13·我的电脑图标不见了,怎么找回来!09-14·Win10电脑的一些安装提示12-03·Excel如何批量插入分页符02-12·Word高级替换技巧03-05·制作Word2003选择性粘贴快捷键07-09
点击这里识别二维码关注公众号