Compartilhar via

Propriedade Application.ActiveDocument (Word)

  • Artigo

Retorna um objeto Document que representa o documento ativo (o documento com o foco). Se não houver documento aberto, ocorrerá um erro. Somente leitura.

Observação

O documento na janela exibição protegida ativa não pode ser acessado usando essa propriedade. Em vez disso, use a propriedade Document do objeto ActiveProtectedViewWindow.

Sintaxe

expressão. Activedocument

expressão Uma variável que representa um Aplicativo objeto.

Exemplo

Este exemplo exibe o nome do documento ativo ou, se não houver documento aberto, exibe uma mensagem.

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

Este exemplo recolhe a seleção para um ponto de inserção e cria um intervalo para os cinco caracteres seguintes da seleção.

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

Este exemplo insere texto no início do documento ativo e imprime o documento.

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

Confira também

Objeto de Aplicativo

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.