1樓：灰姑娘的霸氣
首先找到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&
wdprintdocumentcontent, copies:=1, pages:=」", pagetype:=wdprintallpages, _
manualduplexprint:=false, collate:=true, background:=true, printtofile:= _
false, printzoomcolumn:=0, printzoomrow:=0, printzoom*****width:=0, _
printzoom*****height:=0
end if
if (i >= 10) and (i < 100) then
selection.typetext text:=」00″ & i&
wdprintdocumentcontent, copies:=1, pages:=」", pagetype:=wdprintallpages, _
manualduplexprint:=false, collate:=true, background:=true, printtofile:= _
false, printzoomcolumn:=0, printzoomrow:=0, printzoom*****width:=0, _
printzoom*****height:=0
end if
if (i >= 100) and (i < 1000) then
selection.typetext text:=」0″ & i&
wdprintdocumentcontent, copies:=1, pages:=」", pagetype:=wdprintallpages, _
manualduplexprint:=false, collate:=true, background:=true, printtofile:= _
false, printzoomcolumn:=0, printzoomrow:=0, printzoom*****width:=0, _
printzoom*****height:=0
end if
if (i >= 1000) and (i < 10000) then
selection.typetext text:=i
wdprintdocumentcontent, copies:=1, pages:=」", pagetype:=wdprintallpages, _
manualduplexprint:=false, collate:=true, background:=true, printtofile:= _
false, printzoomcolumn:=0, printzoomrow:=0, printzoom*****width:=0, _
printzoom*****height:=0
end if
selection.typebackspace
selection.typebackspace
selection.typebackspace
selection.typebackspace
next
end sub
2樓：叢通圖門蘭若
提問不明確。
如果是把一頁打50分，要求每列印一分生成一個序列號，這隻有藉助巨集的功用了。
如果是多頁列印，不想序列號是頁碼且放在頁尾中，啟用頁尾，在第1頁頁尾中修改頁碼為no.1，並且將其拖出頁尾，可以放置在你想放置的地方，序列號同頁碼一樣自動生成。
3樓：匿名使用者
在這個地方引用頁碼，把同樣的內容複製300份，做成一個三百頁的檔案，一變二，二變四，四變八，八變16……，
4樓：匿名使用者
使用這款現成的，勾選僅遞增列印。
5樓：匿名使用者
這個可使用郵件形式實現，先通過excel建立一個編號列：12-09-001~13-09-300,這個拖動就可容易實現。
然後進入郵件功能區，插入收件人，並進行地址域匹配。然後列印。
思路就這樣。
另外，就是可以用vba，將不表序號的表複製300頁，vba設定相應的序號，編成巨集，執行。
這個辦法比較笨，但靈活，任意形式的編號都可以。
希望對你有用
word裡怎麼自動修改序號
6樓：少年初如夢
更改word文件中的 自動編號值，需要通過「設定編號值」來實現。
1、如圖1所示，假設現在想從第3行開始，從「10」開始編號。先將滑鼠指標放在「3」正上方並單擊左鍵，這時編號」3「處於被選中狀態。
2、單擊滑鼠右鍵並選擇」設定編號值「。
3、在彈出的」起始編號「選項卡中進行設定，這裡將編號值改為」10「，然後單擊」確定「。
4、最終效果如圖4。
7樓：匿名使用者
用專案編號修改，或者先利用excel做巧妙處理，再拷貝回word。如果處理不了，請發[email protected]，我幫你弄。
8樓：張—峰
選中所有的文字右鍵——專案和編號——編號
word裡已有的序號怎麼變成自動序號
excel如何自動生成重複序號，Excel中如何把重複資料自動編序號
第一種方法 在a1輸入1，在a2輸入2，再選中a1和a2，將游標移到a2右下角小黑點處，游標變為十字型時按住左鍵向下拖即可。第一種方法,如果中間有一行帶序號的給刪除了的話，那就不得不重新填充了用這個方法 序列 1 2 3 4 5 確定開始行是第n行，則在第n行輸入 row n 1 下拉填充，這樣，無...
EPLAN P8中如何更改導線自動連後的顏色
選項 層管理 連線符號 自動連線，更改你所要的顏色，預設是紅色 eplan p8 v2.1如何設定自動連線，就是有沒有設定自動連線的選項啊？看下設計模式，如果未開啟設計模式，是不會自動連線的。我在用eplan p8.20畫圖時裝置與端子不能自動連線了！是什麼原因啊？5 用eplan p8.20畫圖時...
系統時間自動更改怎麼解決？？？如何更改系統時間
我的電腦前兩天中病毒是也是這樣，把所有的防毒軟體能升級的都升級了，然後全面防毒。病毒為，按以下步驟防毒 1 進入安全模式 2 開啟sreng 沒有安裝此軟體的，從這個 http html 3 選擇 啟動專案 服務 win32服務應用程式 然後點 隱藏經認證的微軟專案 4 選中服務名 d3eb8530...