存心CDR VBA小插件详细讲解系列001

存心 · 发表于 2016-5-29 17:16:01

存心CDR VBA小插件详细讲解系列001
[mw_shl_code=applescript,true]Dim p As Page
For Each p In ActiveDocument.Pages
p.ActiveLayer.CreateArtisticText 0, 0, "Page " & p.Index
Next p[/mw_shl_code]

注：Dim p As Page
p.ActiveLayer 页面的当前图层
代码运行效果如下图：

asong · 发表于 2016-5-30 08:55:01

Dim p As Page定义变量
For Each p In ActiveDocument.Pages从当前文件循环取得页面数
p.ActiveLayer.CreateArtisticText 0, 0, "Page " & p.Index 当前激活层座标（0，0）创建文本，内容为page加当前页码变量
Next p

是这样吧

1688 · 发表于 2016-5-29 18:02:06

哇，这个教程好啊，支持，别的地方没有看到过，对新手很有帮助

BIN · 发表于 2016-5-29 18:15:06

有两个问题，一、Dim的语法意思是什么，定义变量？二、p.Index中的index是什么意思呢？索引？

W。 · 发表于 2016-5-30 09:36:07

学习了，还是动画教程看的明白

vipjm · 发表于 2016-5-30 10:31:09

是的，这样有助我们这类新手入门。

羡慕嫉妒恨 · 发表于 2016-6-3 08:21:10

学习了，还是动画教程看的明白

jozeyin · 发表于 2016-6-3 09:59:03

学习了。挺不错的简单教程。

你的专属 · 发表于 2016-7-16 15:06:01

Dim p As Page
For Each p In ActiveDocument.Pages
p.ActiveLayer.CreateArtisticText 0, 0, "Page " & p.Index
Next p
这个代码

2770199129 · 发表于 2016-8-15 21:46:10

感谢感谢！简单教程！！一下子上手

存心CDR VBA小插件详细讲解系列001

华印网相关搜索

相关帖子

点评

注意注意注意：必看 /1