版块 › CorelDRAW专区 › 存心CDR VBA小插件详细讲解系列001

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

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

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

注：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

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

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