CustomLabels 对象 (Word)

  • 项目

在 标签选项对话框中可用的 CustomLabel 对象的集合。 此集合包括所有打印机类型 (点阵打印机，激光打印机，喷墨打印机) 的自定义标签。

备注

使用 CustomLabels 属性返回 CustomLabels 集合。 下面的示例显示了可用的自定义标签的数目。

MsgBox Application.MailingLabel.CustomLabels.Count

使用 Add 方法可创建自定义标签。 下面的示例添加一个名为"My Label"的自定义邮件标签，并设置页面大小。

Set ML = _ 
 Application.MailingLabel.CustomLabels.Add(Name:="My Labels", _ 
 DotMatrix:=False) 
ML.PageSize = wdCustomLabelA4

使用 CustomLabels (Index) （其中 Index 是自定义标签名称或索引号）可返回单个 CustomLabel 对象。 以下示例用名为“My Labels”的现有自定义标签布局创建一篇新文档。

Set ML = Application.MailingLabel 
If ML.CustomLabels("My Labels").Valid = True Then 
 ML.CreateNewDocument Name:="My Labels" 
Else 
 MsgBox "The My Labels custom label is not available" 
End If

索引号代表 CustomLabels 集合中的自定义邮件标签的位置。 下面的示例显示第一个自定义邮件标签的名称。

If Application.MailingLabel.CustomLabels.Count >= 1 Then 
 MsgBox Application.MailingLabel.CustomLabels(1).Name 
End If

另请参阅

Word 对象模型参考

支持和反馈

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