Propiedad Global.ActiveDocument (Word)
Devuelve un objeto Document que representa el documento activo (el documento seleccionado). Solo lectura.
Sintaxis
expresión. ActiveDocument
Expresión Variable que representa un objeto "Global".
Comentarios
Si no hay documentos abiertos, al usar esta propiedad se produce un error.
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
Consulte también
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.