Klasse FootnoteOptions (Word VBA)

Die Klasse FootnoteOptions stellt die Eigenschaften dar, die einem Bereich oder einer Auswahl von Fußnoten in einem Dokument zugewiesen wurden.

Set

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

Dim fos as FootnoteOptions
Set fos = Selection.FootnoteOptions

Die folgenden Prozeduren können zum Festlegen der FootnoteOptions Klassenvariablen verwendet werden : Range.FootnoteOptions und Selection.FootnoteOptions

LayoutColumns

Gibt zurück oder legt fest, wie Fußnoten in Spalten angeordnet werden, wenn der Abschnitt mit dem Verweiszeichen mehrere Spalten enthält.

Selection.FootnoteOptions.LayoutColumns =

Location

Gibt die Position aller Fußnoten zurück oder legt sie fest.

Möglichen Werte sind wdBeneathText - Unterhalb des aktuellen Texts, wdBottomOfPage - Am Ende der aktuellen Seite.
ActiveDocument.Footnotes.Location = wdBottomOfPage

NumberingRule

Gibt die Art der Fußnoten- oder Endnotennummerierung nach einem Seiten- oder Abschnittsumbruch zurück oder legt sie fest.

Möglichen Werte sind wdRestartContinuous - Nummern werden fortlaufend zugewiesen, wdRestartPage - Nummern werden für jede Seite zurückgesetzt, wdRestartSection - Nummern werden für jeden Abschnitt zurückgesetzt.
Set myRange = ActiveDocument.Sections(1).Range 
If myRange.Footnotes.NumberingRule = wdRestartSection Then 
 myRange.Footnotes.NumberingRule = wdRestartPage 
End If

NumberStyle

Gibt die Zahlenformatvorlage für Fußnoten zurück oder legt diese Formatvorlage fest.

Möglichen Werte sind wdNoteNumberStyleArabic - Zahlenformat für Arabisch, wdNoteNumberStyleArabicFullWidth - Zahlenformatvorlage für Arabisch, breit, wdNoteNumberStyleArabicLetter1 - Schriftformat 1 für Arabisch, wdNoteNumberStyleArabicLetter2 - Schriftformat 2 für Arabisch, wdNoteNumberStyleHanjaRead - Hanja Zahlenformat, wdNoteNumberStyleHanjaReadDigit - Hanja Ziffernformat, wdNoteNumberStyleHebrewLetter1 - Schriftformat 1 für Hebräisch, wdNoteNumberStyleHebrewLetter2 - Schriftformat 2 für Hebräisch, wdNoteNumberStyleHindiArabic - Zahlenformatvorlage für Hindi/Arabisch, wdNoteNumberStyleHindiCardinalText - Haupttextformatvorlage für Hindi, wdNoteNumberStyleHindiLetter1 - Schriftformat 1 für Hindi, wdNoteNumberStyleHindiLetter2 - Schriftformat 2 für Hindi, wdNoteNumberStyleKanji - Zahlenformatvorlage für Kanji, wdNoteNumberStyleKanjiDigit - Kanji Zahlenformat, wdNoteNumberStyleKanjiTraditional - Zahlenformatvorlage für Kanji (traditionell), wdNoteNumberStyleLowercaseLetter - Schriftformat für Kleinbuchstaben, wdNoteNumberStyleLowercaseRoman - Zahlenformatvorlage für Kleinbuchstaben, römisch, wdNoteNumberStyleNumberInCircle - Zahlenformatvorlage für von einem Kreis umgebene Zahl, wdNoteNumberStyleSimpChinNum1 - Zahlenformatvorlage 1 für Chinesisch (vereinfacht), wdNoteNumberStyleSimpChinNum2 - Zahlenformatvorlage 2 für Chinesisch (vereinfacht), wdNoteNumberStyleSymbol - Zahlenformatvorlage für Symbole, wdNoteNumberStyleThaiArabic - Zahlenformatvorlage für Thailändisch/Arabisch, wdNoteNumberStyleThaiCardinalText - Haupttextformatvorlage für Thailändisch, wdNoteNumberStyleThaiLetter - Schriftformat für Thailändisch, wdNoteNumberStyleTradChinNum1 - Zahlenformatvorlage 1 für Chinesisch (traditionell), wdNoteNumberStyleTradChinNum2 - Zahlenformatvorlage 2 für Chinesisch (traditionell), wdNoteNumberStyleUppercaseLetter - Schriftformat für Großbuchstaben, wdNoteNumberStyleUppercaseRoman - Zahlenformatvorlage für Großbuchstaben, römisch, wdNoteNumberStyleVietCardinalText - Haupttextformatvorlage für Vietnamesisch.

Einige der WdNoteNumberStyle -Konstanten stehen Ihnen möglicherweise nicht zur Verfügung, abhängig von der Sprachunterstützung (beispielsweise US-Englisch), die Sie ausgewählt oder installiert haben.

Selection.FootnoteOptions.NumberStyle = wdNoteNumberStyleArabic

Parent

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

Dim objParent As Object
Set objParent = Selection.FootnoteOptions.Parent

StartingNumber

Gibt die Anfangsfußnotennummer an oder legt diese fest.

Selection.FootnoteOptions.StartingNumber =