Index erstellen

Sprache / Programm: Word ab Version 2000

Beschreibung

In Word kann man die Stichworte, die in einem Stichwortverzeichnis erscheinen sollen, auf zwei Arten angeben:

Stichworte in eine eigene Datei eingeben und Word den Index erstellen lassen
Den Text durchgehen und Stichworte mit dem Feld { XE ... } selbst erstellen

Wenn das Stichwortverzeichnis wirklich hilfreich sein soll, muß man jedoch den Text manuell durchsuchen und mit Hand die Einträge für das Stichwortverzeichnis erstellen.

Weist man das folgende kleine VBA Makro einer Taste (z.B. F12) zu, so kann man die normalen Stichworte ganz schnell einsetzen:

Einfügemarke in das Wort setzen (bei mehreren Wörtern oder Worten mit Bindestrich: alle Wörter markieren) und F12 drücken.

VBA-Quelltext

Public Sub IndexEintragErstellen()
Dim Wort As String, AnzahlWorte As Byte

AnzahlWorte = Selection.Words.Count
ActiveDocument.Range(Selection.Words(1).Start, _
Selection.Words(AnzahlWorte).End).Select
Wort = Trim(Selection.Text)
Selection.Characters(Selection.Characters.Count).Select
If Selection.Text = " " Then Selection.MoveLeft wdCharacter, 1
ActiveDocument.Indexes.MarkEntry Selection.Range, Wort, Wort
End Sub

Hinweis

Damit die Indexeinträge sichtbar werden, sollte man im Menü 'Extres' -> 'Optionen' in der Registerkarte 'Ansicht' das Kontrollkästchen 'Ausgeblendeten Text' aktivieren.

Untereinträge (s. Word-Hilfe) können dann manuell vorgenommen werden.