CorelDRAW VBA - 替换文本 Text.Replace

将文本中的一个文本字符串替换为另一个文本字符串。此代码片示例将页面上所有出现的“#”替换为当前日期。

参考代码

Sub test()
	' 定义形状变量
	Dim s As Shape
	' 遍历当前页面所有的文本形状(通过查找)
	For Each s In ActivePage.FindShapes(, cdrTextShape)
		' 替换 # 为当前日期
		s.Text.Replace "#", CStr(Date), False, ReplaceAll:=True
	Next s
End Sub

 

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

抵扣说明:

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

余额充值