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

创建一个美术字文本对象,并用消息框显示第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

 

相关推荐
©️2020 CSDN 皮肤主题: 护眼 设计师:闪电赇 返回首页
实付 9.90元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值