word文档打印时如何自动编号？

首先在Word中找到宏按钮。

弹出宏查看窗口，给定一个名称并选择创建。

在弹出的宏录制窗口中输入宏代码，然后保存。参见下面的宏代码。

将输入光标放在要添加打印号的地方，然后运行宏，会弹出如下窗口。第一个窗口用于输入打印号，第二个窗口用于输入起始号。

？宏代码如下:

子打印份数()

Macro1宏

暗淡我一样长

暗淡的星星

Dim lngCount

lngCount = InputBox("请输入您要打印的份数"，"请输入您要打印的份数"，1)

如果lngCount = " "那么

出口接头

如果…就会结束

lngStart = InputBox("输入要打印的起始编号"，"输入要打印的起始编号"，1)

如果lngStart = " "那么

出口接头

如果…就会结束

For i = lngStart至lngCount

如果我& lt那么10

选择。TypeText文本:= " 000 "& amp；我& amp

申请。打印输出文件名:= " "，范围:=wdPrintAllDocument，项目:= _

wdPrintDocumentContent，Copies:=1，Pages:= " "，PageType:=wdPrintAllPages，_

ManualDuplexPrint:=False，Collate:=True，Background:=True，PrintToFile:= _

False，PrintZoomColumn:=0，PrintZoomRow:=0，printzoompaperwwidth:= 0，_

PrintZoomPaperHeight:=0

如果…就会结束

如果(i & gt= 10)和(i & lt100)

选择。TypeText文本:= " 00 "& amp；我& amp

申请。打印输出文件名:= " "，范围:=wdPrintAllDocument，项目:= _

wdPrintDocumentContent，Copies:=1，Pages:= " "，PageType:=wdPrintAllPages，_

ManualDuplexPrint:=False，Collate:=True，Background:=True，PrintToFile:= _

False，PrintZoomColumn:=0，PrintZoomRow:=0，printzoompaperwwidth:= 0，_

PrintZoomPaperHeight:=0

如果…就会结束

如果(i & gt= 100)和(i & lt1000)

选择。TypeText文本:= " 0 "& amp；我& amp

申请。打印输出文件名:= " "，范围:=wdPrintAllDocument，项目:= _

wdPrintDocumentContent，Copies:=1，Pages:= " "，PageType:=wdPrintAllPages，_

ManualDuplexPrint:=False，Collate:=True，Background:=True，PrintToFile:= _

False，PrintZoomColumn:=0，PrintZoomRow:=0，printzoompaperwwidth:= 0，_

PrintZoomPaperHeight:=0

如果…就会结束

如果(i & gt= 1000)和(i & lt10000)

选择。类型文本文本:=i

申请。打印输出文件名:= " "，范围:=wdPrintAllDocument，项目:= _

wdPrintDocumentContent，Copies:=1，Pages:= " "，PageType:=wdPrintAllPages，_

ManualDuplexPrint:=False，Collate:=True，Background:=True，PrintToFile:= _

False，PrintZoomColumn:=0，PrintZoomRow:=0，printzoompaperwwidth:= 0，_

PrintZoomPaperHeight:=0

如果…就会结束

选择。键入退格

然后

末端接头