Klasse Indexes (Word VBA)
Eine Auflistung von Index -Objekten, die alle Indizes im angegebenen Dokument darstellt. Um eine Indexes -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim idxs as Indexes
Set idxs = ActiveDocument.Indexes
For Each
Hier ist ein Beispiel für die Verarbeitung der Indexes -Elemente in einer Sammlung
Dim idx As Index
For Each idx In ActiveDocument.Indexes
Next idx
Add
Gibt ein Index-Objekt zurück, das einen neuen Index darstellt, der einem Dokument hinzugefügt wurde.
Ein Index wird aus XE-Feldern (Indexeinträge) in einem Dokument erstellt.
Add (Range, HeadingSeparator, RightAlignPageNumbers, Type, NumberOfColumns, AccentedLetters, SortBy, IndexLanguage)
ActiveDocument.Indexes.MarkEntry _
Range:=Selection.Range, Entry:="My Entry"
Set MyRange = ActiveDocument.Content
MyRange.Collapse Direction:=wdCollapseEnd
ActiveDocument.Indexes.Add Range:=MyRange, Type:=wdIndexRunin
Arguments
Ein benanntes Argument
Range (Range) - Der Bereich, in dem der Index angezeigt werden soll.
Optional arguments
Die folgenden Argumente sind optional
HeadingSeparator (String) - Der Text zwischen alphabetischen Gruppen (Einträge, die mit dem gleichen Buchstaben beginnen) im Index.
RightAlignPageNumbers (Boolean) - True, wenn die Seitenzahlen am rechten Rand ausgerichtet werden sollen.
Type - WdIndexType
Mögliche Rückgabewerte sind wdIndexIndent - Eingezogener Index, wdIndexRunin - Fortlaufender Index.
NumberOfColumns (Long) - Die Anzahl der Spalten für jede Seite des Index.
AccentedLetters (Boolean) - True , um getrennte Überschriften für akzentuierte Buchstaben in den Index einzubeziehen (beispielsweise werden Wörter, die mit "?" beginnen, und Wörter, die mit "A" beginnen, in separaten Überschriften aufgeführt).
SortBy (WdIndexSortBy) - Das für den angegebenen Index zu verwendende Sortierkriterium.
Mögliche Rückgabewerte sind wdIndexSortByStroke - Sortierung nach der Anzahl der Striche in einem Zeichen, wdIndexSortBySyllable - Phonetische Sortierung.
IndexLanguage (WdLanguageID) - Die für den angegebenen Index zu verwendende Sortiersprache.
Dies sind mögliche Werte für
AutoMarkEntries
Fügt dem angegebenen Dokument automatisch XE-Felder (Indexeintrag) hinzu, wobei die Einträge aus einer Konkordanzdatei verwendet werden.
Eine Konkordanzdatei ist ein Word-Dokument, das eine Tabelle mit zwei Spalten enthält, wobei sich in der ersten Spalte Ausdrücke befinden, die in ein Verzeichnis aufgenommen werden sollen, und in der zweiten Spalte Indexeinträge.
AutoMarkEntries (ConcordanceFileName)
ConcordanceFileName: Die Konkordanzdatei, die eine Liste von Elementen enthält, die mit einem Index zu versehen sind.
Documents("Thesis.doc").Indexes.AutoMarkEntries _
ConcordanceFileName:="C:\Documents\List.doc"
Count
Gibt einen Wert vom Typ Long zurück, der die Anzahl der Indizes in der Auflistung darstellt.
Dim lngCount As Long
lngCount = ActiveDocument.Indexes.Count
Format
Zurückgeben oder Festlegen einer WdIndexFormat , die die Formatierung für die Indizes im angegebenen Dokument darstellt. Mögliche Rückgabewerte sind wdIndexBulleted - Aufzählung, wdIndexClassic - Classic, wdIndexFancy - Ausgefallen, wdIndexFormal - Formalen, wdIndexModern - Modernen, wdIndexSimple - Einfache, wdIndexTemplate - Von Vorlage.
ActiveDocument.Indexes.Format = wdIndexBulleted
Item
Gibt ein einzelnes Index -Objekt in einer Auflistung zurück.
Item (Index)
Index: Das einzelne Objekt zurückgegeben werden soll.
Dim idx As Index
Set idx = ActiveDocument.Indexes(Index:=1)
MarkAllEntries
Fügt nach allen Instanzen des Texts im Bereichein XE-Feld (Index Eintrag) ein.
MarkAllEntries (Range, Entry, EntryAutoText, CrossReference, CrossReferenceAutoText, BookmarkName, Bold, Italic)
If Selection.Type = wdSelectionNormal Then
ActiveDocument.Indexes.MarkAllEntries _
Range:=Selection.Range, _
Entry:=Selection.Range.Text, Italic:=True
ActiveDocument.Indexes(1).Update
End If
Arguments
Ein benanntes Argument
Range (Range) - Der Bereich, dessen Text im gesamten Dokument mit einem XE-Feld markiert wird.
Optional arguments
Die folgenden Argumente sind optional
Entry - Index
EntryAutoText (String) - Der AutoText-Eintrag, der den im Index anzuzeigenden Text enthält (wenn dieses Argument angegeben wird, wird Entry ignoriert).
CrossReference (Index) - Ein Querverweis, der im Index angezeigt wird.
CrossReferenceAutoText (String) - Der Name des AutoText-Eintrags, der den Text für einen Querverweis enthält (wenn dieses Argument angegeben wird, wird CrossReference ignoriert).
BookmarkName (String) - Der Name der Textmarke, mit der der im Index anzuzeigende Seitenbereich markiert wird.
Bold (Boolean) - True, wenn den Seitenzahlen für Indexeinträge Fettformatierung zugewiesen werden soll.
Italic (Boolean) - True, wenn den Seitenzahlen für Indexeinträge Kursivformatierung zugewiesen werden soll.
MarkEntry
Fügt ein XE-Feld (Indexeintrag) nach dem angegebenen Bereich ein.
MarkEntry (Range, Entry, EntryAutoText, CrossReference, CrossReferenceAutoText, BookmarkName, Bold, Italic, Reading)
If Selection.Type = wdSelectionNormal Then
ActiveDocument.Indexes.MarkEntry Range:=Selection.Range, _
Entry:="Introduction:" & Selection.Range.Text, Italic:=True
End If
Arguments
Ein benanntes Argument
Range (Range) - Die Position des Eintrags.
Optional arguments
Die folgenden Argumente sind optional
Entry - String
EntryAutoText (String) - Der Name des AutoText-Eintrags, der Text für den Index, das Abbildungsverzeichnis oder das Inhaltsverzeichnis enthält (Entry wird ignoriert).
CrossReference (String) - Ein Querverweis, der im Index erscheinen wird (zum Beispiel "Siehe Äpfel").
CrossReferenceAutoText (String) - Der Name des AutoText-Eintrags, der den Text für einen Querverweis enthält (CrossReference wird ignoriert).
BookmarkName (String) - Der Name der Textmarke, die den Seitenbereich markiert, der im Index erscheinen soll.
Bold (Boolean) - True, wenn dem Seitenzahleneintrag im Index Fettformatierung zugewiesen werden soll.
Italic (Boolean) - True, wenn dem Seitenzahleneintrag im Index Kursivformatierung zugewiesen werden soll.
Reading - Boolean