Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Eine Auflistung aller Section-Objekte im Dokument.
Hinweise
Verwenden Sie Item (Index), wobei (Index) die Indexnummer ist, um ein einzelnes Section-Objekt zurückzugeben. Die Verwendung von Sections (Index), wobei (index) die Indexnummer ist, gibt auch ein einzelnes Section-Objekt zurück.
Verwenden Sie Count , um die Anzahl der Abschnitte in der Veröffentlichung zurückzugeben.
Verwenden Sie Add (StartPageIndex), wobei StartPageIndex die Indexnummer der Seite ist, um einen neuen Abschnitt zurückzugeben, der einem Dokument hinzugefügt wurde. Der Fehler "Berechtigung verweigert" wird zurückgegeben, wenn die Seite bereits einen Abschnittskopf enthält.
Verwenden Sie Section.Delete (Index), wobei (Index) die Indexnummer ist, um den angegebenen Abschnitt aus dem Dokument zu löschen. Der Fehler "Berechtigung verweigert" wird zurückgegeben, wenn versucht wird, den ersten Abschnitt zu löschen.
Beispiel
Im folgenden Beispiel werden das Zahlenformat und die Startnummer für den ersten Abschnitt des aktiven Dokuments festgelegt.
With ActiveDocument.Sections.Item(1)
.PageNumberFormat = pbPageNumberFormatArabic
.PageNumberStart = 1
End With
Im folgenden Beispiel wird die Nummerierung aus dem vorherigen Abschnitt für den zweiten Abschnitt im aktiven Dokument fortgesetzt.
ActiveDocument.Sections(2).ContinueNumbersFromPreviousSection=True
Im folgenden Beispiel wird die Anzahl der Abschnitte im ersten geöffneten Dokument angezeigt.
MsgBox Documents(1).Sections.Count
Im folgenden Beispiel wird der zweiten Seite des aktiven Dokuments einen neuen Abschnitt hinzugefügt.
Dim objSection As Section
Set objSection = ActiveDocument.Sections.Add(StartPageIndex:=2)
Im folgenden Beispiel werden alle Abschnitte des aktiven Dokuments mit Ausnahme des ersten Dokuments gelöscht.
Hinweis
Die Iteration erfolgt von der letzten zur ersten, um den Fehler "Subscript out of range" beim Zugriff auf einen gelöschten Abschnitt in der Sections-Auflistung zu vermeiden.
Dim i As Long
For i = ActiveDocument.Sections.Count To 1 Step -1
If i = 1 Then Exit For
ActiveDocument.Sections(i).Delete
Next i
Methoden
Eigenschaften
Siehe auch
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.