Partilhar via

Propriedade Global.ActiveDocument (Word)

  • Artigo

Retorna um objeto Document que representa o documento ativo (o documento com o foco). Somente leitura.

Sintaxe

expressão. Activedocument

Expressão Uma variável que representa um objeto 'Global'.

Comentários

Se não houver documentos abertos, o uso desta propriedade causará erro.

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 global

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.