Compartir a través de

ActiveDocument (propiedad)

  • Artículo

Importante

En este artículo es máquina traducido, vea la exención de responsabilidad. Encontrará la versión en inglés de este artículo aquí para su referencia.

Devuelve un Document objeto que representa el documento activo (documento seleccionado). Si no hay ningún documento abierto, se produce un error. De sólo lectura.

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

Ejemplo

En este ejemplo, se contrae la selección en un punto de inserción y, a continuación, se crea un intervalo 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)

Ejemplo

En este ejemplo, se inserta texto al principio del documento activo y, a continuación, 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

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.