Word VBA教程:CustomLabel对象

   
Application
MailingLabel
CustomLabels (CustomLabel)

代表一个自定义的邮件标签。CustomLabel对象是CustomLabels集合的元素。CustomLabels集合包括了“标签选项”对话框中列出的所有自定义邮件标签。

使用 CustomLabel对象

用 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

注意   CustomLabel对象在 CustomLabels集合中按字母顺序排序,它们的索引序号按集合内容的改变而动态重新赋值。因此根据名称引用指定的 CustomLabel对象比根据索引序号引用的对象更安全。

Add方法可创建自定义标签。下列示例先添加一个名为“My Label”的自定义邮件标签,然后设置页面大小。


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

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号