CorelDRAW VBA - 读取和操作部分文本内容 Text.Range

CDR教程插件开发定制-Zebe

于 2021-01-02 20:53:11 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

文章标签： coreldraw VBA 文本 Text Range

本文链接：https://blog.csdn.net/zebe1989/article/details/112119605

CDR插件开发之入门知识专栏收录该内容

78 篇文章 ¥39.90 ¥99.00

订阅专栏

超级会员免费看

创建一个美术字文本对象，并用消息框显示第1个到第5个字符，并将第9到第14个字符改为大写形式。

参考代码

Sub test()
	' 定义相关变量
	Dim t As Text
	Dim s As Shape
	Dim d As Document
	' 创建文档
	Set d = CreateDocument
	' 在文档中创建一个美术字文本
	Set s = d.ActiveLayer.CreateArtisticText(4, 5, "欢迎访问VBA探秘www.cdrvba.com")
	' 取得文本对象
	Set t = s.Text
	' 获取第1到5个字符
	MsgBox "第1到5个字符是：" & vbCr & t.Range(1, 5).Text
	' 修改第9到第14个字符为大写
	t.Range(9, 14).Case = cdrAllCapsFontCase
End Sub