如何在CorelDraw中插入页码 -电脑资料

问：各版本CorelDraw如何插入页码？

请问，在Coreldraw9中怎样插入页码，让页码在页面的右下角

答：Coreldraw本身不带直接插入页码功能，这不能不说是一大遗憾，

如何在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中插入页码

先把整本书排完，页码暂不理，

电脑资料

《如何在CorelDraw中插入页码》(https://www.unjs.com)。排完后选菜单：工具-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