Klasse Endnote (Word VBA)

Die Klasse Endnote stellt eine Endnote dar.

Die wichtigste Prozeduren der Klasse Endnote sind Delete und Endnotes.Add

Set

Um eine Endnote -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim end as Endnote
Set end = ActiveDocument.Range.Endnotes(Index:=1)

Die folgenden Prozeduren können zum Festlegen der Endnote Klassenvariablen verwendet werden : Endnotes.Add, Endnotes.Item, Document.Endnotes, Range.Endnotes und Selection.Endnotes

For Each

Hier ist ein Beispiel für die Verarbeitung der Endnote -Elemente in einer Sammlung

Dim end As Endnote
For Each end In ActiveDocument.Range.Endnotes
	
Next end

Methoden

Die Hauptmethoden der Klasse Endnote sind

Delete - Löscht die angegebene Endnote.

ActiveDocument.Range.Endnotes(1).Delete

Endnotes.Add - Gibt ein Endnote -Objekt zurück, das eine Endnote darstellt, die einem Bereich hinzugefügt wurde.

Dim end As Endnote
Set end = ActiveDocument.Range.Endnotes.Add(Range:=)

Eigenschaften

Index Gibt einen Wert vom Typ Long zurück, der die Position eines Elements in einer Auflistung darstellt.

Dim lngIndex As Long
lngIndex = ActiveDocument.Range.Endnotes(1).Index

Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen Endnote-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Endnotes(1).Parent

Range Gibt ein Range -Objekt zurück, das den Teil eines Dokuments darstellt, der im angegebenen Objekt enthalten ist.

Dim rngRange As Range
Set rngRange = ActiveDocument.Range.Endnotes(1).Range

Reference Gibt ein Range -Objekt zurück, das ein Endnote-Referenzzeichen darstellt.

Dim rngReference As Range
Set rngReference = ActiveDocument.Range.Endnotes(1).Reference

Endnotes.ContinuationNotice Gibt ein Range -Objekt zurück, das die Fortsetzungs Notiz der Endnote darstellt.

Dim rngContinuationNotice As Range
Set rngContinuationNotice = ActiveDocument.Range.Endnotes.ContinuationNotice

Endnotes.ContinuationSeparator Gibt ein Range -Objekt zurück, das das Endnoten-Fortsetzungs Trennzeichen darstellt.

Dim rngContinuationSeparator As Range
Set rngContinuationSeparator = ActiveDocument.Range.Endnotes.ContinuationSeparator

Endnotes.Count Gibt einen Wert vom Typ Long zurück, der die Anzahl der Endnoten in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveDocument.Range.Endnotes.Count

Endnotes.Location Gibt die Position aller Endnoten zurück oder legt sie fest.

ActiveDocument.Range.Endnotes.Location = wdEndOfDocument

Endnotes.NumberingRule Gibt die Art der Endnotennummerierung nach einem Seiten- oder Abschnittsumbruch zurück oder legt sie fest.

ActiveDocument.Range.Endnotes.NumberingRule = wdRestartContinuous

Endnotes.NumberStyle Gibt die Zahlenformatvorlage zurück oder legt diese fest.

ActiveDocument.Range.Endnotes.NumberStyle = wdNoteNumberStyleArabic

Endnotes.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen Endnotes-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Endnotes.Parent

Endnotes.Separator Gibt ein Range -Objekt zurück, das die Endnoten Trennzeichen darstellt.

Dim rngSeparator As Range
Set rngSeparator = ActiveDocument.Range.Endnotes.Separator

Endnotes.StartingNumber Gibt die Anfangs Note, die Nummer oder die Seitenzahl zurück oder legt Sie fest.

ActiveDocument.Range.Endnotes.StartingNumber =