如何在Word中让合同编号在打印时自动按顺序生成

Question

想先把空白合同打出，但是如何在Word让合同编号在打印时自动按顺序生成呢？如：后面的001如何在打印时能够自动生成002，003，004......

Answer 1

1、首先，我们找到一篇我们需要进行自动编号的word文档。

2、打开word文档，选中我们需要进行自动编号或者生成序列号的部分文字内容。

3、点击顶部菜单“开始”找到菜单下面的快捷生成序列号的图标（有两个，可根据需要进行选择）。

4、选择你需要的需要图标之后，确定即可生成成功。

5、如果在刚才的序列号图标库里没有找到你想要的符号编号。可点击“其它编号”进行更多的选择。

6、当然我们也可以在wps中，复制好你需要进行编号的文字，单击鼠标右键-----项目符号和编号。

Answer 2

利用Word中的 RevNum域 可以实现的：1、新建一份空白文档，将合同内容复制到新文档中；2、选中后面的 001 然后按 Delete将其删除，按 Ctrl + F9 插入 { }，接着在里面输入 REVNUM \# "000" ；3、最后按F9键更新 即可出现 001 。 操作说明：单击菜单 工具 → 选项 → 打印 → √更新域（这样就保证每次打印时域会自动更新）。RevNum 是记录该文档保存次数的，每保存一次，该记录会自动累加1；因此，完成上述操作后（不要保存），先打印第一份空白文档；打印完成后保存文档（文件 → 保存 或者 Ctrl + S 都可以），这样虽然表面001没有变成002，但实际上域已经自动累加记录了，只是没有自动更新而已，这时再打印一份出来，你就会发现序号已经变成了002。 总之，每打印一次之后，保存一下文档；这样应该就没有问题了。

Answer 3

首先找到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

Answer 4

可以尝试这款现成的工具，勾选递增打印。

Answer 5

打印的时候在Word里是设置不出的，除非你的打印机有这功能， 也只有你在Word里设置好了还差不多