如何在中讓合同編號在列印時自動按順序生成

時間 2021-06-22 14:50:50

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樓:匿名使用者

利用word中的 revnum域 可以實現的:1、新建乙份空白文件,將合同內容複製到新文件中;2、選中後面的 001 然後按 delete將其刪除,按 ctrl + f9 插入 ,接著在裡面輸入 revnum \# "000" ;3、最後按f9鍵更新 即可出現 001 。 操作說明:

單擊選單 工具 → 選項 → 列印 → √更新域(這樣就保證每次列印時域會自動更新)。revnum 是記錄該文件儲存次數的,每儲存一次,該記錄會自動累加1;因此,完成上述操作後(不要儲存),先列印第乙份空白文件;列印完成後儲存文件(檔案 → 儲存 或者 ctrl + s 都可以),這樣雖然表面001沒有變成002,但實際上域已經自動累加記錄了,只是沒有自動更新而已,這時再列印乙份出來,你就會發現序號已經變成了002。 總之,每列印一次之後,儲存一下文件;這樣應該就沒有問題了。

3樓:匿名使用者

列印的時候在word裡是設定不出的,除非你的印表機有這功能, 也只有你在word裡設定好了還差不多

4樓:匿名使用者

可以嘗試這款現成的工具,勾選遞增列印。

在中雙面列印時如何在中背面設定為空白

方法和詳細的操作步驟如下 1 第一步,計算機開啟word文件,見下圖,轉到下面的步驟。2 第二步,執行完上面的操作之後,按快捷鍵 ctrl p 進入列印頁面,見下圖,轉到下面的步驟。3 第三步,執行完上面的操作之後,在頁數下的選項中選擇 雙面列印 選項,見下圖,轉到下面的步驟。4 第四步,執行完上面...

如何在cad佈局中列印,CAD佈局列印如何在一個佈局頁面列印多張圖紙?

刀劍上的舞者 材料 工具 cad 1 如果需要列印圖紙,大部分做法是模型空間裡插入一個圖紙框,然後縮放圖紙框大小,調整到和圖紙差不多,然後列印的時候用視窗選擇一個個的圖框列印。2 其實,本來列印就應該在佈局裡完成,切換到佈局頁面,所謂佈局就是用來設定你的列印佈局的。3 佈局裡面預設是一頁a4紙,可以...

如何在wps文字中插入數字編號,wps中word文件插入表格,如何插入的表格中實現序號的自動填寫?

悄悄 word中的資料排序通常是針對某一列的資料,它可以將 某一列的資料按照一定規則排序,並重新組織各行在 中的次序。下面我們以word 2003為例,給大家介紹 中資料排序的兩種主要方法 方法一 使用 和邊框 工具欄中的 升序排序 和 降序排序 按鈕 顯示 和邊框 工具欄,如果上述兩個按鈕沒有顯示...