Coreldraw本身不帶直接插入頁碼功能，這不能不說是一大遺憾。要實(shí)現(xiàn)這一功能，以前基本上都是手動(dòng)去完成：幾張幾十張還好搞定，幾百張甚至上千張排書的時(shí)候就比較困難。

　Coreldraw 11以后的版本在“工具－VB執(zhí)行”項(xiàng)里有直接的“頁碼插入插件”，不過功能比較單一，只允許設(shè)計(jì)文字的一些基本屬性，對(duì)于想在頁碼上做點(diǎn)花樣文章，還是要手動(dòng)CtrL+C、CtrL+V。習(xí)慣了也快，可以用條碼自動(dòng)插入跟手工相結(jié)合，相信Coreldraw操作熟練了，幾百頁也不是什么難事。

　　具體操作步驟：

　　先排完版后，再執(zhí)行這個(gè)vba宏即可。
　　選擇，“工具/visual basic/執(zhí)行宏”
　　下拉選單“Macros in”選“All Standard Projects”
　　上面“Macros Name”選“Corel macros,PageNumbering”
　　接著按“執(zhí)行 ”
　　接下來的窗口就依你需要而自行設(shè)定
　　"#"表示該頁頁碼
　　"*"表示總頁數(shù)
　　如果你輸入all *;this#
　　頁碼即顯示all8;this1，(假設(shè)文件有8頁，在第1頁之頁碼)

　　注意：版面好像只能設(shè)定在 a4 ，其它尺寸好像要自己設(shè)定位置！！
　　“linsong”提供適合Coreldraw12：打開vba編輯器刪掉以下這幾句，即可適合各尺寸，可以試試看！

　　d.Unit = CoreldrawrInch
　　d.DrawingOriginX = -4.25
　　d.DrawingOriginY = -5.5

　　Coreldraw 9中插入頁碼

　　先把整本書排完，頁碼暫不理。排完后選菜單：工具-visual basic-執(zhí)行巨集-下拉選單Macros in:選All Standard Projects上面Macros Name:選Corel macros，PageNumbering接著按執(zhí)行。接下來的彈出窗口設(shè)置好文字的一些基本屬性再確定就可以了。

　  Coreldraw9中沒有此插件，需要自定義SCRIPT。代碼如下：

　　DIM TXT$(10)
　　DIM ETXT$(10)
　　For i=1 TO 10
　　    FOR j=1 TO 50
　　　  TXT$(i)=RIGHT("00" & j+(i-1)*50,3)
　　  　ETXT$(i)=ETXT$(i) +CHR(13) + TXT$(i)
　　    NEXT j
   　　 WITHOBJECT "Coreldraw.Automation.9"
　　　　x&=-873448+(i-1)*150000
　　　　y&=1280406
　　 　.CreateArtisticText   CHR(64+i)+ETXT(i) ,x&, y&
　　　　.RecorderEditTextCharAtbributes 0, 0, "Arial", 7, 160, 0, 0, 0, 0, 0, 0, 1000, 800, 0, 0
    　　END WITHOBJECT
　　Next i