|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
以下是引用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)
打开附件后,按下“多次打印”按钮,便可(是一段小代码,如需修改,请按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 |
|