开发学院图形图像CorelDRAW 各版本CorelDraw如何插入页码? 阅读

各版本CorelDraw如何插入页码?

 2007-05-28 12:59:36 来源:WEB开发网   
核心提示:《CorelDraw疑难杂症速查手册》收集了作者木平与各位平面设计同仁相互探讨提出的问题以及百度CD吧的提问,结合实际操作和工作中遇到的问题整理而成,各版本CorelDraw如何插入页码?,其中有些问题参考了吧中好友和网络上同道中人的回答,对于一些不清楚或有疑问的问题作者都亲自用CorelDraw 9和CorelDra

《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”,怎么办?

Tags: CorelDraw 如何

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
更多精彩
    赞助商链接

    热点阅读
      焦点图片
        最新推荐
          精彩阅读