CustomLabels.Add 方法 (Word)

  • 项目

向 CustomLabels 集合中添加一个自定义邮件标签。 返回一个 CustomLabel 对象，该对象表示自定义邮件标签。

语法

表达式。添加 (名称、 DotMatrix)

expression 是必需的。 一个代表“CustomLabels”集合的变量。

参数

名称 必需/可选 数据类型 说明
Name 必需 String 自定义邮件标签的名称。
DotMatrix 可选 Variant True 在点阵式打印机上打印邮件标签。

返回值

CustomLabel

示例

本示例添加名为 Return Address 的自定义邮件标签，并设置页面大小，然后创建一页标签。

Sub ReturnAddrLabel() 
 Dim ml As CustomLabel 
 Dim addr As String 
 
 Set ml = Application.MailingLabel.CustomLabels _ 
 .Add(Name:="Return Address", DotMatrix:=False) 
 ml.PageSize = wdCustomLabelLetter 
 addr = "Dave Edson" & vbCr & "123 Skye St." & vbCr _ 
 & "Our Town, WA 98004" 
 Application.MailingLabel.CreateNewDocument _ 
 Name:="Return Address", Address:=addr, ExtractAddress:=False 
End Sub

另请参阅

CustomLabels 集合对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。