公式编辑器高级指南

1、公式编辑器高级指南 MSOffice“公式编辑器”是DesignScience（）设计的mathtype的简化版本，用它可以十分方便地录入、编排各种数学公式及一些简单的化学公式。其操作直观简单，即使是初学者也能够很容易掌握，是编写科技论文的好帮手。由于工作的需要，笔者经常需要录入、修改大量的数学公式，为了尽可能地提高工作效率，不得不对公式编辑器进行了一番仔细研究，总结了几点心得体会，希望与经常使用公式编辑器的朋友们交流。设计的MathType的简化版本，用它可以十分方便地录入、编排各种数学公式及一些简单的化学公式。其操作直观简单，即使是初学者也能够很

2、容易掌握，是编写科技论文的好帮手。由于工作的需要，笔者经常需要录入、修改大量的数学公式，为了尽可能地提高工作效率，不得不对公式编辑器进行了一番仔细研究，总结了几点心得体会，希望与经常使用公式编辑器的朋友们交流。1.MathType简介MathType是“公式编辑器”的功能强大而全面的版本。如果要经常在文档中编排各种复杂的数学、化学公式，则MathType是非常合适的选择。MathType用法与“公式编辑器”一样简单易学，而且其额外的功能使您的工作更快捷，文档更美观。MathType包括：（1）Euclid字体设置了几百个数学符号。（2）具有应用于几何、化学及其他方面的新样板和符号。（3）专业的

3、颜色支持。（4）为全球广域网创建公式。（5）将输出公式译成其他语言（例如：TeX、AMS-TeX、LaTeX、MathML及自定义语言）的翻译器。（6）用于公式编号、格式设置及转换MicrosoftWord文档的专用命令。（7）可自定义的工具栏，可容纳最近使用过的几百个符号、表达式和公式。（8）可自定义的键盘快捷键。MathType的共享版可以从如下地址下载：/sort.php?class=Other&softclass=Math。2.公式编辑器的常用技巧（1）修改公式编辑器提示窗口显示次数。对于经常录入大量数学公式的朋友来说，最讨厌的就是公式

4、编辑器的提示：每当用户使用了若干次公式编辑器后，就会有一个公式编辑器提示对话框弹出来，问你是否想了解有关“数学类型”的详细内容，如图1所示。若不选择“不再显示此信息”，则弹出间隔为100次；若选择“不再显示此信息”，则弹出间隔为500次，非常烦人。经过多次的研究，笔者发现该对话框虽然无法禁止，但可以延长其发作间隔：将500次延长为32767次。修改方法如下：图1公式编辑器的提示打开注册表，找到表项：HKEY_CURRENT_USERSoftwareMicrosoftEquationEditor3.0OptionsGeneral将MTUpgradeDialog的数值改为32767。（2）用VBA

5、控制文档中的公式。总的来说，用VBA控制公式编辑器不太容易，特别是公式编辑器中的数据。下面几个小例子以Office2000提供的公式编辑器3.01为例展示了控制公式编辑器的几种方法，希望能给对VBA感兴趣的同行一点启发。例1：逐个打开文档中已有公式Sub编辑公式()查找并编辑公式OnErrorResumeNext若有错误，执行下一条语句Num_EQ=False是否包含公式判断文档中是否包含公式，若包含则进行编辑整理，否则退出退程序Fornum=1ToActivedocument.InlineShapes.Counts=Activedocument.InlineShapes(num).OLEFo

6、rmat.ClassTypeIfs=Equation.3ThenNum_EQ=TrueExitFor包含公式，退出循环EndIfNextnumIfNotNum_EQThen没有公式，退出子程序ExitSubEndIfSearch:开始查找inlineshap对象，包括公式、图形，等等Selection.Find.ClearFormattingWithSelection.Find.Text=g.Replacement.Text=.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.M

7、atchByte=False.MatchAllWordForms=False.MatchSoundsLike=False.MatchWildcards=TrueEndWithSelection.Find.ExecuteIfSelection.InlineShapes(1).OLEFormat.ClassType=Equation.3Then如果是公式Selection.InlineShapes(1).OLEFormat.DoVerbVerbIndex:=1打开公式编辑器ElseGoToSearch若不是公式，继续查找EndIfEndSub例2：公式转换，将文档中的字母符号公式转换为公式对象Su

8、b公式转换()Selection.CutSelection.InlineShapes.AddOLEObjectClassType:=Equation.3,FileName:=_,LinkTofile:=False,DisplayAsIcon:=FalseSendKeys%SendKeysRIGHTdowndowndowndownenterEndSub例3：向文档中插入新公式Sub插入公式()插入新公式Selection.InlineShapes.AddOLEObjectClassType:=Equation.3,LinkTofile:=_False,DisplayAsIcon:=FalseEn

9、dSub例4：整理公式，即将公式“过一遍”，使其重新应用定义好的样式尺寸Sub整理公式()自动整理公式格式OnErrorResumeNext若有错误，执行下一条语句Num_EQ=False是否包含公式判断文档中是否包含公式，若包含则进行编辑整理，否则退出退程序Fornum=1ToActivedocument.InlineShapes.Counts=Activedocument.InlineShapes(num).OLEFormat.ClassTypeIfs=Equation.3ThenNum_EQ=TrueExitFor包含公式，退出循环EndIfNextnumIfNotNum_EQThen没

10、有公式，退出子程序ExitSubEndIfSearch:开始查找inlineshap对象，包括公式、图形，等等Selection.Find.ClearFormattingWithSelection.Find.Text=g.Replacement.Text=.Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchByte=False.MatchAllWordForms=False.MatchSoundsLike=False.MatchWildcards=TrueEndWith

11、Selection.Find.ExecuteIfSelection.InlineShapes(1).OLEFormat.ClassType=Equation.3Then如果是公式Selection.InlineShapes(1).OLEFormat.DoVerbVerbIndex:=1打开公式编辑器IfTasks.Exists(公式编辑器)=TrueThen如果打开了公式编辑器，则激活WithTasks(公式编辑器).Activate.WindowState=wdWindowStateNormalEndWithSendKeys%,True发送推出指令SendKeysDOWN,TrueSendK

12、eysDOWN,TrueSendKeysENTER,TrueEndIfElseGoToSearch若不是公式，继续查找EndIfEndSub例5：放大、缩小公式（也可用于行内图形）Sub缩小图形()h=Selection.InlineShapes(1).Heightw=Selection.InlineShapes(1).WidthSelection.InlineShapes(1).Width=w*0.99Selection.InlineShapes(1).ScaleHeight=Selection.InlineShapes(1).ScaleWidthEndSubSub放大图形()h=Selec

13、tion.InlineShapes(1).Heightw=Selection.InlineShapes(1).WidthSelection.InlineShapes(1).Width=w*1.01Selection.InlineShapes(1).ScaleHeight=Selection.InlineShapes(1).ScaleWidthEndSub上述几个例子若配合快捷键使用，会大大提高处理公式的效率。但用VBA处理公式毕竟功能有限，若希望能更全面地用程序控制公式，需要使用MathType。3.化学反应式、化学结构式的编排用公式编辑器可以编排化学反应式和化学结构式，已经有人进行了这方面的尝试，但笔者认为，由于公式编辑器本身的局限性，用它来排化学反应式和化学结构式实在很勉强，且效率低下。在这方面，MathType要比公式编辑器更胜一筹。其实，如果要经常编排化学反应式和化学结构式，如Visio，Smart