問：各版本CorelDraw如何插入頁碼？

請(qǐng)問，在Coreldraw9中怎樣插入頁碼，讓頁碼在頁面的右下角

答：Coreldraw本身不帶直接插入頁碼功能，這不能不說是一大遺憾，

如何在CorelDraw中插入頁碼

。要實(shí)現(xiàn)這一功能，以前基本上都是手動(dòng)去完成：幾張幾十張還好搞定，幾百張甚至上千張排書的時(shí)候就比較困難。

Coreldraw 11以后的版本在“工具－VB執(zhí)行”項(xiàng)里有直接的“頁碼插入插件”，不過功能比較單一，只允許設(shè)計(jì)文字的一些基本屬性，對(duì)于想在頁碼上做點(diǎn)花樣文章，還是要手動(dòng)CtrL+C、CbrL+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中插入頁碼

先把整本書排完，頁碼暫不理，

電腦資料

《如何在CorelDraw中插入頁碼》(http://www.msguai.com)。排完后選菜單：工具-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