Свойство Global.ActiveDocument (Word)

Возвращает объект Document , представляющий активный документ (документ с фокусом). Только для чтения.

Синтаксис

expression. ActiveDocument

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

Замечания

Если документы не открыты, использование этого свойства приводит к ошибке.

Пример

В этом примере отображается имя активного документа, а если документы не открыты, отображается сообщение.

If Application.Documents.Count >= 1 Then 
 MsgBox ActiveDocument.Name 
Else 
 MsgBox "No documents are open" 
End If

В этом примере выделение свернуто до точки вставки, а затем создается диапазон для следующих пяти символов в выделенном фрагменте.

Dim rngTemp As Range 
 
Selection.Collapse Direction:=wdCollapseStart 
Set rngTemp = ActiveDocument.Range(Start:=Selection.Start, _ 
 End:=Selection.Start + 5)

В этом примере текст вставляется в начало активного документа, а затем выводится документ.

Dim rngTemp As Range 
 
Set rngTemp = ActiveDocument.Range(Start:=0, End:=0) 
With rngTemp 
 .InsertBefore "Company Report" 
 .Font.Name = "Arial" 
 .Font.Size = 24 
 .InsertParagraphAfter 
End With 
 
ActiveDocument.PrintOut

См. также

Глобальный объект

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

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