Clase Subdocument (Word VBA)

La clase Subdocument representa un subdocumento dentro de un documento o intervalo.

Los principales procedimientos de la clase Subdocument son Delete, Open, Subdocuments.AddFromFile, Subdocuments.AddFromRange, Subdocuments.Delete y Subdocuments.Select

Set

Para usar una variable de clase Subdocument, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase Subdocument : Subdocuments.Item, Subdocuments.AddFromFile, Subdocuments.AddFromRange, Document.Subdocuments y Range.Subdocuments

For Each

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

Dim subdoc As Subdocument 
For Each subdoc In ActiveDocument.Subdocuments 
 subdoc.Range.Select 
 If subdoc.HasFile = True Then 
 MsgBox subdoc.Path & Application.PathSeparator  & subdoc.Name 
 Else 
 MsgBox "This subdocument has not been saved." 
 End If 
Next subdoc

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Add with its procedures Subdocuments.AddFromFile y Subdocuments.AddFromRange

Métodos

Los principales métodos de la clase Subdocument son

Delete - Elimina el subdocumento especificado.

ActiveDocument.Subdocuments(1).Delete

Open - Se abre el subdocumento especificado.

Dim doc As Document
Set doc = ActiveDocument.Subdocuments(1).Open()

Subdocuments.Delete - Elimina la colección de subdocumentos.

ActiveDocument.Subdocuments.Delete

Subdocuments.Select - Selecciona el subdocumento especificado.

ActiveDocument.Subdocuments.Select

Otros Métodos

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

ActiveDocument.Subdocuments.Merge

Propiedades

HasFile True si se ha guardado en un archivo el subdocumento especificado.

Dim booHasFile As Boolean
booHasFile = ActiveDocument.Subdocuments(1).HasFile

Level Devuelve el nivel de título utilizado para crear el subdocumento.

Dim lngLevel As Long
lngLevel = ActiveDocument.Subdocuments(1).Level

Locked True si un subdocumento en un documento maestro está bloqueado.

ActiveDocument.Subdocuments(1).Locked = True

Name Devuelve el nombre del objeto especificado.

Dim strName As String
strName = ActiveDocument.Subdocuments(1).Name

Parent Devuelve un objeto Object que representa el objeto primario del objeto Subdocument especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Subdocuments(1).Parent

Path Devuelve el disco o la ruta de acceso Web al subdocumento especificado.

Dim strPath As String
strPath = ActiveDocument.Subdocuments(1).Path

Range Devuelve un objeto Range que representa la parte de un documento incluida en el subdocumento.

Dim rngRange As Range
Set rngRange = ActiveDocument.Subdocuments(1).Range

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

Dim lngCount As Long
lngCount = ActiveDocument.Subdocuments.Count

Subdocuments.Expanded True si se expanden los subdocumentos del documento especificado.

ActiveDocument.Subdocuments.Expanded = True

Subdocuments.Parent Devuelve un objeto Object que representa el objeto primario del objeto Subdocuments especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Subdocuments.Parent