Объект CustomLabel (Word)
Представляет пользовательскую метку рассылки. Объект CustomLabel является членом коллекции CustomLabels . Коллекция CustomLabels содержит все настраиваемые метки рассылки, перечисленные в диалоговом окне Параметры метки .
Используйте CustomLabels (Index), где Index — это имя пользовательской метки или номер индекса, чтобы вернуть один объект CustomLabel . В следующем примере создается документ с существующим пользовательским макетом меток с именем "Мои метки".
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 для создания настраиваемой метки. В следующем примере добавляется пользовательская метка с именем "Моя метка" и устанавливается размер страницы.
Set ML = _
Application.MailingLabel.CustomLabels.Add(Name:="My Labels", _
DotMatrix:=False)
ML.PageSize = wdCustomLabelA4
Справочник по объектной модели Word
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.