为Word2010编写宏快速打印当前页.doc

为Word2010编写宏快速打印当前页 在Word2010中，要打印当前文档的当前页，需要如此操作：单击“文件”选项卡，再单击“打印”，然后在“设置”下，单击“打印所有页”右侧的三角箭头，再单击“打印当前页”(如图1)，最后单击“打印”，方才完成该项任务。 这反而没有在Word2007或Word2003中来得简单。如果你经常要打印文档的当前页，那么把该功能录制成一个宏，并将其添加到快速访问工具栏。可以快速提高工作效率。下面我们就一起对打印当前页功能的编写一个“宏”。 录制打印当前页宏 1.切换到“视图”选项卡，在“宏”组中，单击“宏”，再单击“录制宏”。 2.在“宏名”下的框中，键入宏的名称，比如键入“打印当前页”(如图2);在“将宏保存在”框中，确认选择的是“所有文档(Normal.dotm)”;在“说明”框中，可以键入对宏的说明，然后单击“确定”按钮开始宏录制过程。 3.切换到“文件”选项卡，再单击“打印”，然后在“设置”下，单击“打印所有页”右侧的三角箭头，并单击“打印当前页”，最后单击“打印”。 4.切换到“视图”选项卡，在“宏”组中，单击“宏”，再单击“停止录制”，结束录制宏。 添加到快速访问工具栏 1.用右键单击快速访问工具栏，在弹出的快捷菜单中，单击“自定义快速访问工具栏”(如图3)。 2.在“从下列位置选择命令”下的框中，单击“宏”，然后在其下的宏列表中，单击“Normal.NewMacros.打印当前页”;单击“添加”按钮;在右面的列表框中，确认选择的是“Normal.NewMacros.打印当前页”(如图4)，然后单击下面的“修改”按钮。 3.在“符号”列表框中，单击一个喜欢易记的图标，比如打印机形状的图标;在“显示名称”框中，将“打印当前页”前的“Normal.NewMacros.”删除。 4.依次单击“确定”按钮，关闭各对话框。 至此，在快速访问工具栏中便出现一个名为“打印当前页”的按钮了。只要单击该按钮，即可只打印当前文档的当前页，即插入点所在的页面。使用非常方便。  一、宏的录制 在这里举一实例。例如，在Word97中，要插入字符，则往往要到符号框中查找半天。对于一些常用的符号，如“￥”，便可以使用宏来使工作简化。 1.单击“工具”选单中“宏”子选单，再单击“录制新宏”选项。 2.给宏取名为“Yuan”，再单击“键盘”。 3.在弹出的对话框中指定快捷键，可指定为“Ctrl＋Y”，再关闭该对话框回到“录制宏”对话框。单击“确定”按钮启动记录器。 4.运行“插入”选单中的“符号”子选单，从弹出的“符号”框中选择“￥”，插入后再关闭。另外，也可以指定到工具栏，从弹出的“自定义”对话框中的“命令”栏中把“Normal.NewMacro1.Yuan”拖放到工具栏中。 5.单击“停止录制”工具栏中的“停止录制”按钮。 6.单击“工具”选单中“宏”子选单，再单击“宏”命令。 7.选择第二步中的宏名称，再单击“编辑”按钮。 这时我们可以从中看到以下代码： SubYuan（） Selection.InsertSymbolFont：=″楷体—GB2312″，CharacterNumber：=－27，Unicode：=True EndSub 以后，当你需要插入字符“￥”时，只需按下快捷键“Ctrl＋Y”，或者是在工具栏点击“Normal.NewMacrol.Yuan”便可以了。 二、宏的编辑 宏录制器将以上宏操作翻译为VisualBasic代码。但是，录制宏时会受到一些限制。许多复杂的宏，例如，要用到循环语句，便无法录制。为了提高录制的宏的功能，就可能需要修改录制到模块中的代码。 具体操作为：单击“工具”选单中“宏”子选单，再单击“宏”命令。选择第二步中的宏名称，再单击“编辑”按钮。 然后便加载VisualBasic编辑器，我们可以看到所录制的宏自动生成的VisualBasic代码。 例如，在C：\MyDocument中有200个Word文档，依次命名为“1.doc”，“2.doc”，“3.doc”，…“200.doc”，我们需要把文件格式改变为文本文件，即txt文件。 先以1.doc为例，录制一个宏，打开文档，另存为txt文件，再关闭该活动文档。生成的VisualBasic代码如下： SubMacro1（） ChangeFileOpenDirectory″C：\Mydocument″ Documents.OpenFileName：=″1.doc″ ActiveDocument.SaveAsFileName：=″1.txt″，FileFormat：=wdFormatText ActiveWindow.Close EndSub 下一步便进行编辑，用一个循环语句依次打开各个文件，转化后再关闭。代码如下： SubMacro1