word怎么生成打印编号 如何为word文档添加序号,每打印一份递增一
\u5982\u4f55\u53ea\u5728\u4e00\u9875word\u4e2d\u8fdb\u884c\u7f16\u53f7\uff0c\u6253\u5370\u591a\u5f20\u5b83\u81ea\u52a8\u7f16\u53f7\u3002\u53ea\u5728\u4e00\u9875word\u4e2d\u8fdb\u884c\u7f16\u53f7\uff0c\u6253\u5370\u591a\u5f20\u5b83\u81ea\u52a8\u7f16\u53f7\u7684\u5177\u4f53\u64cd\u4f5c\u6b65\u9aa4\u5982\u4e0b\uff1a
1\u3001\u9996\u5148\uff0c\u6253\u5f00\u8981\u7f16\u8f91\u7684word\u3002
2\u3001\u70b9\u51fb\u83dc\u5355\u680f\u7684\u201c\u63d2\u5165\u201d\u9009\u9879\u4e0b\u7684\u201c\u9875\u7801\u201d\u9009\u9879\u3002
3\u3001\u8df3\u51fa\u4e0b\u62c9\u83dc\u5355\uff0c\u6211\u4eec\u9009\u62e9\u201c\u9875\u9762\u5e95\u7aef\u201d\uff0c\u518d\u6839\u636e\u559c\u597d\u9009\u62e9\u4e00\u6b3e\u9875\u9762\u5f62\u5f0f\u3002
4\u3001\u8fd9\u6837\u9875\u9762\u5e95\u90e8\u5c31\u51fa\u73b0\u4e86\u9875\u7801\u3002
5\u3001\u6211\u4eec\u53cc\u51fb\u4e00\u4e0b\u9875\u7801\uff0c\u5f39\u51fa\u5bf9\u8bdd\u6846\uff0c\u53ef\u4ee5\u8bbe\u7f6e\u5b57\u4f53\u7684\u989c\u8272\u3001\u6837\u5f0f\u548c\u5927\u5c0f\u3002
6\u3001\u6700\u540e\u6211\u4eec\u5c31\u5f97\u5230\u4e86\u7f16\u8f91\u597d\u7684\u9875\u7801\u4e86\u3002
\u53ef\u4ee5\u6709\u8fd9\u4e2a\u529f\u80fd\u7684\u3002\u628a\u90ae\u4ef6\u5408\u5e76\u7528\u4e0a\u3002\u5728excel\u8868\u683c\u4e2d\u6dfb\u52a0\u7f16\u53f7\u5217\uff0c\u628a\u7f16\u53f7\u4eceNO.10001\u62c9\u5230\u4f60\u6240\u9700\u8981\u6253\u5370\u7684\u6bd4\u5982NO.10100
\uff0c\u7136\u540e\u628a\u6570\u91cf\u6e90\u7684\u8868\u683c\u4e0eWORD\u7968\u5370\u76f8\u8fde\u63a5
\u518d\u751f\u6210\u6253\u5370\u9875
\u5c31\u4f1a\u4ece\u4e00\u62c9\u5230100\u7684\u7968\u53f7
第一步
首先找到Word里的宏按钮，如图。
然后，会弹出宏查看窗口，起一个名字然后选择创建，如图。
第二步
在弹出的宏录制窗口内输入宏代码，然后保存，如图。
宏代码如下：
Sub PrintCopies()
‘
‘ 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
Selection.TypeText Text:=”000″ & 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 >= 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&
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 >= 1000) And (i < 10000) Then
Selection.TypeText Text:=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
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Next
End Sub
第三步
把输入光标放在你想要添加打印份数编号的地方，然后运行宏，会弹出如下窗口，第一个窗口是输入打印份数，第二个窗口是输入起始数字，如图。
用“邮件合并”解决。
需要建立另外一个word文档或excel表格，在“零件编号”后面的格子中，引用另外一个文件。
可以参照另一个帖子。http://zhidao.baidu.com/question/510891546.html?qbl=relate_question_4
绛旓細宸ュ叿/鍘熸枡 鐢佃剳锛寃lold鏂囨。 鏂规硶/姝ラ 1銆侀鍏堬紝鎵撳紑涓绡囬渶瑕佽繘琛岃嚜鍔缂栧彿鐨word鏂囨。銆2銆佹闈㈠弻鍑绘墦寮word鏂囨。锛岄変腑瑕鐢熸垚搴忓垪鍙风殑涓閮ㄥ垎鏂囧瓧鍐呭銆3銆佺偣鍑讳笂鏂硅彍鍗曟爮鐨勨滃紑濮嬧濇牴鎹渶瑕侀夋嫨锛屽揩鎹风敓鎴愬簭鍒楀彿鐨勫浘鏍囥4銆侀夋嫨瀹屾垚涔嬪悗锛岀偣鍑烩滅‘瀹氣濇坊鍔犲簭鍒楀彿鎴愬姛銆
绛旓細鍏蜂綋姝ラ濡備笅锛氶渶瑕佸噯澶囩殑鏉愭枡鍒嗗埆鏄細鐢佃剳銆Word鏂囨。銆1銆侀鍏堟墦寮闇瑕佺紪杈戠殑Word鏂囨。锛岃繘鍏ュ埌缂栬緫椤甸潰涓2銆佺劧鍚庨変腑鎵嬪姩缂栧彿锛岀偣鍑绘墦寮娈佃惤宸ュ叿鏍忓乏涓婅缂栧彿涓殑鈥滃畾涔夋柊缂栧彿鏍煎紡鈥濄3銆佺劧鍚庡湪寮瑰嚭鏉ョ殑绐楀彛涓偣鍑绘墦寮鈥滅紪鍙锋牱寮忊濓紝閫夋嫨鎯宠鐨勬牱寮忥紝鍥炶溅纭畾銆4銆佺劧鍚庡氨瀹屾垚浜嗐
绛旓細1銆佹墦寮Word鏂囨。骞堕変腑闇瑕缂栧彿鐨勫垪銆2銆佺偣鍑诲伐鍏锋爮涓婄殑鈥滃紑濮嬧濋夐」銆3銆佸湪鈥滃紑濮嬧濋夐」涓紝鎵惧埌骞剁偣鍑烩滅紪鍙封濇寜閽4銆佸湪寮瑰嚭鐨勯夐」涓夋嫨涓涓紪鍙锋牱寮忥紝渚嬪鈥1,2,3鈥濄5銆佸鏋滈渶瑕佷粠绗竴琛屽紑濮嬬紪鍙凤紝鍙互鍒犻櫎绗竴琛岀殑搴忓彿锛岃繖鏍风浜岃灏变細浠1寮濮嬬紪鍙枫
绛旓細1銆侀鍏堬紝鎴戜滑鎵惧埌涓绡囨垜浠渶瑕佽繘琛岃嚜鍔缂栧彿鐨word鏂囨。銆2銆佹墦寮word鏂囨。锛岄変腑鎴戜滑闇瑕佽繘琛岃嚜鍔ㄧ紪鍙锋垨鑰鐢熸垚搴忓垪鍙风殑閮ㄥ垎鏂囧瓧鍐呭銆3銆佺偣鍑婚《閮ㄨ彍鍗曗滃紑濮嬧濇壘鍒拌彍鍗曚笅闈㈢殑蹇嵎鐢熸垚搴忓垪鍙风殑鍥炬爣锛堟湁涓や釜锛屽彲鏍规嵁闇瑕佽繘琛岄夋嫨锛夈4銆侀夋嫨浣犻渶瑕佺殑闇瑕佸浘鏍囦箣鍚庯紝纭畾鍗冲彲鐢熸垚鎴愬姛銆5銆佸鏋滃湪鍒氭墠鐨勫簭鍒楀彿鍥炬爣...
绛旓細1銆佺洿鎺ヨ緭鍏ワ細棣栧厛璁剧疆鍗曞厓鏍兼牸寮忎负鏂囨湰锛岄変腑杩欏垪鍙冲嚮锛岃缃崟鍏冩牸鏍煎紡涓烘枃鏈紝鐒跺悗杈撳叆锛2銆佷篃鍙互鐢ㄥ叕寮忥細=TEXT(ROW(A1),"00")涓嬫媺銆
绛旓細1銆佹墦寮闇瑕佽繘琛岃缃殑Word鏂囨。,閫変腑闇瑕佹坊鍔缂栧彿鐨勫唴瀹广 2銆佸皢Word鏂囨。鍒囨崲鍒板姛鑳藉尯鐨勨滃紑濮嬧濋夐」鍗° 3銆佸湪娈佃惤缁勫唴,鎵惧埌鈥滅紪鍙封濇寜閽,鐐瑰嚮鈥滅紪鍙封濇寜閽,鐩稿簲鍐呭鍗冲彲琚紪鍙枫 4銆佺偣鍑烩滅紪鍙封濇寜閽悗闈㈢殑鈥滀笅鎷変笁瑙掆,浼氬嚭鐜颁笅鎷夋,鍙互浠庝腑閫夋嫨鑷繁鍠滄鐨勭紪鍙峰舰寮忋 宸茶禐杩 宸茶俯杩< 浣犲杩欎釜鍥炵瓟鐨...
绛旓細閽堝鎮ㄨ繖绉嶇幇璞★紝寤鸿鎮ㄥ皢闇瑕佽瀹氱殑閮ㄥ垎鍚屾椂閫変腑锛岀劧鍚庡啀娆¤繘琛岃嚜鍔缂栧彿 浠PS 2019涓轰緥 1銆佹墦寮闇瑕佽繘琛屼慨鏀圭殑鏂囨。 2銆侀変腑闇瑕佷慨鏀圭殑鍖哄煙 3銆佷緷娆＄偣鍑烩滃紑濮嬧--->鈥滅紪鍙封4銆佺偣鍑烩滆嚜瀹氫箟缂栧彿鈥5銆佸湪寮瑰嚭鐨勭晫闈㈤夋嫨鑷繁闇瑕佺殑缂栧彿锛岀劧鍚庡湪閫夋嫨鑷畾涔夎繘琛屼慨鏀 ...
绛旓細浼欎即浠紝涓涓ソ鐨勬枃妗ｄ笉浠呰鏈夌粺涓鎬э紝鏇撮渶瑕佹湁鏉＄悊鎬у拰閫昏緫鎬э紝鎬庝箞鏍锛熸湁鍚屾劅锛熸墍浠ユ帴涓嬫潵瑕佸涔犵殑Word缂栧彿寰堥噸瑕佸摝锛屼竴璧锋潵瀛︿範鍚с 鍦ㄢ滃紑濮嬧斺旀钀解濆姛鑳藉尯涓壘鍒扮紪鍙锋寜閽 锛堝氨鍦ㄩ」鐩鍙锋寜閽殑鏃佽竟锛夛紝鍒╃敤杩欎釜鎸夐挳灏卞彲浠ュ揩閫熶负閫夋嫨鐨刉ord娈佃惤娣诲姞涓娾1銆2銆3鈥︹︹濈瓑缂栧彿浜 鍚屾牱...
绛旓細璁剧疆缂栧彿涓鸿嚜鍔ㄧ紪鍙风殑姝ラ锛1銆佹墦寮Word鏂囨。锛屽湪寮濮嬭彍鍗曟爮涓壘鍒版钀介夐」鐨勯夋嫨妗嗐2銆佹壘鍒伴夐」涓殑缂栧彿鏍囧織锛岀偣鍑婚渶瑕佺殑缂栧彿杩涜璁剧疆銆3銆侀夋嫨鑷姩缂栧彿鍚庯紝鏁插嚮鍥炶溅閿悗鍗冲彲瀹屾垚鑷姩缂栧彿锛
绛旓細Word鑷姩缂栧彿鐨勬柟娉曪細宸ュ叿鍘熸枡 Windows10绯荤粺2004 Word365 鐢佃剳鑱旀兂y7000 鏂规硶姝ラ濡備笅锛1銆佹墦寮Word閫変腑闇瑕佽嚜鍔ㄧ紪鍙风殑鍐呭锛屽涓嬪浘鎵绀猴細2銆佸湪鈥滃紑濮嬧濋夐」鍗′腑鎵惧埌鈥滄钀解濓紝鐐瑰嚮鈥滅紪鍙封濇梺杈圭殑涓嬫媺閫夋嫨鎸夐挳濡傚浘鎵绀猴細3銆佸湪缂栧彿涓嬫媺閫夋嫨鑿滃崟涓夋嫨闇瑕佺殑缂栧彿鏍峰紡鍗冲彲锛屽涓嬪浘鎵绀猴細4銆佽繑鍥炰富鏂囨。锛屽彂鐜...
