[如何批量保存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文件中(此文件可在代码中修改)。用记事本打开这个记录文件，打印过的文件都详细的记录在案。
本文地址：https://www.39baobao.com/show/39_31172.html
以上内容来自互联网，请自行判断内容的正确性。若本站收录的信息无意侵犯了贵司版权，请联系我们，我们会及时处理和回复，谢谢.
以下为关联文档：
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. 能大胆、积极的参与英语活动...
