如何在Word中让合同编号在打印时自动按顺序生成
想先把空白合同打出，但是如何在Word让合同编号在打印时自动按顺序生成呢？如：后面的001如何在打印时能够自动生成002，003，004......
1、首先，我们找到一篇我们需要进行自动编号的word文档。
2、打开word文档，选中我们需要进行自动编号或者生成序列号的部分文字内容。
3、点击顶部菜单“开始”找到菜单下面的快捷生成序列号的图标（有两个，可根据需要进行选择）。
4、选择你需要的需要图标之后，确定即可生成成功。
5、如果在刚才的序列号图标库里没有找到你想要的符号编号。可点击“其它编号”进行更多的选择。
6、当然我们也可以在wps中，复制好你需要进行编号的文字，单击鼠标右键-----项目符号和编号。
首先找到Word里的宏按钮
弹出宏查看窗口，起一个名字然后选择创建
在弹出的宏录制窗口内输入宏代码，然后保存，宏代码见下方。
把输入光标放在你想要添加打印份数编号的地方，然后运行宏，会弹出如下窗口，第一个窗口是输入打印份数，第二个窗口是输入起始数字
宏代码如下：
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
本回答被网友采纳可以尝试这款现成的工具，勾选递增打印。
