第一步:启动Word,点击菜单栏中的“工具→宏→宏”选项,弹出“宏”对话框。在“宏名”文本框中输入宏的名称“FilePrinttCurrentPage”,在“宏的位置”下拉列表框中选择“所有活动模板和文档”选项,如图1所示。注意:必须选择“所有活动模板和文档”选项,以便在任何时候都可以使用这个宏。
第二步:点击“创建”按钮,进入Word宏编辑状态。在要“Sub FilePrinttCurrentPage”和“End Sub”之间,录入以下内容(图2):
With Dialogs(wdDialogFilePrint)
.Range = wdPrintCurrentPage
.Show
End With
录入完毕,经检查无误后,保存并退出VBA窗口,返回Word窗口中。
第三步:在Word窗口中,点击菜单栏中的“工具→自定义”命令,弹出“自定义”窗口。在“自定义”窗口中点击“命令”选项卡,通过拖动“类别”列表框右侧的滚动条在“类别”列表框中找到“宏”选项,这时在“命令”列表框中就会列出当前可用的宏(图3)。如果你已经定义了很多的宏就从中找到上面我们定义的“FilePrinttCurrentPage”宏,笔者为行文方便,仅仅使用了“FilePrinttCurrentPage”一个宏。
第四步:用鼠标按住“自定义”窗口中“命令”列表框里的“FilePrinttCurrentPage”宏,注意是一直按住不放,这时鼠标指针变成了一个带“十”字的形状。好了,移动鼠标将“FilePrinttCurrentPage”宏拖动到Word菜单栏或工具栏中你认为合适的地方,笔者是拖到了工具栏原“打印”按钮的后面,这时会出出一个粗体“I”(图4),松开鼠标即可。这时,Word会在工具栏上增加一个名为“normal NewMacros.FilePrinttCurrentPage”的选项,以后通过点击该选项即可打印当前文档的当前页了。
第五步:不过,该项目名称不太符合我们国人的习惯,现在让我们再来为其改改名。在其上点右键,在弹出的右键菜单中选择“命名”,在其后的文本框中输入“打印当前页”(图5)。接着,再点击“更改按钮图标”选项给“打印当前页”按钮指定一个按钮图标,笔者这里为了醒目,指定了一个火红的红心。最后的效果图如图6所示。
好了,以后通过工具栏中的这两个打印姊妹花,你就可以随心所欲地打印文档了,从此可以告别“打印”对话框了,是不是很方便。
《Word中添加打印当前页按钮》相关文章