Word VBA教程:CustomLabels集合对象

   
Application
MailingLabel
CustomLabels (CustomLabel)

由“标签选项”对话框中的有效CustomLabel对象所组成的集合。该集合包括所有打印机类型(点阵、激光和喷墨打印机)的自定义标签。

使用 CustomLabels集合

使用 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) 可返回单独的 CustomLabel对象,其中 index 是自定义标签的名称或索引序号。下列示例用名为“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 VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号