Propiedad Application.ActiveDocument (Word)

Devuelve un objeto Document que representa el documento activo (el documento con el enfoque). Si no hay documentos abiertos, se produce un error. Solo lectura.

Nota:

No se puede acceder al documento de la ventana vista protegida activa mediante esta propiedad. En cambio, use la propiedad Document del objeto ActiveProtectedViewWindow.

Sintaxis

expresión. ActiveDocument

expresión Variable que representa un objeto Application.

Ejemplo:

En este ejemplo, se muestra el nombre del documento activo, o bien, si no hay ningún documento abierto, se muestra un mensaje.

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

En este ejemplo, se contrae la selección a un punto de inserción y luego se crea un rango para los cinco caracteres siguientes de la selección.

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

En este ejemplo, se inserta texto al principio del documento activo y luego se imprime el 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

Vea también

Objeto Application

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.