资源描述：
《如何让WORD在打印时自动加上打印份数编号.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、如何让WORD在打印时自动加上打印份数编号bynosperon一月5th,2011问题的提出：老婆所在的公司需要做2011年整年的文档和表格，里面的编号随着打印份数自动更新：比如需要打印100份，每份编号则按顺序从0001排到0100。在网上google了一下，也有不少网友提出了类似的问题：“公司有一份调查表，需要打印100份，每份都要有一个编号，从000001到000100。如何让WORD在打印时自动加上打印份数编号？”这个需要用到word的宏操作，感觉它和ps里面的action一样，就是可以让用户自定义一些操作，让宏来重
2、复执行。word2007有宏录制功能（在view视窗栏里面）。方法一：宏循环嵌套先手动几次：改编号——打印——改下一个编号——再打印，让宏来记录这些动作。然后查看这些基本动作的宏代码，在里面加入循环和嵌套。经过自己几次尝试和修改，得到如下宏代码： SubPrintCopies()''Macro1Macro''DimiAsLongDimlngStartDimlngCountlngCount=InputBox("Pleaseenterthenumberofcopiesyouwanttoprint","Pleaseenterthe
3、numberofcopiesyouwanttoprint",1)IflngCount=""ThenExitSubEndIflngStart=InputBox("Enterthestartingnumberyouwanttoprint","Enterthestartingnumberyouwanttoprint",1)IflngStart=""ThenExitSubEndIfFori=lngStartTolngCountIfi<10ThenSelection.TypeTextText:="000"&i&Application.
4、PrintOutFileName:="",Range:=wdPrintAllDocument,Item:=_wdPrintDocumentContent,Copies:=1,Pages:="",PageType:=wdPrintAllPages,_ManualDuplexPrint:=False,Collate:=True,Background:=True,PrintToFile:=_False,PrintZoomColumn:=0,PrintZoomRow:=0,PrintZoomPaperWidth:=0,_PrintZ
5、oomPaperHeight:=0EndIf If(i>=10)And(i<100)ThenSelection.TypeTextText:="00"&i&Application.PrintOutFileName:="",Range:=wdPrintAllDocument,Item:=_wdPrintDocumentContent,Copies:=1,Pages:="",PageType:=wdPrintAllPages,_ManualDuplexPrint:=False,Collate:=True,Background:=T
6、rue,PrintToFile:=_False,PrintZoomColumn:=0,PrintZoomRow:=0,PrintZoomPaperWidth:=0,_PrintZoomPaperHeight:=0EndIf If(i>=100)And(i<1000)ThenSelection.TypeTextText:="0"&i&Application.PrintOutFileName:="",Range:=wdPrintAllDocument,Item:=_wdPrintDocumentContent,Copies:=1
7、,Pages:="",PageType:=wdPrintAllPages,_ManualDuplexPrint:=False,Collate:=True,Background:=True,PrintToFile:=_False,PrintZoomColumn:=0,PrintZoomRow:=0,PrintZoomPaperWidth:=0,_PrintZoomPaperHeight:=0EndIfIf(i>=1000)And(i<10000)ThenSelection.TypeTextText:=iApplication.
8、PrintOutFileName:="",Range:=wdPrintAllDocument,Item:=_wdPrintDocumentContent,Copies:=1,Pages:="",PageType:=wdPrintAllPages,_ManualDuplexPrint:=Fa
