作者:cpcool       来源于:中国广告设计知识网

    Coreldraw本身不带直接插入页码功能,这不能不说是一大遗憾。要实现这一功能,以前基本上都是手动去完成:几张几十张还好搞定,几百张甚至上千张排书的时候就比较困难。

 Coreldraw 11以后的版本在“工具-VB执行”项里有直接的“页码插入插件”,不过功能比较单一,只允许设计文字的一些基本属性,对于想在页码上做点花样文章,还是要手动CtrL+C、CtrL+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




上一篇Word Excel表格导入Coreldraw的处理方法

下一篇Coreldraw文件损坏的处理办法



 【相关文章





版权声明:文章观点仅代表作者观点,作为参考,不代表本站观点。部分文章来源于网络,如果网站中图片和文字侵犯了您的版权,请联系我们及时删除处理!转载本站内容,请注明转载网址、作者和出处,避免无谓的侵权纠纷。