Вставка заголовков With ActiveDocument
|
Public Sub InsertLabelInDoc() 'Вставка заголовка в текст документа ' Вставка заголовков With ActiveDocument .Paragraphs.Add .Paragraphs.Last.Range.Select Selection.InsertCaption Label:="Диаграмма Excel" .Paragraphs.Add .Paragraphs.Last.Range.Select Selection.InsertCaption Label:=CaptionLabels(CaptionLabels.Count) End With End Sub |
| Листинг 1.5. |
| Закрыть окно |
