Compartir a través de


Documents (colección de objetos)

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.

Una colección de todos los Document objetos que están actualmente abiertos en Word.

Observaciones

Utilice la propiedad Documents para devolver la colección Documents. En el ejemplo siguiente se muestran los nombres de los documentos abiertos.

For Each aDoc In Documents
    aName = aName & aDoc.Name & vbCr
Next aDoc
MsgBox aName

Utilice la Add método para crear un nuevo documento vacío y agregarlo a la colección Documents. En el ejemplo siguiente se crea un nuevo documento basado en la plantilla Normal.

Documents.Add

Utilice el método Open para abrir un archivo. En el ejemplo siguiente se abre el documento denominado "Sales.doc".

Documents.Open FileName:="C:\My Documents\Sales.doc"

Utilice la sintaxis Documents(Index), donde Index corresponde al nombre de documento o al número de índice, para devolver un solo objeto Document. La instrucción siguiente cierra el documento denominado "Report.doc" sin guardar los cambios.

Documents("Report.doc").Close SaveChanges:=wdDoNotSaveChanges

El número de índice representa la posición del documento en la colección Documents. En el ejemplo siguiente se activa el primer documento de la colección Documents.

Documents(1).Activate

En el ejemplo siguiente se cita la colección Documents para determinar si está abierto el documento denominado "Report.doc". Si la colección Documents lo contiene, se activa el documento; de lo contrario, se abre.

For Each doc In Documents
    If doc.Name = "Report.doc" Then found = True
Next doc
If found <> True Then 
    Documents.Open FileName:="C:\Documents\Report.doc"
Else
    Documents("Report.doc").Activate
End If

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.