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

《为Word2010编写宏快速打印当前页.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、为Word2010编写宏快速打印当前页在Word2010中，要打印当前文档的当前页，需要如此操作：单击“文件”选项卡，再单击“打印”，然后在“设置”下，单击“打印所有页”右侧的三角箭头，再单击“打印当前页”(如图1)，最后单击“打印”，方才完成该项任务。这反而没有在Word2007或Word2003中来得简单。如果你经常要打印文档的当前页，那么把该功能录制成一个宏，并将其添加到快速访问工具栏。可以快速提高工作效率。下面我们就一起对打印当前页功能的编写一个“宏”。录制打印当前页宏1.切换到“视图”选项卡，在“宏”组中，单击“宏”，

2、再单击“录制宏”。2.在“宏名”下的框中，键入宏的名称，比如键入“打印当前页”(如图2);在“将宏保存在”框中，确认选择的是“所有文档(Normal.dotm)”;在“说明”框中，可以键入对宏的说明，然后单击“确定”按钮开始宏录制过程。3.切换到“文件”选项卡，再单击“打印”，然后在“设置”下，单击“打印所有页”右侧的三角箭头，并单击“打印当前页”，最后单击“打印”。4.切换到“视图”选项卡，在“宏”组中，单击“宏”，再单击“停止录制”，结束录制宏。添加到快速访问工具栏1.用右键单击快速访问工具栏，在弹出的快捷菜单中，单击“自定

3、义快速访问工具栏”(如图3)。2.在“从下列位置选择命令”下的框中，单击“宏”，然后在其下的宏列表中，单击“Normal.NewMacros.打印当前页”;单击“添加”按钮;在右面的列表框中，确认选择的是“Normal.NewMacros.打印当前页”(如图4)，然后单击下面的“修改”按钮。3.在“符号”列表框中，单击一个喜欢易记的图标，比如打印机形状的图标;在“显示名称”框中，将“打印当前页”前的“Normal.NewMacros.”删除。4.依次单击“确定”按钮，关闭各对话框。至此，在快速访问工具栏中便出现一个名为“打印当前

4、页”的按钮了。只要单击该按钮，即可只打印当前文档的当前页，即插入点所在的页面。使用非常方便。2010年职称计算机考试辅导:[WORD]宏的应用实例发表日期：2010-4-24来源：[课堂辅导][每日一测]一、宏的录制在这里举一实例。例如，在Word97中，要插入字符，则往往要到符号框中查找半天。对于一些常用的符号，如“￥”，便可以使用宏来使工作简化。1.单击“工具”选单中“宏”子选单，再单击“录制新宏”选项。2.给宏取名为“Yuan”，再单击“键盘”。3.在弹出的对话框中指定快捷键，可指定为“Ctrl＋Y”，再关闭该对话框回到“

5、录制宏”对话框。单击“确定”按钮启动记录器。4.运行“插入”选单中的“符号”子选单，从弹出的“符号”框中选择“￥”，插入后再关闭。另外，也可以指定到工具栏，从弹出的“自定义”对话框中的“命令”栏中把“Normal.NewMacro1.Yuan”拖放到工具栏中。5.单击“停止录制”工具栏中的“停止录制”按钮。6.单击“工具”选单中“宏”子选单，再单击“宏”命令。7.选择第二步中的宏名称，再单击“编辑”按钮。这时我们可以从中看到以下代码：SubYuan（）Selection.InsertSymbolFont：=″楷体—GB2312″

6、，CharacterNumber：=－27，Unicode：=TrueEndSub以后，当你需要插入字符“￥”时，只需按下快捷键“Ctrl＋Y”，或者是在工具栏点击“Normal.NewMacrol.Yuan”便可以了。二、宏的编辑宏录制器将以上宏操作翻译为VisualBasic代码。但是，录制宏时会受到一些限制。许多复杂的宏，例如，要用到循环语句，便无法录制。为了提高录制的宏的功能，就可能需要修改录制到模块中的代码。具体操作为：单击“工具”选单中“宏”子选单，再单击“宏”命令。选择第二步中的宏名称，再单击“编辑”按钮。然后便加

7、载VisualBasic编辑器，我们可以看到所录制的宏自动生成的VisualBasic代码。例如，在C：MyDocument中有200个Word文档，依次命名为“1.doc”，“2.doc”，“3.doc”，…“200.doc”，我们需要把文件格式改变为文本文件，即txt文件。先以1.doc为例，录制一个宏，打开文档，另存为txt文件，再关闭该活动文档。生成的VisualBasic代码如下：SubMacro1（）ChangeFileOpenDirectory″C：Mydocument″Documents.OpenFileNa

8、me：=″1.doc″ActiveDocument.SaveAsFileName：=″1.txt″，FileFormat：=wdFormatTextActiveWindow.CloseEndSub下一步便进行编辑，用一个循环语句依次打开各个文件，转化后再关闭。代