各版本CorelDraw如何插入页码？
2007-05-28 12:59:36 来源：WEB开发网 闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷
闂傚倸鍊搁崐椋庣矆娓氣偓楠炲鏁撻悩鎻掔€梺姹囧灩閻忔艾鐣烽弻銉︾厵闁规鍠栭。濂告煕鎼达紕校闁靛洤瀚伴獮鎺楀箣濠靛啫浜鹃柣銏⑶圭壕濠氭煙閻愵剚鐏辨俊鎻掔墛缁绘盯宕卞Δ鍐冣剝绻涘畝濠佺敖缂佽鲸鎹囧畷鎺戭潩閹典焦鐎搁梻浣烘嚀閸ゆ牠骞忛敓锟�
婵犵數濮烽弫鍛婃叏椤撱垹绠柛鎰靛枛瀹告繃銇勯幘瀵哥畼闁硅娲熷缁樼瑹閳ь剙岣胯鐓ら柕鍫濇偪濞差亜惟闁宠桨鑳堕崝锕€顪冮妶鍡楃瑐闁煎啿鐖奸崺濠囧即閵忥紕鍘梺鎼炲劗閺呮稒绂掕缁辨帗娼忛埡浣锋闂佽桨鐒﹂幑鍥极閹剧粯鏅搁柨鐕傛嫹闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷 闂傚倸鍊搁崐鐑芥嚄閼哥數浠氱紓鍌欒兌缁垶銆冮崨鏉戠厺鐎广儱顦崡鎶芥煏韫囨洖校闁诲寒鍓熷铏圭磼濡搫顫嶅銈嗗姉閸樠囧煡婢跺á鐔兼煥鐎ｎ兘鍋撴繝姘拺鐟滅増甯掓禍浼存煕閹惧鈽夐柍缁樻煥椤繈鎳滅喊妯诲闂備礁鎲＄粙鎴︺偑閺夋垟鏋旈柡鍐ｅ亾缂佺粯绋撴禒锕傚磼濮橆剦鐎抽梻浣哥－缁垶骞戦崶顒傚祦閻庯綆浜栭弨浠嬫煙闁箑澧い鏂垮€规穱濠囨倷椤忓嫧鍋撻弽褜娼栧┑鐘宠壘閸屻劎鎲歌箛娑樼疅闁圭虎鍠楅弲鎼佹煥閻曞倹瀚�
《CorelDraw疑难杂症速查手册》收集了作者木平与各位平面设计同仁相互探讨提出的问题以及百度CD吧的提问，结合实际操作和工作中遇到的问题整理而成。其中有些问题参考了吧中好友和网络上同道中人的回答，对于一些不清楚或有疑问的问题作者都亲自用CorelDraw 9和CorelDraw X3分别验证了操作性与真实性。
本教程为分期连载教程，欢迎大家持续关注。
问：各版本CorelDraw如何插入页码？
请问，在Coreldraw9中怎样插入页码，让页码在页面的右下角
答：Coreldraw本身不带直接插入页码功能，这不能不说是一大遗憾。要实现这一功能，以前基本上都是手动去完成：几张几十张还好搞定，几百张甚至上千张排书的时候就比较困难。
Coreldraw 11以后的版本在“工具－VB执行”项里有直接的“页码插入插件”，不过功能比较单一，只允许设计文字的一些基本属性，对于想在页码上做点花样文章，还是要手动CtrL+C、CbrL+V。习惯了也快，可以用条码自动插入跟手工相结合，相信Coreldraw操作熟练了，几百页也不是什么难事。
具体操作步骤：
先排完版后，再执行这个vba宏即可。
选择，“工具/visual basic/执行宏”
下拉选单“Macros in”选“All Standard Projects”
上面“Macros Name”选“Corel macros,PageNumbering”
接着按“执行 ”
接下来的窗口就依你需要而自行设定
"#"表示该页页码
"*"表示总页数
如果你输入all *;this#
页码即显示all8;this1，(假设文件有8页，在第1页之页码)
注意：版面好像只能设定在 a4 ，其它尺寸好像要自己设定位置！！
“linsong”提供适合Coreldraw12：打开vba编辑器删掉以下这几句，即可适合各尺寸，可以试试看！
d.Unit = CoreldrawrInch
d.DrawingOriginX = -4.25
d.DrawingOriginY = -5.5
Coreldraw 9中插入页码
先把整本书排完，页码暂不理。排完后选菜单：工具-visual basic-执行巨集-下拉选单Macros in:选All Standard Projects上面Macros Name:选Corel macros，PageNumbering接著按执行。接下来的弹出窗口设置好文字的一些基本属性再确定就可以了。
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下节问题：
系统提示“Coreldraw发生不可预期的错误，请另存文件后重启动Coreldraw”，怎么办？
中查找“各版本CorelDraw如何插入页码？”更多相关内容
中查找“各版本CorelDraw如何插入页码？”更多相关内容更多精彩
赞助商链接
