Layer.CreateArtisticText 方法用来在图层的指定位置创建一个艺术文本对象（美术字文本）。可以为美术字文本对象指定各种属性。 参数说明

参数	描述
Left	在文档单元中，指定艺术文本的水平位置
Bottom	在文档单元中，指定艺术文本的垂直位置
Text	指定艺术文本的内容。文本参数的值成为使用CreateArtisticText方法创建的实际文本。
LanguageID	指定的语言。这个参数是可选的，它的默认值是cdrLanguageNone(0)。
CharSet	指定字符集。此参数是可选的，其默认值为cdrCharSetMixed(-1)。
Font	指定字体。此参数是可选的。
Size	指定字体大小。此参数是可选的，其默认值为0。
Bold	指定是否应用粗体。这个参数是可选的，它的默认值是cdrUndefined(-2)。
Italic	指定是否应用斜体。这个参数是可选的，它的默认值是cdrUndefined(-2)。
Underline	指定要应用的下划线。这个参数是可选的，它的默认值是cdrMixedFontLine(7)。
Alignment	指定对齐。这个参数是可选的，它的默认值是cdrMixedAlignment(6)。

VBA参考代码 下面的VBA示例将单词 页码：和页码添加到每个页面的活动层的左下角。

' 遍历当前文档的所有页面
Dim p As Page
For Each p In ActiveDocument.Pages
	' 在每个页面的当前图层，创建美术字文本
	p.ActiveLayer.CreateArtisticText 0, 0, "页码：" & p.Index, cdrEnglishUS, , "Arial", 6, cdrTrue, cdrTrue, , cdrLeftAlignment
Next p