Classe Subdocuments (Word VBA)

Collection d’objets Subdocument qui représentent les sous-documents d’une plage ou d’un document. Pour utiliser une variable de classe Subdocuments, elle doit d'abord être instanciée, par exemple

Dim sbds as Subdocuments
Set sbds = ActiveDocument.Subdocuments

For Each

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

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

AddFromFile

Ajoute le sous-document spécifié dans le document maître au début de la sélection et renvoie un objet Subdocument.

Si le document n'est pas affiché en mode Plan ou Document maître, une erreur se produit.

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

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

Arguments

Un argument nommé

Name (String) - Nom de fichier du sous-document à insérer dans le document maître.

Optional arguments

Les arguments suivants sont facultatifs

ConfirmConversions (Boolean) - True : pour confirmer la conversion du fichier dans la boîte de dialogue Convertir un fichier si le fichier n'est pas au format Word.

ReadOnly (Boolean) - True pour insérer le sous-document en tant qu'un document en lecture seule.

PasswordDocument (String) - Mot de passe à spécifier si le sous-document est protégé par mot de passe.

PasswordTemplate (String) - Mot de passe à spécifier pour ouvrir le modèle associé au sous-document, s'il est protégé par mot de passe.

Revert (Boolean) - Contrôle que se passe-t-il si le nom est le nom de fichier d'un document ouvert.

WritePasswordDocument (Document) - Mot de passe à spécifier pour enregistrer les modifications apportées au document s'il est protégé en écriture.

WritePasswordTemplate (String) - Mot de passe à spécifier pour enregistrer les modifications apportées au modèle associé au sous-document, s'il est protégé en écriture.

AddFromRange

Crée un ou plusieurs sous-documents à partir du texte de la plage spécifiée et renvoie un objet Subdocument.

L'argument plage doit commencer par l'un des styles de titre prédéfinis (par exemple, titre 1).

AddFromRange (Range)

Range: La plage utilisée pour créer un ou plusieurs sous-documents.

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

Count

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

Dim lngCount As Long
lngCount = ActiveDocument.Subdocuments.Count

Delete

Supprime la collection de sous-documents.

ActiveDocument.Subdocuments.Delete

Expanded

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

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

Item

Renvoie un objet Subdocument spécifique appartenant à une collection.

Item (Index)

Index: Objet spécifique qui doit être renvoyé.

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

Merge

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

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

Les arguments suivants sont facultatifs

FirstSubdocument (String) - Chemin d'accès et nom du document d'origine avec lequel les modifications doivent être fusionnées.

LastSubdocument (String) - Dernier sous-document de la plage de sous-documents à fusionner.

Select

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

Après avoir exécuté cette méthode, utilisez l'objet Selection pour travailler avec les éléments sélectionnés.

ActiveDocument.Subdocuments.Select