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

         

с таблицами ссылок на иллюстрации


Public Sub WorkWithTablesOfFigures() 'Работа с таблицами ссылок на иллюстрации документа Dim DocPath As String Dim myr As Range Dim ToF As TableOfFigures Dim capt As CaptionLabel 'Открываем и активизируем документ DocThree DocPath = Documents("DocOne").Path Documents.Open (DocPath & "\Docthree") Documents("Docthree").Activate
With ActiveDocument
Set myr = Selection.Range myr.Select 'Создаем таблицы ссылок на графики и таблицы 'Оба заголовка должны быть элементами коллекции CaptionLabels .TablesOfFigures.Add Range:=myr, Caption:="График" .TablesOfFigures.Add Range:=myr, Caption:="Table"
For Each ToF In .TablesOfFigures Debug.Print ToF.Caption Next ToF For Each capt In Application.CaptionLabels Debug.Print capt.Name Next capt End With End Sub
Листинг 1.31.
Закрыть окно
Содержание раздела