CorelDRAW VBA - 读取段落文本框中的内容

目的

这篇教程将教会你使用 CorelDRAW VBA代码在文档中读取段落文本框中的内容。

代码演示

从根本上来说，段落文本框也是一个 Shape（形状）对象，可以调用其 Text 属性的相关方法来获取段落文本框中的文本。
以下代码演示了如何读取段落文本框中的内容：

' 变量声明
Dim s As Shape

' 设置当前文档单位
ActiveDocument.Unit = cdrMillimeter

' 创建一个段落文本并指定默认显示的内容
Set s = ActiveLayer.CreateParagraphText(0, 0, 70, 10, "这是段落文本框中的内容")
MsgBox "文本框中的内容是：" + s.Text.Story.Text

在实际应用过程中，灵活使用以上方法即可，Story属性里面不止存储了文本内容，还存储了其他有用的信息，比如字体等。

---

原创声明