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

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

参考代码

Sub test()' 定义相关变量Dim t As TextDim s As ShapeDim 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

 

总结

以上是生活随笔为你收集整理的CorelDRAW VBA - 读取和操作部分文本内容 Text.Range的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。