Word中的一个简单而实用的宏(用它可方便地编排数学公式和上下标)
11-08 12:37:21软件技巧
浏览次数:986次
标签:软件技巧大全,http://www.duosi8.com
Word中的一个简单而实用的宏(用它可方便地编排数学公式和上下标),
本人在实际工作中编写了一个简单而又实用的宏,命名为REP,在编排带上标或下标的变量、有特殊符号的数学公式和化学式中使用它可节省很多时间。比如在一篇文章中多次出现方程式:X-Y2+Z3=B,在录入文章时,先用简单的字符如xyzb代替该方程式,文章录入完毕后,只要用公式编辑器(Equation Editor)编辑好一个方程式:X=Y2+Z3=B,并将之剪切(EditCut)送到剪切板(Clipboard)上,然后运行宏REP(Alt+OM,选定REP宏,选择“运行”),这时在屏幕中央将出现一对话框,提示要输入要替换的字符串,这里输入“xyzb”,按确定钮后将自动进行搜索和替换,完成后出现一信息框,提示已经完成,并在屏幕下方的状态栏上显示共有多少处被替换。按确定钮后,光标回到文件开始处。文章中所有的字符串“xyzb”都被替换成X=Y2+Z3=B。对于带上标或下标的变量、有特殊符号的数学公式和化学式的方法相同。只要利用宏编辑器将文章后所附的REP宏清单输入即可使用。使用REP宏有两个前提条件:第一要确保“调整Word for Windows一般设置”(Alt+OO,在分类栏内选择“一般”)中的选项“用输入替换选定内容”为选中状态;第二在运行宏之前要确保剪切板中的内容为您所需要的已经编排好的带上标或下标的变量、有特殊符号的数学公式或化学式。
[附]宏REP源程序清单如下:('后为注释)
Sub MAIN
Count=0 '替换次数计数置零
StartOfDocument '从文件首开始
Search$=InputBox$("输入要替换的字符串?") '提示输入,并赋给Search$
EditFind.Find=Search$,MatchByte=1,MatchCase=1,Direction=2,Format=0 '搜索字符串Search$,区分大小写,向文件后,忽略文本格式
EditPaste '粘贴
While EditFindFound() '如果未到文件尾,继续搜索
Count=Count+1 '计数加1
EditFind.Find=Search$,.MatchByte=1,.MatchCase=1,.Direction=2,.Format=0
EditPaste
Wend '搜索完后结束循环
Beep '扬声器发声,提示结束
Print "共有";Count;"处的字符串被替换。" '显示更换的次数
MsgBox "替换完毕!","A Replace Macro",48 '运行结束信息框
StartOfDocument 回到文件首
End Sub
(北京 凌斌)
本人在实际工作中编写了一个简单而又实用的宏,命名为REP,在编排带上标或下标的变量、有特殊符号的数学公式和化学式中使用它可节省很多时间。比如在一篇文章中多次出现方程式:X-Y2+Z3=B,在录入文章时,先用简单的字符如xyzb代替该方程式,文章录入完毕后,只要用公式编辑器(Equation Editor)编辑好一个方程式:X=Y2+Z3=B,并将之剪切(EditCut)送到剪切板(Clipboard)上,然后运行宏REP(Alt+OM,选定REP宏,选择“运行”),这时在屏幕中央将出现一对话框,提示要输入要替换的字符串,这里输入“xyzb”,按确定钮后将自动进行搜索和替换,完成后出现一信息框,提示已经完成,并在屏幕下方的状态栏上显示共有多少处被替换。按确定钮后,光标回到文件开始处。文章中所有的字符串“xyzb”都被替换成X=Y2+Z3=B。对于带上标或下标的变量、有特殊符号的数学公式和化学式的方法相同。只要利用宏编辑器将文章后所附的REP宏清单输入即可使用。使用REP宏有两个前提条件:第一要确保“调整Word for Windows一般设置”(Alt+OO,在分类栏内选择“一般”)中的选项“用输入替换选定内容”为选中状态;第二在运行宏之前要确保剪切板中的内容为您所需要的已经编排好的带上标或下标的变量、有特殊符号的数学公式或化学式。
[附]宏REP源程序清单如下:('后为注释)
Sub MAIN
Count=0 '替换次数计数置零
StartOfDocument '从文件首开始
Search$=InputBox$("输入要替换的字符串?") '提示输入,并赋给Search$
EditFind.Find=Search$,MatchByte=1,MatchCase=1,Direction=2,Format=0 '搜索字符串Search$,区分大小写,向文件后,忽略文本格式
EditPaste '粘贴
While EditFindFound() '如果未到文件尾,继续搜索
Count=Count+1 '计数加1
EditFind.Find=Search$,.MatchByte=1,.MatchCase=1,.Direction=2,.Format=0
EditPaste
Wend '搜索完后结束循环
Beep '扬声器发声,提示结束
Print "共有";Count;"处的字符串被替换。" '显示更换的次数
MsgBox "替换完毕!","A Replace Macro",48 '运行结束信息框
StartOfDocument 回到文件首
End Sub
(北京 凌斌)
,Word中的一个简单而实用的宏(用它可方便地编排数学公式和上下标)
- ·上一篇:Windows通用对话框与COMMDLG.DLL
- ·下一篇:怎样用360浏览器截图
《Word中的一个简单而实用的宏(用它可方便地编排数学公式和上下标)》相关文章
- › word打开出错,启动提示出错 删除Normal.dot文件
- › 如何在WORD中调用AutoCAD的图形
- › pdf格式转换为word?怎么才能把pdf英文格式的文件转换成中文文件
- › Word里的图片复制到Photoshop里为啥出现了色阶?
- › Word、Excel无法正常复制粘贴2则
- › Word 2007按小数点对齐数字2则
- › 用Word转换中文简体和繁体的方法
- › 用中文WORD整理PROTEL电路设计资料
- › word 插入图表
- › Word文档变绿无法打开等2则
- › Word 2007中关闭“微软拼音”等4则
- › 在Word 6.0中文版中实现文本稿纸格式输出
- 在百度中搜索相关文章:Word中的一个简单而实用的宏(用它可方便地编排数学公式和上下标)
热门推荐
- · 为何QQ总弹出安全登录验证2则
- · 多媒体升级时常见故障的处理
- · 利用硬盘驱动器号制作防扩散FOXPRO程序
- · 高速视频转换借力CUDA
- · 在KMPlayer中手动切换解码器
- · 如何突破IP加MAC绑定
- · 如何让ACDSee成为默认的图片浏览器
- · SnagIt连续抓以多个窗口
- · SnagIt直接截取灰度图片
- · Nero快速制作精美的光盘封面
- · 完美卸载XP快速卸载顽固软件
- · VoptXP测试驱动器性能
- · VirturlDriver让虚拟光驱开机时自动加载
- · 通过递归调用来搜索文件
- · AutoCAD复制粘贴图纸导致死机
- · 监控软件导致QQ无法登录
- · 提高WindowsXP启动速度的方法
- · Office 2007无法正常卸载怎么办
- · 如何用批处理一次建立或删除多个目录
- · 教你Windows百毒不侵的13个妙招
- · ATI显卡在线看电影时花屏应该如何解决