Clase Subdocuments (Word VBA)

Colección de objetos Subdocument que representa los subdocumentos de un intervalo o de un documento. Para usar una variable de clase Subdocuments, primero debe ser instanciado, por ejemplo

Dim sbds as Subdocuments
Set sbds = ActiveDocument.Subdocuments

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Subdocuments en una colección.

Dim sbd As Subdocument
For Each sbd In ActiveDocument.Subdocuments
	
Next sbd

AddFromFile

Agrega el subdocumento especificado al documento maestro al principio de la selección y devuelve un objeto Subdocument .

Si la vista activa no es ni la vista Esquema ni la vista del documento maestro, se producirá un error.

AddFromFile (Name, ConfirmConversions, ReadOnly, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate)

ActiveDocument.ActiveWindow.View.Type = wdMasterView 
ActiveDocument.Subdocuments.AddFromFile _ 
 Name:="C:\Subdoc.doc"

Arguments

Un argumento con nombre

Name (String) - Nombre del archivo del subdocumento que se va a insertar en el documento maestro.

Optional arguments

Los siguientes argumentos son opcionales

ConfirmConversions (Boolean) - True para confirmar la conversión de archivo en el cuadro de diálogo Convertir archivo si el archivo no está en formato de Word.

ReadOnly (Boolean) - True para insertar el subdocumento como documento de sólo lectura.

PasswordDocument (String) - Contraseña requerida para abrir el subdocumento si está protegido con contraseña.

PasswordTemplate (String) - Contraseña requerida para abrir la plantilla adjunta al subdocumento si la plantilla está protegida con contraseña.

Revert (Boolean) - Controla lo que ocurre si el nombre es el nombre de archivo de un documento abierto.

WritePasswordDocument (Document) - Contraseña requerida para guardar los cambios en el archivo del documento si está protegido contra escritura.

WritePasswordTemplate (String) - Contraseña requerida para guardar la plantilla adjunta al subdocumento si la plantilla está protegida contra escritura.

AddFromRange

Crea uno o varios subdocumentos a partir del texto del intervalo especificado y devuelve un objeto Subdocument.

El argumento Range debe empezar por uno de los estilos de nivel de título integrados; por ejemplo, Título1.

AddFromRange (Range)

Range: Intervalo utilizado para crear uno o varios subdocumentos.

ActiveDocument.ActiveWindow.View.Type = wdMasterView 
ActiveDocument.SubDocuments.AddFromRange Range:=Selection.Range

Count

Devuelve un Long que representa el número de subdocumentos de la colección.

Dim lngCount As Long
lngCount = ActiveDocument.Subdocuments.Count

Delete

Elimina la colección de subdocumentos.

ActiveDocument.Subdocuments.Delete

Expanded

True si se expanden los subdocumentos del documento especificado.

If ActiveDocument.Subdocuments.Count >= 1 Then 
 ActiveDocument.Subdocuments.Expanded = True 
End If

Item

Devuelve un objeto Subdocument individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.

Dim sbd As Subdocument
Set sbd = ActiveDocument.Subdocuments(Index:=1)

Merge

Combina los subdocumentos especificados de un documento maestro en un solo subdocumento.

Merge (FirstSubdocument, LastSubdocument)

If ActiveDocument.Subdocuments.Count >= 2 Then 
 Set aDoc = ActiveDocument 
 aDoc.Subdocuments.Merge _ 
 FirstSubdocument:=aDoc.Subdocuments(1), _ 
 LastSubdocument:=aDoc.Subdocuments(2) 
End If

Arguments

Optional arguments

Los siguientes argumentos son opcionales

FirstSubdocument (String) - Ruta de acceso y nombre de archivo del documento original con el que se desea combinar las revisiones.

LastSubdocument (String) - Último subdocumento del intervalo de subdocumentos que va a combinarse.

Select

Selecciona el subdocumento especificado.

Después de utilizar este método, utilice el objeto Selection para trabajar con los elementos seleccionados.

ActiveDocument.Subdocuments.Select