制作自己的Word实验工具箱

利用Word中的宏录制及VBA代码可以轻松实现自动地录入用户自定义的图形或分子式等。在实际工作中，很多理科教师都用Word进行教学设计或编写试卷、试题，一些图形、分子式、实验器材等会反复用到。如果每次用到时都要重新画、重新输入或是找到以前的Word文件粘贴过来，那都是很费事的。笔者想到了一个办法，就是把我们经常用到的东西植入到Word模板中，把它们作为菜单或是工具栏，随时用到随时调用，方便快捷。

图形的生成

这个过程主要是如何利用自选图形和宏录制来完成图形的自动生成。现在，我们以化学试验中的“平底烧瓶”为例来说明图形的生成。

首先，我们打开Word 2003建立一个空白文档，选择“工具→宏→录制新宏”菜单，在弹出的“录制宏”窗口中输入宏的名字，选择将宏保存在“所有文档(Normal.dot)”，确定；然后，我们可以利用自选图形“线条”工具中的“直线”、“曲线”等工具来绘制“平底烧瓶”，绘制完成后可以进行线条粗细、颜色等的设置，并利用绘图工具栏中的“选择对象”按钮将这些线条全部选中，选择“绘图→组合”菜单将这些线条组合成一个整体，并利用控制柄调整图形的大小。最后，点击宏录制的“停止”按钮，停止宏的录制（图1）。



小提示：如果在选择了“录制新宏”后，不能使用绘图工具，你可以选择“工具→选项”菜单，在弹出的窗口中选择“常规”标签，在这个界面中去掉“插入自选图形时自动创建绘图画布”前面的勾去掉，点击确定关闭窗口。

录制新宏的目的是把你的绘制过程用代码的形式记录下来，即VBA代码。也许你认为代码不太好懂，其实这些VBA代码都是Word自动生成的，你只需要稍做修改的即可。录制停止后，选择“工具→宏→宏”菜单，在弹出的窗口中就显示着我们刚才录制的宏，选定它，选择编辑按钮，就会出现代码编辑窗口，里面有Word自动录制的绘制过程代码。

我们知道，在绘制图形时不可能一次就非常顺利的完成，免不了要进行修改、删减，这些操作都会被宏记录而生成相应的代码，这些代码对我们来说都是没用的（如图中方框处），我们可以把这些代码删除掉。为了能重复使用这段代码，我们还需要对这段代码进行少许修改，要在它的最前面添加“Documents.Add DocumentType:=wdNewBlankDocument”表示新建一个空白文档，目的是在新文档中进行画图；把代码中的“ActiveDocument.Shapes.Range(Array(…).Select”这句话替换为“ActiveDocument.Shapes.SelectAll”，意思是选中文档中的所有图形；在代码最后再增加“Selection.Copy”、“ActiveWindow.Close (False)”，分别表示复制所选图形、关闭并且不保存当前文档（即新建立的空白文档）、在文档中粘贴图形。如果以后想画“平底烧瓶”，直接运行这段代码就行了。经常用的图形都可以以这种形式生成相应的代码进行保存，以后用的时候直接调用（图2）。



常用化学分子式的建立

这个过程主要是如何把输入常用化学分子式的过程转化为VBA代码。同样的方法，在开启“录制新宏”的同时，输入你经常使的化学分子式，它也会生成VBA代码（图3）。



生成自定义工具栏

这个过程主要是生成自定义工具栏，将以按钮的形式调用VBA代码。试想一下，我们想调用这些VBA代码，还要选择“工具→宏→宏”菜单，调出有宏列表的窗口选择相应的宏才能运行，很是麻烦。如果我们利用我们常用的工具栏按钮形式，相应的按钮对应相应的宏名称，岂不是方便快捷吗？