[求助]关于文档批量打印时的一个问题？！

prc

我想把一个文档在批量打印时，在每份文档的指定位置依次打印连续的编号，应该如何实现？

如一份文档需要打印10份，在每一份的右上角依次打印编号

No:0001、No:0002、……、No:0010

请高手指点！谢谢！！！

konggs

录一个宏找规律，

'先画一个文本框放到右上角，边框设为无，

'把以以下代码放到这个文档的thisdocument下（VBE下）。

'应该还有更简单的，我是改了一个录制的宏

Sub fileprint()

Dim a%, x%

For x = 0 To 9

For a = 0 To 9

ActiveDocument.Shapes(1).TextFrame.TextRange.Select

Selection.ShapeRange.TextFrame.TextRange.Delete

Selection.Collapse

Selection.TypeText Text:="00" & x & a + 1

ActiveDocument.PrintOut

Next a

Next x

End Sub

prc

以下是引用konggs在2005-12-5 15:41:45的发言：

录一个宏找规律，

'先画一个文本框放到右上角，边框设为无，

'把以以下代码放到这个文档的thisdocument下（VBE下）。

'应该还有更简单的，我是改了一个录制的宏

Sub fileprint()

Dim a%, x%

For x = 0 To 9

For a = 0 To 9

ActiveDocument.Shapes(1).TextFrame.TextRange.Select

Selection.ShapeRange.TextFrame.TextRange.Delete

Selection.Collapse

Selection.TypeText Text:="00" & x & a + 1

ActiveDocument.PrintOut

Next a

Next x

End Sub

谢谢konggs的帮助，问题已经解决了！！！