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

公告

---

本专栏的相关的文章已不在同步更新，请直接访问 VBA探秘 官方网站或关注微信公众号获取最新文章动态。

coreldraw-vba-get-text-box-content

目的

这篇教程将教会你使用 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属性里面不止存储了文本内容，还存储了其他有用的信息，比如字体等。

---

原创声明：本文首发于个人CorelDRAW VBA博客，请尊重文章版权。
转载请注明原文链接：http://www.cdrvba.com/coreldraw-vba-get-text-box-content