制作自己的Word实验工具箱
来源： 系统之家 2015/03/21 13:17
利用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代码，还要选择“工具→宏→宏”菜单，调出有宏列表的窗口选择相应的宏才能运行，很是麻烦。如果我们利用我们常用的工具栏按钮形式，相应的按钮对应相应的宏名称，岂不是方便快捷吗？
首先，我们选择“工具→自定义”菜单，在弹出的窗口中选择“工具栏”标签，点击“确定”按钮，在新弹出的窗口中输入工具栏的名称，比如“化学工具箱”，这样就建立了一个工具栏。由于化学图形或分子式有很多，我们需要对它们进行分类，所以需要选择“命令”标签，在类别处选择“新菜单”，在命令处选择“新菜单”，将它拖动到新建立的“化学工具箱”这个工具栏上，并右击更改标签名（图4）。
同样的方法，你想分几类，就需要拖几次“新菜单”，更改相应的标签内容就可以了。
接下来，我们需要把相应的宏放入各个分类菜单中。这时，我们选择“命令”标签，在类别处选择“宏”，将相应的宏拖到对应的类别菜单中，右击这个子菜单，更改它的标签名；还可以选择“编辑按钮图像”来为按钮设计一个图标（图5）。
同样的方法，我们可以建立若干个工具栏，将录制好的宏拖放到相应的类别中。
工具栏的显现与隐藏
这个过程主要是自定义一个菜单用来显示或隐藏你所建立的若干工具栏。工具栏多了，如果都一起在Word窗口中显现，那会显得窗口特别的繁乱。这时，我们可以自定义一个菜单来控制工具栏的显现。
首先，为了打开Word时不显示我们新建的工具栏，我们需要缩写一小段代码。选择“工具→宏→Visual Basic编辑器”，比如笔者建立了“常用符号”、“化学工具箱”、“物理工具箱”这3个工具栏，在左面窗口中展开“Normal”工程下的“Microsoft Word对象”，并双击“ThisDocument”对象，在右面窗口中输入图中的代码，这段代码的意思是把这3个工具栏隐藏起来。然后，我们选择“工具→宏→宏”菜单，在弹出的窗口中，输入一个宏名字如“打开化学工具箱”，点击“创建”按钮，在窗口中输入图中代码，这3段代码的意思是显示相应的工具栏（图6）。
接下来，我们还是选择“工具→自定义”菜单，在弹出的窗口中选择“命令”标签，在类别处选择“新菜单”，在命令处选择“新菜单”，将它拖动到Word窗口的菜单空白处，右击这个新菜单并更改标题。再在类别处选择“宏”，将这3个宏分别拖到新菜单下，并右击更改标签标题（图7）。
这样，就可以利用菜单来显现相应的工具栏了。工具栏显现后，你可以点击上面的按钮进行图形的自动绘制、公式或是分子式的自动输入。
小提示：要想使用这些宏代码，你还需要选择“工具→宏→安全性”菜单，把宏的安全性设置为低。
这样的方法对于你的重复输入是不是很方便快捷呀？还等什么，赶快试一试吧！
本文来自于【系统之家】 www.xp85.com
图形的生成
这个过程主要是如何利用自选图形和宏录制来完成图形的自动生成。现在，我们以化学试验中的“平底烧瓶”为例来说明图形的生成。
首先，我们打开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代码，还要选择“工具→宏→宏”菜单，调出有宏列表的窗口选择相应的宏才能运行，很是麻烦。如果我们利用我们常用的工具栏按钮形式，相应的按钮对应相应的宏名称，岂不是方便快捷吗？
首先，我们选择“工具→自定义”菜单，在弹出的窗口中选择“工具栏”标签，点击“确定”按钮，在新弹出的窗口中输入工具栏的名称，比如“化学工具箱”，这样就建立了一个工具栏。由于化学图形或分子式有很多，我们需要对它们进行分类，所以需要选择“命令”标签，在类别处选择“新菜单”，在命令处选择“新菜单”，将它拖动到新建立的“化学工具箱”这个工具栏上，并右击更改标签名（图4）。
同样的方法，你想分几类，就需要拖几次“新菜单”，更改相应的标签内容就可以了。
接下来，我们需要把相应的宏放入各个分类菜单中。这时，我们选择“命令”标签，在类别处选择“宏”，将相应的宏拖到对应的类别菜单中，右击这个子菜单，更改它的标签名；还可以选择“编辑按钮图像”来为按钮设计一个图标（图5）。
同样的方法，我们可以建立若干个工具栏，将录制好的宏拖放到相应的类别中。
工具栏的显现与隐藏
这个过程主要是自定义一个菜单用来显示或隐藏你所建立的若干工具栏。工具栏多了，如果都一起在Word窗口中显现，那会显得窗口特别的繁乱。这时，我们可以自定义一个菜单来控制工具栏的显现。
首先，为了打开Word时不显示我们新建的工具栏，我们需要缩写一小段代码。选择“工具→宏→Visual Basic编辑器”，比如笔者建立了“常用符号”、“化学工具箱”、“物理工具箱”这3个工具栏，在左面窗口中展开“Normal”工程下的“Microsoft Word对象”，并双击“ThisDocument”对象，在右面窗口中输入图中的代码，这段代码的意思是把这3个工具栏隐藏起来。然后，我们选择“工具→宏→宏”菜单，在弹出的窗口中，输入一个宏名字如“打开化学工具箱”，点击“创建”按钮，在窗口中输入图中代码，这3段代码的意思是显示相应的工具栏（图6）。
接下来，我们还是选择“工具→自定义”菜单，在弹出的窗口中选择“命令”标签，在类别处选择“新菜单”，在命令处选择“新菜单”，将它拖动到Word窗口的菜单空白处，右击这个新菜单并更改标题。再在类别处选择“宏”，将这3个宏分别拖到新菜单下，并右击更改标签标题（图7）。
这样，就可以利用菜单来显现相应的工具栏了。工具栏显现后，你可以点击上面的按钮进行图形的自动绘制、公式或是分子式的自动输入。
小提示：要想使用这些宏代码，你还需要选择“工具→宏→安全性”菜单，把宏的安全性设置为低。
这样的方法对于你的重复输入是不是很方便快捷呀？还等什么，赶快试一试吧！
本文来自于【系统之家】 www.xp85.com
