【用VBA实现Word自动打印序列号】

用VBA实现

一、打开需要打印的word文档，按Alt + F11 调查VBA编程窗口

二、如下图，插入代码模块

 三、在上图右边窗口中贴入如下代码(英文编码)

Sub PrintCopies()

    Dim i As Long
    Dim lngStart    '开始编号
    Dim lngCount    '结束编号
    
    Dim leftWord As String
    Dim rightWord As String

    leftWord = "2204B"          '序列号前缀
    rightWord = ""              '序列号后缀
    
    lngStart = InputBox("开始打印编号", "请输入开始打印编号！", 1)
    If lngStart = "" Then
        Exit Sub    '开始编号为空退出
    End If
    
    lngCount = InputBox("结束打印编号", "请输入结束打印编号！", 1)
    If lngCount = "" Then
        Exit Sub    '结束编号为空退出
    End If

    For i = lngStart To lngCount
        Selection.Text = leftWord & Format(i, "00") & rightWord
        'Selection.TypeText Text:=leftWord & Format(i, "00")
        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
        Selection.Text = ""
    Next

End Sub

四、将鼠标焦点放在word文档指定位置，然后点击代码窗口的运行按钮（小三角），如下图

期间会提示用户输入开始编号和结束编号

五、效果如下图（敏感信息已删除）