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

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

Примечание.

С помощью этого свойства невозможно получить доступ к документу в активном окне защищенного представления. Вместо этого используйте свойство Document объекта ActiveProtectedViewWindow .

Синтаксис

expression. ActiveDocument

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

Пример

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

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

См. также

Объект Application

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

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