WORD打印时候可否自动编码？

方法：点击视图视窗里面的宏按钮，选择 查看宏 即会出现以上窗口， 输入 PrintCopies 做为 名字. 然后选择创建新建， 会出现一个代码框，把里面以前的轿虚代码清空，将以下代码复制进去，点击保存就完成 PrintCopies 宏的安装了。
运行： 把光标放在希望插入打印份数编号的位置，设置好打印机，然后打开如上窗口，里面会有出现一个叫做 PrintCopies 的宏， 选上，然后单击运行，会出现2个框“Please enter the number of copies you want to print”和“Enter the starting number you want to print”。 分别输入相应打印的份数和起始编号，打印机烂凳就会自动按照你的设定和以上要求来完成打印。 如果提示保存要选.docm格式
---------------------
WPS里面使用方法（仅测试过WPS，没安装闭历燃OFFICE）
1.先打开这个文档，启用宏。
2.打开要打印的文档，把光标放在要打印的地方
3.然后视图---宏--选Printcopies，运行，填入打印份数，填入起始号码。
以下是代码

Sub PrintCopies()
'
' Macro1 Macro
'
'
Dim i As Long
Dim lngStart
Dim lngCount
lngCount = InputBox("Please enter the number of copies you want to print", "Please enter the number of copies you want to print", 1)
If lngCount = "" Then
Exit Sub
End If
lngStart = InputBox("Enter the starting number you want to print", "Enter the starting number you want to print", 1)
If lngStart = "" Then
Exit Sub
End If
For i = lngStart To lngCount
If i < 10 Then
Selection.TypeText Text:="000" & i&
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End If

If (i >= 10) And (i < 100) Then
Selection.TypeText Text:="00" & i&
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End If

If (i >= 100) And (i < 1000) Then
Selection.TypeText Text:="0" & i&
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End If
If (i >= 1000) And (i < 10000) Then
Selection.TypeText Text:=i
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End If
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Next
End Sub

这个情况用word里面的“邮件合并”功能再合适不过了，这个功能应用实例简单说就是：一个完整模板里面只需要一些小地方做批量化的修改，然后做成批量化的完整文档。

我以office 2007为例按步骤写流程，如果楼主是用office 2003软件，那你也可以比着葫芦画瓢，我就不再分开写。具体操作步骤如下：

1、先建立一个excel文档，命名“批量数据表”，把你要统一修改的数据先录进去。例如你要做审（川）00001----审（川）00300，先在第1例输好数据，只需要第1、2行写好001、002（提前设置好单元格格式为“文本”），用十字星连续下拉到300就行了，如果有特别情况，按需要在表格里改好就行，保存。

2、打开你的word模板，例如“通用模板表”，操作步骤如下：邮件----开始合并邮件----邮件合并分步向导----信函，下一步----使用当前文档，下一步----浏览，选中之前建好的excel文档“批量数据表”，选中第1列，下一步----光标定位”审（川）00”后面----插入合并域，下一步----下一步直到“完成合并”，操作完成。

3、如果你要打印，在工具档“预览结果”右侧有步进的箭头，步进一次物搜打印一张，依次类推，只要通用版本不变，所有的批量改动都在excel里完成就行，毕竟excel批量修改数据实在是太方便了。

最后补充：如果你word模耐哗板里有多处数据批量改，可以在excel表第1、2、3列等将数据统一录好，在执行上述第2步操作时，可按顺序选中第几列数据，再将光标定位在对应位置，依次类推，保证列数据对应光标位置。

以上步骤我已实际操作过，大方向昌蚂行肯定没问题，细节说不到的地方楼主可以自已摸索。希望能解决你的问题，阿弥陀佛！

把这一张纸复制粘贴300次，总共300耶这样的文档，在页脚处加指兆锋上你要的字，最后XX2位用页码代替猜皮。唯晌不过前几页个位数十位数的页码需要你自己加上1~2个0。

设置档御页脚写上“审行巧岩（川）00xx
”，再设置页码，然后调整页码位宽兆置！