Classe Subdocument (Word VBA)

La classe Subdocument représente un sous-document dans un document ou une plage.

Les procédures principales de la classe Subdocument sont Delete, Open, Subdocuments.AddFromFile, Subdocuments.AddFromRange, Subdocuments.Delete et Subdocuments.Select

Set

Pour utiliser une variable de classe Subdocument, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Subdocument : Subdocuments.Item, Subdocuments.AddFromFile, Subdocuments.AddFromRange, Document.Subdocuments et Range.Subdocuments

For Each

Voici un exemple de traitement des éléments Subdocument dans une collection

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

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

Add with its procedures Subdocuments.AddFromFile et Subdocuments.AddFromRange

Méthodes

Les méthodes principales de la classe Subdocument sont

Delete - Supprime le sous-document spécifié.

ActiveDocument.Subdocuments(1).Delete

Open - Ouvre le sous-document spécifié.

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

Subdocuments.Delete - Supprime la collection de sous-documents.

ActiveDocument.Subdocuments.Delete

Subdocuments.Select - Sélectionne le sous-document spécifié.

ActiveDocument.Subdocuments.Select

Autre Méthodes

Subdocuments.Merge - Dans un document maître, fusionne les sous-documents spécifiés dans un même sous-document.

ActiveDocument.Subdocuments.Merge

Propriétés

HasFile Cette propriété a la valeur True si le sous-document spécifié a été enregistré dans un fichier.

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

Level Renvoie le niveau de titre utilisé pour créer le sous-document.

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

Locked True si un sous-document dans un document maître est verrouillé.

ActiveDocument.Subdocuments(1).Locked = True

Name Renvoie le nom de l'objet spécifié.

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

Parent Renvoie un Object qui représente l'objet parent de l'objet Subdocument spécifié.

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

Path Renvoie le disque ou le chemin d'accès au Web vers le sous-document spécifié.

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

Range Renvoie un objet Range qui représente la partie d’un document contenue dans le sous-document.

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

Subdocuments.Count Renvoie un type long qui représente le nombre de sous-documents dans la collection.

Dim lngCount As Long
lngCount = ActiveDocument.Subdocuments.Count

Subdocuments.Expanded True si les sous-documents contenus dans le document spécifié sont développés.

ActiveDocument.Subdocuments.Expanded = True

Subdocuments.Parent Renvoie un Object qui représente l'objet parent de l'objet Subdocuments spécifié.

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