让WORD在打印时自动加上打印份数编

让WORD在打印时自动加上打印份数编RevisedbyBLUEontheafternoonofDecember12,2020.让WORD在打印时自动加上打印份数编让WORD在打印时自动加上打印份数编号第一步首先找到Word里的宏按钮，如图然后，会弹出宏查看窗口，起一个名字然后选择创建，如图第二步在弹出的宏录制窗口内输入宏代码，然后保存，如图宏代码如下：SubPrintCopies()‘‘Macro1Macro‘‘DimiAsLongDimlngStartDimlngCountlngCount=InputBox(“Pleaseenterthenumbe...

RevisedbyBLUEontheafternoonofDecember12,2020.让WORD在打印时自动加上打印份数编让WORD在打印时自动加上打印份数编号第一步首先找到Word里的宏按钮，如图然后，会弹出宏查看窗口，起一个名字然后选择创建，如图第二步在弹出的宏录制窗口内输入宏代码，然后保存，如图宏代码如下：SubPrintCopies()‘‘Macro1Macro‘‘DimiAsLongDimlngStartDimlngCountlngCount=InputBox(“Pleaseenterthenumberofcopiesyouwanttoprint”,“Pleaseenterthenumberofcopiesyouwanttoprint”,1)IflngCount=“”ThenExitSubEndIflngStart=InputBox(“Enterthestartingnumberyouwanttoprint”,“Enterthestartingnumberyouwanttoprint”,1)IflngStart=“”ThenExitSubEndIfFori=lngStartTolngCountIfi<10ThenSelection.TypeTextText:=”000″&i&Application.PrintOutFileName:=”",Range:=wdPrintAllDocument,Item:=_wdPrintDocumentContent,Copies:=1,Pages:=”",PageType:=wdPrintAllPages,_ManualDuplexPrint:=False,Collate:=True,Background:=True,PrintToFile:=_False,PrintZoomColumn:=0,PrintZoomRow:=0,PrintZoomPaperWidth:=0,_PrintZoomPaperHeight:=0EndIfIf(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:=True,PrintToFile:=_False,PrintZoomColumn:=0,PrintZoomRow:=0,PrintZoomPaperWidth:=0,_PrintZoomPaperHeight:=0EndIfIf(i>=100)And(i<1000)ThenSelection.TypeTextText:=”0″&i&Application.PrintOutFileName:=”",Range:=wdPrintAllDocument,Item:=_wdPrintDocumentContent,Copies:=1,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.PrintOutFileName:=”",Range:=wdPrintAllDocument,Item:=_wdPrintDocumentContent,Copies:=1,Pages:=”",PageType:=wdPrintAllPages,_ManualDuplexPrint:=False,Collate:=True,Background:=True,PrintToFile:=_False,PrintZoomColumn:=0,PrintZoomRow:=0,PrintZoomPaperWidth:=0,_PrintZoomPaperHeight:=0EndIfSelection.TypeBackspaceSelection.TypeBackspaceSelection.TypeBackspaceSelection.TypeBackspaceNextEndSub3第三步把输入光标放在你想要添加打印份数编号的地方，然后运行宏，会弹出如下窗口，第一个窗口是输入打印份数，第二个窗口是输入起始数字，如图

                    本文档为【让WORD在打印时自动加上打印份数编】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

让WORD在打印时自动加上打印份数编

你可能还喜欢