Свойство AutoCaption.CaptionLabel (Word)

Статья
04/07/2023

Возвращает или задает метку заголовка (например, "Рисунок", "Таблица" или "Уравнение") указанного заголовка. Для чтения и записи, Variant.

Синтаксис

выражение. CaptionLabel

Выражение Переменная, представляющая объект AutoCaption.

Замечания

Для этого свойства можно задать строку или константу WdCaptionLabelID .

Пример

В этом примере отображается имя (например, "Лист Microsoft Excel") и метка заголовка (например, "Рисунок") для каждого элемента, который автоматически добавляет заголовок при вставке.

Dim acLoop As AutoCaption 
 
For Each acLoop In AutoCaptions 
 If acLoop.AutoInsert = True Then MsgBox acLoop.Name _ 
 & vbCr & "Label = " & acLoop.CaptionLabel.Name 
Next acLoop

В этом примере задается метка заголовка для таблиц Word как "Таблица", а затем сразу после выделения вставляется новая таблица.

With AutoCaptions("Microsoft Word Table") 
 .AutoInsert = True 
 .CaptionLabel = wdCaptionTable 
End With 
Selection.Collapse Direction:=wdCollapseEnd 
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, _ 
 NumColumns:=3

См. также

Объект AutoCaption

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через