Objet Subdocuments (Word)
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour