cdr插入页码什么方法最快? 我最近排一本家谱,有400多页,有没有像word里插入页码那么快的方法

栏目:资讯发布:2023-10-01浏览:2收藏

cdr插入页码什么方法最快? 我最近排一本家谱,有400多页,有没有像word里插入页码那么快的方法,第1张

cdr14 有个增强插件可以插入页码
先排完版后,再执行这个vba宏即可。
  选择,“工具/visual basic/执行宏”
  下拉选单“Macros in”选“All Standard Projects”
  上面“Macros Name”选“Corel macros,PageNumbering”
  接着按“执行 ”
  接下来的窗口就依你需要而自行设定
  "#"表示该页页码
  ""表示总页数
  如果你输入all ;this#
  页码即显示all8;this1,(假设文件有8页,在第1页之页码)

  注意:版面好像只能设定在 a4 ,其它尺寸好像要自己设定位置!!
  “linsong”提供适合Coreldraw12:打开vba编辑器删掉以下这几句,即可适合各尺寸,可以试试看!

  dUnit = CoreldrawrInch
  dDrawingOriginX = -425
  dDrawingOriginY = -55

   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 "CoreldrawAutomation9"
    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

cdr插入页码什么方法最快? 我最近排一本家谱,有400多页,有没有像word里插入页码那么快的方法

cdr14 有个增强插件可以插入页码 先排完版后,再执行这个vba宏即可。  选择,“工具/visual basic/执行宏”  下拉选单“Macros in...
点击下载
热门文章
    确认删除?
    回到顶部