如何解决Corel VBA 特定:“获取”形状范围中的第一个形状并对其进行编辑
这段代码的最终目标是找到一个特定的文本对象并编辑它的内容。 (没有输入框,只是预定义的变量)。 我做了一个声明,说“寻找一系列满足这些条件的文本对象”。那部分工作。 现在我知道我有一个满足这些条件的范围,称为“srContains”,它应该只是一个对象。 我现在遇到的问题是我需要选择范围内唯一的对象并对其进行编辑。 我想说“获取范围内的文本对象,更改文本内容,并使其加粗。
我是新手,谢谢。我在学习。
Dim srSelection As ShapeRange,srText As ShapeRange,srContains As ShapeRange
Set srText = ActivePage.Layers("Text").Shapes.FindShapes(Type:=cdrTextShape)
Set srContains = srText.Shapes.FindShapes(Query:="@com.text.story.text.RegContains('[-]') and @com.text.story.size = 16")
srContains.FirstShape.Text = "Test" 'THIS PART DOESNT WORK
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。