Klasse Subdocuments (Word VBA)
Eine Auflistung von Subdocument -Objekten, die die Filialdokumente in einem Bereich oder Dokument darstellen. Um eine Subdocuments -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim sbds as Subdocuments
Set sbds = ActiveDocument.Subdocuments
For Each
Hier ist ein Beispiel für die Verarbeitung der Subdocuments -Elemente in einer Sammlung
Dim sbd As Subdocument
For Each sbd In ActiveDocument.Subdocuments
Next sbd
AddFromFile
Fügt das angegebene Filialdokument am Anfang der Auswahl zum Masterdokument hinzu und gibt ein SubDocument -Objekt zurück.
Wenn es sich bei der aktiven Ansicht nicht um die Gliederungs- oder Zentraldokumentansicht handelt, tritt ein Fehler auf.
AddFromFile (Name, ConfirmConversions, ReadOnly, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate)
ActiveDocument.ActiveWindow.View.Type = wdMasterView
ActiveDocument.Subdocuments.AddFromFile _
Name:="C:\Subdoc.doc"
Arguments
Ein benanntes Argument
Name (String) - Der Dateiname des Filialdokuments, das in das Zentraldokument eingefügt werden soll.
Optional arguments
Die folgenden Argumente sind optional
ConfirmConversions (Boolean) - True, um die Konvertierung der Datei im Dialogfeld Datei konvertieren zu bestätigen, wenn die Datei nicht im Word-Format vorliegt.
ReadOnly (Boolean) - True, um das Filialdokument als schreibgeschütztes Dokument einzufügen.
PasswordDocument (String) - Das Kennwort zum Öffnen des Filialdokuments (sofern es mit Kennwortschutz versehen ist).
PasswordTemplate (String) - Das Kennwort zum Öffnen einer mit dem Filialdokument verbundenen Vorlage (sofern diese mit Kennwortschutz versehen ist).
Revert (Boolean) - Steuert, was geschieht, wenn Name der Dateiname eines geöffneten Dokuments ist.
WritePasswordDocument (Document) - Das Kennwort zum Speichern von Änderungen in einem Dokument (sofern es schreibgeschützt ist).
WritePasswordTemplate (String) - Das Kennwort zum Speichern von Änderungen an einer mit dem Filialdokument verbundenen Vorlage (sofern diese schreibgeschützt ist).
AddFromRange
Erstellt ein oder mehrere Filialdokumente aus dem Text im angegebenen Range und gibt ein subDocument -Objekt zurück.
Das Argument Range muss mit einer integrierten Formatvorlage einer Überschriftenebene (z. B. Überschrift 1) beginnen.
AddFromRange (Range)
Range: Der zum Erstellen eines oder mehrerer Filialdokumente verwendete Range.
ActiveDocument.ActiveWindow.View.Type = wdMasterView
ActiveDocument.SubDocuments.AddFromRange Range:=Selection.Range
Count
Gibt einen Wert vom Typ Long zurück, der die Anzahl der Filialdokumente in der Auflistung darstellt.
Dim lngCount As Long
lngCount = ActiveDocument.Subdocuments.Count
Delete
Löscht die Auflistung der Filialdokumente.
ActiveDocument.Subdocuments.Delete
Expanded
True, wenn Filialdokumente im angegebenen Dokument erweitert werden.
If ActiveDocument.Subdocuments.Count >= 1 Then
ActiveDocument.Subdocuments.Expanded = True
End If
Item
Gibt ein einzelnes Subdocument -Objekt in einer Auflistung zurück.
Item (Index)
Index: Das einzelne Objekt zurückgegeben werden soll.
Dim sbd As Subdocument
Set sbd = ActiveDocument.Subdocuments(Index:=1)
Merge
Verbindet die angegebenen Filialdokumente eines Zentraldokuments zu einem einzigen Filialdokument.
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
Die folgenden Argumente sind optional
FirstSubdocument (String) - Der Pfad- und Dateiname des Originaldokuments, in dem Überarbeitungen zusammengeführt werden sollen.
LastSubdocument (String) - Das letzte Filialdokument in einem Bereich von Filialdokumenten, die zusammengeführt werden sollen.
Select
Markiert das angegebene Filialdokument.
Nach Verwendung dieser Methode können Sie mithilfe des Selection-Objekts mit den ausgewählten Elementen arbeiten.
ActiveDocument.Subdocuments.Select