求助！~~~~简单任务~~~~~wod宏，vb高手速入

flyindance

简单任务 就是word里面有如下文字 A.2003001 要求每打印两次就由A.2003001 变B.2003001 打印两次变C.2003001 两次打印之后变A.2003002 之后循环 求高手解决word难题 用快捷健代替打印也可以的，我一点不都会宏和VB........555555555

守柔

以下是引用flyindance在2003-9-17 16:14:00的发言： 简单任务 就是word里面有如下文字 A.2003001 要求每打印两次就由A.2003001 变B.2003001 打印两次变C.2003001 两次打印之后变A.2003002 之后循环 求高手解决word难题 用快捷健代替打印也可以的，我一点不都会宏和VB........555555555

lLbmuK05.rar (6.82 KB, 下载次数: 15)

2003-9-18 07:02 上传

点击文件名下载附件
求助！~~~~简单任务~~~~~wod宏，vb高手速入

打开附件后，按下“多次打印”按钮，便可（是一段小代码，如需修改，请按ALT+F11 Sub reprint() ActiveDocument.Tables(1).Cell(2, 1).Range.InsertAfter "A.2003001" ActiveWindow.PrintOut copies:=2, collate:=True ActiveDocument.Tables(1).Cell(2, 1).Range.Delete ActiveDocument.Tables(1).Cell(2, 1).Range.InsertAfter "B.2003001" ActiveWindow.PrintOut copies:=2, collate:=True ActiveDocument.Tables(1).Cell(2, 1).Range.Delete ActiveDocument.Tables(1).Cell(2, 1).Range.InsertAfter "C.2003001" ActiveWindow.PrintOut copies:=2, collate:=True ActiveDocument.Tables(1).Cell(2, 1).Range.Delete End Sub