VBA小白的福音 如何在EXCEL中实现连续编号自动更新打印？

firelip: 为什么打印后不能是0001呢，而且编号也不能自动加1呢？

m0_61411028: 这个代码去宏运行，没反应没提示呢，什么问题

m0_61411028: 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

Caesar446: 在机关单位，怎么使用word呈送不同领导？即word内容不同，但是呈送的领导有很多，在页首相同位置填上不同领导的姓名，然后打印出来，求解

张立富: 如何实现比如两份同一个编号呢