Freigeben über

Subdocuments-Objekt (Word)

  • Artikel

Eine Auflistung von Subdocument-Objekten , die die Unterdokumente in einem Bereich oder Dokument darstellen.

Hinweise

Mit der Subdocuments-Eigenschaft geben Sie die Subdocuments-Auflistung zurück. Im folgenden Beispiel werden alle Filialdokumente im aktiven Dokument erweitert.

ActiveDocument.Subdocuments.Expanded = True

Verwenden Sie die AddFromFile - oder AddFromRange-Methode , um einem Dokument ein Unterdokument hinzuzufügen. Im folgenden Beispiel wird am Ende des aktiven Dokuments ein Unterdokument mit dem Namen "Setup.doc" hinzugefügt.

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

Im folgenden Beispiel wird dem ersten Absatz in der Auswahl die Formatvorlage Heading 1 zugewiesen. Anschließend wird für den Inhalt der Auswahl ein Filialdokument erstellt.

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

Verwenden Sie Subdocuments (Index), wobei Index die Indexnummer ist, um ein einzelnes Subdocument-Objekt zurückzugeben. Im folgenden Beispiel werden der Pfad und der Dateiname des ersten Unterdokuments im aktiven Dokument angezeigt.

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

Siehe auch

Referenz zum Word-Objektmodell

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.