CorelDRAW VBA - 创建文本框(段落文本)

公告

---

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

coreldraw-vba-create-paragraph-text-box

目的

本文介绍CorelDRAW VBA代码使用 CreateParagraphText 函数创建文本框（段落文本）的相关操作代码。

代码演示

在CorelDRAW中创建文本框，即创建段落文本。准确的叫法是段落文本，使用 CreateParagraphText 函数即可创建段落文本，请看下面的代码演示：

Sub main()
    ' 创建一个新的文档
    Dim doc As Document
    Set doc = CreateDocument
    doc.Unit = cdrMillimeter

    ' 在活动图层上创建一个段落文本
    Dim textbox As Shape
    Set textbox = doc.ActiveLayer.CreateParagraphText(0, 0, 120, 10, "这是一个文本框（段落文本）", cdrChineseSingapore, cdrCharSetDefault, "宋体", 20, cdrTrue, cdrFalse, cdrDoubleThinFontLine, cdrCenterAlignment)
   
End Sub

代码说明

以上代码，首先创建了一个新文档，然后在新文档的活动图层（ActiveLayer）创建了一个段落文本框，并带有默认文本。该函数的参数非常多，如果不需要额外的参数，可以简写为如下形式：

Set textbox = doc.ActiveLayer.CreateParagraphText(0, 0, 120, 10, "abcdefg")

下面对该函数的参数按照顺序一一说明每个参数的含义：

• 参数1：文档左边距
• 参数2：文档顶边距
• 参数3：宽度
• 参数4：高度
• 参数5：默认的文本内容
• 参数6：字符集（中文包括香港、澳门、新加坡三种）
• 参数7：字符编码（建议使用默认编码，即cdrCharSetDefault）
• 参数8：字体名称
• 参数9：字体大小（Size）
• 参数10：是否粗体
• 参数11：是否斜体
• 参数12：下划线样式
• 参数13：文本对齐方式

运行效果

创建段落文本效果

小结

创建段落文本（文本框）函数 CreateParagraphText 可用于创建大量文本、并且需要对文本进行排列、排版的场合。如果是很简单、内容较少的文本，建议使用创建美术字的函数 CreateArtisticText。

---

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