三九宝宝网宝宝百科宝宝知识

Word小招:用Word宏给打印机“记工”

11月19日 编辑 39baobao.com

[如何批量保存Word中的图片]2选择office菜单下的另存为--特殊格式3选择保存类型为网页4给文件命名,再单击保存5你会发现在保存的目录下,多了一个和Web文件名一样的文件夹6打开该文件夹,你会惊喜地发现...+阅读

员工上班要打卡、计件,打印机工作是不是也要“记工”呢?把打印的文件名、打印时间记录下来,可从方便管理员了解打印机的使用情况,这种应用对一些公用电脑显得非常有意义。

在一般的办公室里,使用打印机最多的非Word莫属,我编写了一个Word宏,当有人打印文档时,宏就被激活并执行,将打印任务记录在一个文本文件中,供管理人员随时查阅。下面介绍实现方法。

第一步:

启动Word,单击菜单[工具]→[宏]→[宏],在“宏名”框中输入宏名“FilePrint”,单击[创建]按钮。

第二步:

在弹出的Visual Basic编辑器的代码窗口中完成以下内容:

Sub FilePrint()

Dialogs(wdDialogFilePrint).Show

DName = ActiveDocument.Path + "" + ActiveDocument.Name

If ActiveDocument.Path = "" Then DName = "未保存文档"

Tim = Str(Date) + "日" + Str(Time)

Open "d:\langzi.dat" For Append As &emsp1

Print &emsp1, "于" + Tim+ "打印" + DName

Close &emsp1

End Sub

Sub FilePrintDefault()

ActiveDocument.PrintOut

……(重复上面第3至8行内容)

End Sub

第三步:

录入完成后,单击[保存]按钮,再单击菜单[文件]→[关闭并返回Word],全部操作完成。

上面的代码包含两个宏,第一个FilePrint宏在用户执行[文件]→[打印]菜单命令时自动运行,第二个FilePrintDefault宏在用户执行工具栏上的[打印]按钮时自动运行,宏在运行时首先执行正常的打印操作,然后提取所打印文档的路径和文件名,以及当前日期和时间,并将这些数据写入到d:\lanzi.dat文件中(此文件可在代码中修改)。用记事本打开这个记录文件,打印过的文件都详细的记录在案。

以下为关联文档:

Word2013中如何插入域2点击插入功能3点击其中的文档部件4在下拉框中选择域5比如我们插入时间,在类别中选择时间和日期6在域属性中选择其中一种形式,点击确定7如下图所示我们就插入了时间常用...

word2013中如何设置自动保存文档2选择左上角的文件命令,如图:3点击文件命令,找到选项这个命令,如图:4点击选项,从弹出的对话框中找到保存选项,如图:5设定好需要自动保存的时间,如图6在对话框中找到高级,如图:7从...

word2013中如何设置打钩方框2点击开发工具功能,选择如下图所示的功能框,如下图所示3点击后如下图所示4选择方框,点击属性5点击如下图所示的修改功能6选择Wingdings,找到对勾功能,点击确定7设置完毕后,点...

如何在Word中添加删除线2选中想要添加删除线的文字内容。3切换到开始选项卡。4在字体区域中找到删除线按钮。5点击按钮即可给选定内容添加删除线。6想要删除删除线的话,只需要再次选中添加了线...

如何用Word2013做流程图2再次点击插入,形状,在流程图里选择自己喜欢的形状,再此选择菱形。如果框里有颜色,可以在形状样式栏里改变。3继续添加其它形状或复制图形,并把图框摆成自己需要的样子。4在流...

如何用word2003打开word2007我们双击打开它,会出现提示版本太高打不开。其实我们只要下载一个word2003兼容包,大小27M左右。解压并安装该补丁包。安装完成。我们再来双击刚才的word2007文档,发现已经...

介绍Word格式刷的使用技巧2第二步:我们用鼠标选中第一句,然后再去点击格式刷。你会发现鼠标的样式改变了,变成一个刷子。如下图所示:3第三步:我们现在用刷子去刷第二句话,刷完你就发现第二句话变成和第一...

word2010中如何设计文字效果2右键单击选择字体3选择字体,效果如图所示4选择字体、字号、字形效果5选择字体颜色和下划线效果,着重号6选择效果,如图所示设置字符格式和段落格式的快捷键快捷键 作用 Ct...

Words : marker notebook book-bagWords : markernotebookbook-bag Teachingaids : 1. 复习句型 Whatisthis ?/It s 2. 了解markernotebookbook-bag的中文意思,并能发准其读音。 2. 能大胆、积极的参与英语活动...

推荐阅读
图文推荐