不用其他软件在Word中输入化学方程式

1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流不用其他软件在Word中输入化学方程式.精品文档.我本来想写个有些代入感的开头，不过我好像不太适合写这种，那就直奔主题吧。这篇文章是用来教人如何在仅使用Word的情况下输化学方程式的。我自己用的是Word2010，但是在03、07里都能实现。我做文档有个习惯，能用Word自身功能实现的，就不用外接的软件，如果能用打字的方式实现就不用画图的方式，当然像MathType这样又小又能让我很懒的除外。第一个问题：长等号。这东西太常见了，没这个就不叫化学“方程式”了。以前在学校写论文的时候可以偷点懒，就打一个“=”应付了事，但毕竟不是正途。那要怎么打呢

2、？先打五个“=”。选中后依次是“字体”=>“高级”=>“字符间距”=>“间距”=>“紧缩”使用前：=使用后：=效果还可以，不是么？打印出来的效果也不错，根本看不出来是一堆“=”拼出来的。当然你要是嫌短可以再多来几个“=”。第二个问题：反应条件。化学方程式之所以麻烦，有一个原因就是那五花八门的反应条件。当然，以前我都是用的MathType，这次我也挑战一下，不用那个能不能打出来。长等号还是像刚才一样，但是下面就有点意思了。不少人可能都知道，Word里有个给语文老师用的东西：拼音指南。效果就是把拼音字母缩小后放到字的上方。你想到什么了没？那么，比如说反应条件是“高温”吧。使

3、用前：=一定要选上“组合”和“居中”。字号什么的可以调大些，我这里懒一下吧。当然，预览里看着还是不错的。结果：第三个问题：反应条件和催化剂。这让人更头痛了。然而这个问题是会者不难，难者不会。我们在上一个问题中的结果修改下就行。这里，我们要用到Word中很重要的一个功能域。使用前：右键点击，选择“切换域代码”显示出来这样一串字符（注意：用的时候要用Ctrl+F9插入域，自己打的大括号是没用的）： EQ * jc0 * "Font:Calibri" * hps10 o(sup 9(高温),=)我来说明一下：（1）EQ是域名，说明这是一个公式域；（2）* jc0，这个我不清楚，但

4、可以很定的是，它和后面的“* hps10”是连锁的，而且仅当在实现类似拼音标注的过程中才有用，也就是说，在这个例子中，这两个代码都是可以删除的。（而后经过验证可知，删掉这两个代码后，这个域可以将你在其中设置的文字格式原汁原味地显示出来，你在代码里把字号调到多少，它就会显示出多大。）（3）* "Font:Calibri"：这是字体，不用我多说吧？而且也可以删掉。（4）* hps10：这是标注的文字大小，仅在“第三个问题”中有效，调到1620均可。可删掉。（5）o(sup 9(高温),=：这段才是戏肉，有个up，结果是后面的字符在等号上面显示，那么想要让字符在下方显示是不是要再

5、加上个down呢？（事实上do就行）up后面那个数字经验证可知是“高温”和“=”之间的距离，那么接下来就好办了。于是，改写后的代码如下： EQ o(sup 9(MnO2（这是五号字）),sdown 7(高温（这是六号字）),=)切换回去看一下吧：把注释去掉的话效果还可以，字号的大小可以任意设置，还是比较方便的。第四个问题：化学式。化学方程式里一般有N个化学式，一个个下标设置起来累得要死，有没有简单方法？这个可以有！使用前：MnO2+4HCl=MnCl2+2H2O+Cl2（方便起见，箭头啊什么的我就不打了）仔细看看，有什么发现么？凡是需要调成下标的，前面一定有个字母；或者说，不需要调成下标的数字

6、都在化学式前方。别说这是废话，没这个发现你别想做出来。Word有个功能叫“查找/替换”。里面有个选项“使用通配符”，把这个选上，就指着他实现我们的要求了。我们在“查找内容”中输入：(A-z)(0-9)在“替换为”中输入：1Sub2Sub解释：A-z：表示是连大写加小写一共52个字母0-9：表示是数字整个的意思就是：查找“一个字母+一个数字”这样的组合，然后，在数字的前面和后面各添一个“Sub”作为标记。这是替换之后的效果：MnOSub2Sub+4HCl=MnClSub2Sub+2HSub2SubO+ClSub2Sub接下来，我们在“查找内容”中输入：(Sub)(*)(Sub)在“替换为”中输入

7、：2，并在“格式”=>“字体”中选中“下标”最终效果如下，还不错吧？MnO2+4HCl=MnCl2+2H2O+Cl2你要是嫌一个一个来太麻烦，那么录个宏就行了。怎么录？自己动手，丰衣足食啊咳咳什么？你说要是下标是两位数该怎么办？是啊，用上面提供的这个通配符是不好解决的。但是，还有别的通配符啊，还有别的方式啊。比如说C5H12+8O2=5CO2+6H2O。先把所有数字都调成下标：在“查找内容”中输入：0-9在“替换为”中什么都不输入，只把格式调成下标，得到这么个结果：C5H12+8O2=5CO2+6H2O再在“查找内容”中输入：<0-9A-Z在“替换为”中还是什么都不输入，只把格式调

8、成非下标，就是把“下标”那个复选框清空。查找的解释是：搜索单词以数字（0-9）开头（<的作用），至少有一个数字（），之后是字母（A-Z，你见过小写字母开头的化学式么？没有吧？那就全用大写好了。你说(NH4)2SO4这样的？在A-Z里加个(就行了，但这要看你在方程式里用的什么括号了，中文括号和英文括号不是一个符号。），符合这些条件的“单词”，幸亏这里把“单词”认为是数字和英文的混合物，要不然就麻烦了。这就是结果：C5H12+8O2=5CO2+6H2O怎么样？还算入得了眼吧？经过一段时间的研究，终于有了一个不错的成果：Sub fomula() With Selection.Find .Cle

9、arFormatting .Text = "(+=)" With .Replacement .ClearFormatting .Text = " 1 " End With .Execute Replace:=wdReplaceAll, Forward:=True, MatchWildcards:=True, _ Wrap:=wdFindStop, Format:=True End With With Selection.Find .ClearFormatting .Text = "=" With .Replacement .Clear

10、Formatting .Text = "=" .Font.Spacing = -1 End With .Execute Replace:=wdReplaceAll, Forward:=True, MatchWildcards:=True, _ Wrap:=wdFindStop, Format:=True End With With Selection.Find .ClearFormatting .Text = "A-Z(*)!)0-z" With .Replacement .ClearFormatting .Text = "" .Fo

11、nt.ColorIndex = wdTeal End With .Execute Replace:=wdReplaceAll, Forward:=True, MatchWildcards:=True, _ Wrap:=wdFindStop, Format:=True End With With Selection.Find .ClearFormatting .Text = "0-9" .Font.ColorIndex = wdTeal With .Replacement .ClearFormatting .Text = "" .Font.Subscrip

12、t = True End With .Execute Replace:=wdReplaceAll, Forward:=True, MatchWildcards:=True, _ Wrap:=wdFindStop, Format:=True End With Selection.Font.ColorIndex = wdAutoEnd Sub“宏”=>“创建”，粘贴进去就可以用了。啊，对了，输入方程式的时候请务必使用英文的括号。功能包括：给“+”和“=”前后添加空格以调整间距；（不想要可以把上文中红色部分删掉）将五个“=”变成一个“=”；（不想要可以把上文中蓝色部分删掉）将该下标的都下标；没

13、了。哦，还有个特色就是运行过程中不会有对话框弹出要求选“是否继续搜索”了。使用前：CaCl2+Na2CO3=CaCO3+2NaCl(NH4)2SO4+2NaOH=Na2SO4+2NH3+2H2OC8H16+12O2=8CO2+8H2O使用后：CaCl2 + Na2CO3 = CaCO3 + 2NaCl(NH4)2SO4 + 2NaOH = Na2SO4 + 2NH3 + 2H2OC8H16 + 12O2 = 8CO2 + 8H2O思路：功能和想实现其实都很简单，这里主要说一下的实现过程。首先，将以A-Z开头、结尾非“)”、字母或数字的部分选中并设置成一个比较不常用的颜色。其次，将这种颜色字符中的数字设置为下标；最后，将整个的颜色变为WORD默认的自动。当然，如果你愿意