1、第一,打开Word,找到宏。以2007为例:视图——宏(其他版本参考)工具→宏→宏
2、第二,输入宏名“FilePrin”(建议)也可以是 Word文件打印记录。然后选择 “创建”弹出窗口如图:
3、第三,在 VB 窗口输入代码:Sub FilePrint()Dialogs(wdDialogFilePrint).ShowDName = ActiveDocument.Path + "" + ActiveDocument.NameIf ActiveDocument.Path = "" Then DName = "未保存文档"Tim = Str(Date) + "日" + Str(Time)Open "d:langzi.dat" For Append As #1Print #1, "于" + Tim+ "打印" + DNameClose #1End SubSub FilePrintDefault()ActiveDocument.PrintOut……(重复上面第3至8行内容)End Sub然后,确认无误,点击保存
4、第四,单击菜单 文件 →关闭并返回Word。这样就大功告成。
5、第五,自己可以试验一下。