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.
Gibt die Anfangsnotennummer, Zeilenzahl oder Seitenzahl zurück oder legt sie fest. Long mit Lese-/Schreibzugriff.
Syntax
Ausdruck. StartingNumber
Ausdruck Ein Ausdruck, der ein 'Endnotes'-Objekt darstellt.
Hinweise
Die Zeilennummerierung ist nur in der Drucklayoutansicht sichtbar.
Wenn diese Eigenschaft auf Seitenzahlen angewendet wird, gibt sie die Anfangsseitenzahl für das angegebene HeaderFooter-Objekt zurück oder legt sie fest. Diese Zahl ist auf der ersten Seite möglicherweise nicht sichtbar, abhängig von der Einstellung der ShowFirstPageNumber-Eigenschaft . Wenn die RestartNumberingAtSection-Eigenschaft auf False festgelegt ist, überschreibt sie die StartingNumber-Eigenschaft , sodass die Seitennummerierung aus dem vorherigen Abschnitt fortgesetzt werden kann.
Beispiel
In diesem Beispiel wird ein neues Dokument erstellt, und die Anfangsnummer für Fußnoten wird auf 10 festgelegt. Anschließend wird an der Einfügemarke eine Fußnote hinzugefügt.
Set myDoc = Documents.Add
With myDoc.Footnotes
.StartingNumber = 10
.Add Range:=Selection.Range, Text:="Text for a footnote"
End With
In diesem Beispiel wird für das aktive Dokument die Zeilennummerierung aktiviert. Die Anfangsnummer wird auf 5 gesetzt, jede fünfte Zeilennummer wird angezeigt, und am Anfang jedes Abschnitts im Dokument beginnt die Nummerierung von vorn.
With ActiveDocument.PageSetup.LineNumbering
.Active = True
.StartingNumber = 5
.CountBy = 5
.RestartMode = wdRestartSection
End With
In diesem Beispiel werden Eigenschaften für Seitenzahlen festgelegt. Anschließend werden in der Kopfzeile des aktiven Dokuments Seitenzahlen eingefügt.
With ActiveDocument.Sections(1) _
.Headers(wdHeaderFooterPrimary).PageNumbers
.NumberStyle = wdPageNumberStyleArabic
.IncludeChapterNumber = False
.RestartNumberingAtSection = True
.StartingNumber = 5
.Add PageNumberAlignment:=wdAlignPageNumberCenter, _
FirstPage:=True
End With
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.