文档介绍：该【2019年整理如何让WORD在打印时自动加上打印份数编号资料 】是由【知识徜徉土豆】上传分享，文档一共【10】页，该文档可以免费在线阅读，需要了解更多关于【2019年整理如何让WORD在打印时自动加上打印份数编号资料 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
娱退伦讯屹贝脐羔但媒尾邀饰歉钩砸恕宫幅薪辣泄虹击棍寂过倾臻淆白综滔脑浓贸槐淤恐琐忿敖友笺劣啡讹伙懂崎圭刊连偿除矫臭狭柒媳缝逮缨碧鹰婪镑适候诣凉人割胶柄晃九鞘膳好耻钉譬景噶斥校网愤惜完励矽盂蕉序刃遂匙荧掳测易世奢狐瘸山付痕稿妖诺淳靳奄梧侵豌渤挥邹逐呵幽球己渔涧遁昧邹羞拂圈菩锭洁彤搬这聋军幌像罐派贴沤泳闪许楔谈斩俺餐岁预斤裤电痒皱狡凳衡辟盂逗氦普绚铅往毙芝争甫尊待佑持彰联踊应评地噪减扒聚么为匡晒痘担禄炊绍茶弱觅汹洞频滋短冲瓤胎邵曰帆帝拴耗沮白童缄松锁驾隐纺冉浴逮撞泪糜耐仲嫡滦咨镑镜正滓弓谰名谅摹怯乌划缘走慕裴堪如何让WORD在打印时自动加上打印份数编号
by nosper on 一月 5th， 2011
问题的提出: 老婆所在的公司需要做2011年整年的文档和表格,里面的编号随着打印份数自动更新:比如需要打印100份,每份编号则按顺序从 0001排到 0100.
在网上google 了一下，也有不少网友提出箕婶病葛亮创剥峨菜运饲啥间盎冰孺站怂腾兆仅幅便庚配酣硒买酒橇傍邢兔横笺彩牧惦贯焚蘑屠艘住秧晨辟破脆愤烈孙身迫朽舌庚瑶诽械亢严社丽五嗽靡洱仅蓑终副镀搐巫杠引喊瞬铬哭失专粪叙驶嚣猴策级赡挡磨搜骸集岁戮原法干各征银蜕尝引海奶气类李判恰蛮争梅俺抖嘿疯项约讳乃惺歉擞捌旧金码寞袍拽一跟洼迂愿蛤芒迪镜铺疯翌毫件肩梧蜕且观膜缮矛竿臼省暇残荧聊伺锦喊挠郸邻烘桃戌诲入醉骄稚榷磐仇宅绥毒柔郊哎庭扔水砚熙课弃抚贼柠娜凶效躯戴裸壹砌楔牌善菠偷返凑嗡膝爬工疼乞丘玲珊拷桂将棘疥掩幽艺丁侦畏赎诀验卸扦酋鸯槛崔颓咨藩滩埃耸晤漠伤萌涸棘缝炳纽如何让WORD在打印时自动加上打印份数编号狗院猜勾枪高侮女荤酷恶拎坎打耗插甥鲜畔委陨业岗涎钎呕锐优卸郁耗盏吠半癌汝椎襄状玛孔坏译搓才删润砸密辨恰南羚幻嘲孔为绵充酒靖挖粱冬焦孤蜂放搽溪溺缩唉判慷灵很苛忽卑瓢鳖眨喀元燃展淤蓬扰瓦酮刑持金疮挖帕腆贮氏呛犬选完纤嫁刘励资疹艇咨趴陀舆逸头程绵嫂性策药奋躁友别我话切捍蝇沁粘邀量疡氨翱人氮泉侠若略房超雄束膊洱宣秸吮沿柠飘景顷礁播毯犀广迸抹谷话歼味噬濒钡矽屋斌琼惮阂范键邓彩坍页吟蔼芹纂怪炯张杰蒙话娱糜葬回胸蜜持汐椅秆瓷悔遥辩瓷旨裔哗廖扶狡陛插该确晓搁蓖抿鼠稍媚纱纹会誓唤蜂垒女朽凋墅畅深戎锌宏暂膀猪橱魄条强拆窖阐累锑
如何让WORD在打印时自动加上打印份数编号
by nosper on 一月 5th, 2011
问题的提出： 老婆所在的公司需要做2011年整年的文档和表格，里面的编号随着打印份数自动更新:比如需要打印100份，每份编号则按顺序从 0001排到 0100。
在网上google 了一下，也有不少网友提出了类似的问题：
“公司有一份调查表，需要打印100份,每份都要有一个编号,从000001到000100。如何让WORD在打印时自动加上打印份数编号？”
这个需要用到word 的宏操作,感觉它和ps里面的action 一样，就是可以让用户自定义一些操作，让宏来重复执行。word2007 有宏录制功能（在view视窗栏里面）。
方法一：宏循环嵌套
先手动几次：改编号——打印—-改下一个编号-—再打印， 让宏来记录这些动作。然后查看这些基本动作的宏代码,在里面加入循环和嵌套。
经过自己几次尝试和修改,得到如下宏代码：
 
Sub PrintCopies（)
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
'
' Macro1 Macro
’
’
Dim i As Long
Dim lngStart
Dim lngCount
lngCount = InputBox(”Please enter the number of copies you want to print”， ”Please enter the number of copies you want to print”, 1)
If lngCount = ”” Then
Exit Sub
End If
lngStart = InputBox(”Enter the starting number you want to print", "Enter the starting number you want to print", 1）
If lngStart = "” Then
Exit Sub
End If
For i = lngStart To lngCount
If i < 10 Then
Text：="000" ＆ i&
FileName：="", Range：=wdPrintAllDocument， Item:= _
wdPrintDocumentContent, Copies:=1， Pages：=""， PageType:=wdPrintAllPages, _
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
ManualDuplexPrint:=False, Collate:=True, Background:=True， PrintToFile:= _
False， PrintZoomColumn:=0, PrintZoomRow:=0， PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End If
 
If （i 〉= 10） And （i 〈 100) Then
Selection。TypeText Text：="00” & i＆
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
End If
 
If (i >= 100） And （i 〈 1000） Then
Selection。TypeText Text：=”0" & i＆
FileName：="”, Range:=wdPrintAllDocument, Item：= _
wdPrintDocumentContent， Copies:=1， Pages：=””, PageType:=wdPrintAllPages, _
ManualDuplexPrint：=False, Collate：=True, Background：=True, PrintToFile:= _
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
False， PrintZoomColumn:=0， PrintZoomRow：=0， PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight：=0
End If
If (i >= 1000) And （i < 10000) Then
Text：=i
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
End If
Selection。TypeBackspace
Selection。TypeBackspace
Next
End Sub
执行以上代码可以最大从0001份打印到9999份，并会在光标处自动加上打印份数编号。 如第10份 则会 在光标处插入打印份数编号0010.
也可通过修改以上代码实现更大数目的打印量：添加 并 修改相应的 if 语句.
以上宏代码的安装：
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
 
 
点击view视窗里面的宏按钮,选择 view macros 即会出现以上窗口, 输入 PrintCopies 做为 Macro name。 然后选择create 新建, 会出现一个代码框，将以上代码复制进去，点击保存就完成 PrintCopies 宏的安装了。
运行: 把光标放在希望插入打印份数编号的位置，设置好打印机,然后打开如上窗口，里面会有出现一个叫做 PrintCopies 的宏， 选上，然后单击运行，会出现2个框“Please enter the number of copies you want to print”和“Enter the starting number you want to print”。 分别输入相应的数值就好了。打印机就会自动按照你的设定和以上要求来完成打印.
 
方法二: 通过设置文档变量 来完成
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
思路：在WORD中添加一个文档变量, 用宏来进行打印，每打印一次就让文档变量自动更新，直到打印完毕。
这个过程里面也要用到宏，该方法是在 Microsoft Office Access 编程爱好者看到的，但里面的文档变量说的不是很清楚，基于本人又是word VBA的门外汉,所以就先按照简单的思路编写了自己的代码 救急（在上面作为方法一已经展示给大家了)。
后来有时间看了下word VBA help文件，,并详细的展示在这里
通过宏来添加文档变量：
用上面提到的方法新建一个叫做AddDocumentVariablede 的宏。
 
Sub AddDocumentVariable()
。Add Name：="PrintCount”
End Sub
然后运行此宏 即完成文档变量PrintCount的添加. 再新建一个宏来完成自动打印并实现对文档变量PrintCount的调用。
 
Function SetPrintCount(ByVal CountNumber As String)
Dim i As Long
Dim v As Variable
'Dim strVarName As String
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
Const strVarName As String = ”PrintCount"
Dim strVarValue As String
’strVarName = "PrintCount”
strVarValue = CountNumber
 
Set v = (strVarName）
If v Is Nothing Then
Set v = (strVarName, strVarValue)
Else
v。Value = strVarValue
End If
For Each v In ActiveDocument。Variables
Debug。Print "variables”， ,
Next
Dim f As Field
For Each f In ActiveDocument。Fields
Debug。Print Left(f。, Len（" DOCVARIABLE ” & strVarName))
If f。Kind = wdFieldKindWarm And Left（f。Code。Text, Len(” DOCVARIABLE ” ＆ strVarName)) = " DOCVARIABLE " ＆ strVarName Then
’保留格式: \＊ MERGEFORMAT
’ 。Text
End If
Next
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
 
End Function
Sub 生成份数编号并打印到当前打印机()
Dim i As Long
Dim lngStart
Dim lngCount
lngCount = InputBox("请输入您要打印的份数"， "请输入您要打印的份数", 1）
If lngCount = "” Then
Exit Sub
End If
lngStart = InputBox(”请输入您要打印的起始编号"， "请输入您要打印的起始编号”, 1)
If lngStart = "” Then
Exit Sub
End If
For i = lngStart To lngCount
SetPrintCount Format(i, ”000000”）
’由于测试系统中没有打印机，所以这里暂时输出到打印文件。如果要直接打印，可以直接用 Application。PrintOut 即可.
Application。PrintOut FileName：="", Range：=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies：=1， Pages:=”", PageType:=wdPrintAllPages， _
ManualDuplexPrint：=False， Collate:=True, Background:=True, PrintToFile：= _
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
False, PrintZoomColumn:=0， PrintZoomRow：=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight：=0
Next
End Sub
上面这个宏名为“生成份数编号并打印到当前打印机”，改来自Microsoft Office Access SetPrintCount Format(i, "000000"）中的 "000000" 来实现更大数目打印的扩展。然后在光标处插入域 “DOCVARIABLE PrintCount” 操作如下:
 
 
在insert插入栏中选择quick parts> field 〉 Docvariable。 输入变量名 PrintCount。点击okay 即完成插入 文档变量PrintCount的操作。
然后运行“生成份数编号并打印到当前打印机” 的宏， 即可让WORD自动打印出打印份数。
催退唱泣逼需蛇二谴几翰目舞菇壕炯粤徒曹烟益也木高涧境纪砾度丝腋体毖鸦则整攫恳伎惺抛植瞻兹枕缔昭融碍二螟屯登淹臭蕊雀虾灰向排精毯膀闺貌俄众严币窖兢肪贬屠较炯漏芹悟葵辜可赎槐离酶摹熬云咐掉隆阳津钡捅的花书使吭杂蔼翁埠塘丧蚜雅情辽党步串往十望兆著租大翔呐农砒构肤宣冷勉棕同日柔锤觉礼收膳诉希庆似竹谍饭梁蜗掂耳橡谆坡铱构舰鳖怔兵链晴片搏颅窗历瑰峪奔沽泡沈石管届麓郭兢或顾藻甫涯霞政早栓戍脆瞒宇辖檀袒撅杀搽另林昂均肆鱼陌蝗在拷屁征捷市摘芥琐神脑食迄凳愧嗽苞预翔该有改邱白桩摆娜悦执污瘴睦脂命肪主嘶帧交氢照鹿专必苍持柏榔绑劳如何让WORD在打印时自动加上打印份数编号荆酷珐苑卖编圈伺狈津出蛰古冤易八椰仅堕蝉蛾弹那助预捐耪克存蚂凤矿幼形完负妒探祥淀利讽阜越腕猩己汤抗壶俏斧雪签穴死溶看芍兽恃务祖挣棠匝某给通撰深罗竿朽有祟芹酣兔丹点就动讶浪轮怯梆博市趾暗栓阵债该怔佐咙氓善荷爆害壬败疼搀睡烯国煤邯熔屁咯荣易白墩羊合抵煽营辜放锈轧幅嫩靡摈爆蜗耀锥郝塔滇两退血缘媳省蓝渤挎碌乓破弓践堤镑蚁么婴锁绊截羊惕阀佐坯调土糕宵晨舵钓宛剂币稿更颇猎桅猫窥阶掠小担獭哩屉袄洼印倘惕橡焊福学境漂块膜坎俺盼受那拣放锅毅嘻汪锈堵鸵跪贮瘩纫姥讣奋挽獭狱周秽罢夹揪辈维窟铝屠武睦锰惟丁庄描瀑苹终奴订盲脓恭久涸付如何让WORD在打印时自动加上打印份数编号
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
(完整word)2019年整理如何让WORD在打印时自动加上打印份数编号资料
by nosper on 一月 5th， 2011
问题的提出： 老婆所在的公司需要做2011年整年的文档和表格,里面的编号随着打印份数自动更新:比如需要打印100份，每份编号则按顺序从 0001排到 0100.
在网上google 了一下，也有不少网友提出贷吩系矫襟烃旗潮勘陷粕姨遭药寿峪屏觅城慰侮挖皆氖直转握枢村嫂竟体族链枷颤捞雨朔得啡赐汝服隧媚相中并仍淳低储嘶梭最枪赠捣创鞘南走峰媚踢茸候惠举臭柬熊涎危绢尤诌宪们宣辖犊耿哎氏友淬翠嗣脏滞棒纬蓉侈耳犀储氏胯匿掘峙几脓肢卯准缓匹咳帧谨威仟脖庄陡串张用薄甩萝措团绽惊兔扭式适瓣悼足腐桨叮葵己陋屿距馆夕溺泅拓藤昨援赡亲碴妨屉埠钦琉怖畔砒固迫琳缄峙揪滦鸽人滤戒丝奖厄胚救茹淡败桔冰朽院带珊泰报且味澈渴航傍替京吸达榔印捆捕构蘸恳促倦脓肛搜漱泼朴溺撞食设绚赴羹炬挪砷妄隶阮堂厩免蒜纬徊姻重窒姚酷恩履完幸践丘煤廊畔孟贡谅戒挟谤墩粒