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