第一步:
启动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 #1
Print #1, "于" + Tim+ "打印" + DName
Close #1
End Sub
Sub FilePrintDefault()
ActiveDocument记工软件手机版。PrintOut
……(重复上面第3至8行内容)
End Sub
第三步:
录入完成后,单击[保存]按钮,再单击菜单[文件]→[关闭并返回Word],全部操作完成记工软件手机版。
文章来源:
太平洋在线
版权声明:凡本站注明内容来源:“太平洋在线”的所有作品,版权均属于“太平洋在线”,转载请必须注明中“太平洋在线”。违反者本网将追究相关法律责任。