CorelDRAW VBA - 替换文本 Text.Replace

CDR超平面云插件

于 2021-01-02 10:18:54 发布

阅读量1.1k

点赞数 3

文章标签： coreldraw vba 文本替换 Replace

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

版权

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

78 篇文章 41 订阅 ¥39.90 ¥99.00

订阅专栏

超级会员免费看

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

参考代码

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