如何在word中实现连续编号自动打印
因机关工作需要，经常在发文打印时，需要逐份输入连续文件编号。在百度上查找相关方法，包括VBA程序都不满意，大多有点错误。因此手写了这份代码，现提供同学们参考：
Sub PrintCopies()
Dim i As Integer
Dim b As Integer
Dim a As Integer
a = InputBox(“打印份数”, “请输入打印份数”, 1)
b = InputBox(“开始编号”, “请输入开始编号”, 1)
c = a + b - 1
For i = b To c
If i < 10 Then
Selection.TypeText Text:=“000” & i
ElseIf i < 100 Then
Selection.TypeText Text:=“00” & i
ElseIf i < 1000 Then
Selection.TypeText Text:=“0” & i
Else
Selection.TypeText Text:=i
End If
Application.PrintOut
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Next
End Sub
大家复制后，拷入宏后，可以直接使用。