Основы офисного программирования и документы Word

Dim Item As CaptionLabel With


Public Sub AddCaptions() 'Работа с коллекцией заголовков
Dim Item As CaptionLabel With CaptionLabels Debug.Print .Count 'Добавление трех заголовков .Add "Мой Рисунок" .Add "Диаграмма Excel" .Add "Мой Пример" Debug.Print .Count For Each Item In CaptionLabels Debug.Print Item .Name Next Item 'Удаление последнего заголовка .item(.Count).Delete
End With End Sub
Листинг 1.3.
Закрыть окно
Содержание раздела