Partager via

Objet Subdocuments (Word)

  • Article

Collection d'objets Subdocument qui représentent les sous-documents de la plage ou du document.

Remarques

Utilisez la propriété Subdocuments pour renvoyer la collection de sous-documents. L'exemple suivant développe tous les sous-documents du document actif.

ActiveDocument.Subdocuments.Expanded = True

Utilisez la méthode AddFromFile ou AddFromRange pour ajouter un sous-document à un document. L'exemple suivant ajoute un sous-document nommé « Setup.doc » à la fin du document actif.

ActiveDocument.Subdocuments.Expanded = True 
Selection.EndKey Unit:=wdStory 
Selection.InsertParagraphBefore 
ActiveDocument.Subdocuments.AddFromFile Name:="C:\Temp\Setup.doc"

Cet exemple montre comment appliquer le style Heading 1 au premier paragraphe de la sélection et créer ensuite un sous-document avec le contenu de la sélection.

Selection.Paragraphs(1).Style = wdStyleHeading1 
With ActiveDocument.Subdocuments 
 .Expanded = True 
 .AddFromRange Range:=Selection.Range 
End With

Utilisez les sous-documents (Index), où Index est le numéro d'index, pour renvoyer un seul objet Subdocument. L'exemple suivant affiche le chemin d'accès et le nom du premier sous-document du document actif.

If ActiveDocument.Subdocuments(1).HasFile = True Then 
 MsgBox ActiveDocument.Subdocuments(1).Path & _ 
 Application.PathSeparator _ 
 & ActiveDocument.Subdocuments(1).Name 
End If

Voir aussi

Référence du modèle objet Word

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.