公告
本专栏的相关的文章已不在简书同步更新，请直接访问 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/
