per VBA Felder in Word als Indexeintrag kennzeichnen

Auch wenn es zu Deinem Problem nicht passt, hier ein Beispiel für die Aufnahme eines markierten Wortes in den Index. Kann für alle Arten von Feldern verwendet werden, weil ich den allgemeinen Fields.Add-Aufruf verwendet habe und den Feldttyp über den String
bestimme, wie in Deinem Code.

Sub XEHaupteintrag()    Haupteintrag = Selection    Selection.MoveRight Unit:=wdCharacter, Count:=1    If Right(Haupteintrag, 1) = " " Then        Haupteintrag = Left(Haupteintrag, Len(Haupteintrag) - 1)        Selection.MoveLeft Unit:=wdCharacter, Count:=1    End If    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _        PreserveFormatting:=False    Selection.TypeText Text:="XE """ & Haupteintrag & """"    Selection.MoveRight Unit:=wdWord, Count:=2End Sub

Gruß

G.O.

Hallo Thomas,

wie schon von G. O. erwähnt, hast du die geschweiften Klammern { } lediglich als statischen Text eingefügt.

Feldfunktionen müssen als solche aber erkennbar und somit anders gekennzeichnet sein. XE-Felder sind außerdem verborgen bzw. ausgeblendet formatiert, damit sie nicht gedruckt werden.

Mir ist nicht klar, was letztlich genau passieren soll. Aber vielleicht hilft dir folgende Seite schon weiter:

https://docs.microsoft.com/en-us/office/vba/api/word.indexes.add

Wenn du das gesamte Dokument nach bestimmten Wörtern durchsuchen und kennzeichnen lassen willst, könnte - wenn es sich um eine Vielzahl verschiedener Wörter handelt, die es zu suchen gilt - eine Konkordanzdatei hilfreich sein: eine Wordtabelle, die in der
ersten Spalte die zu suchenden Texte enthält und in der zweiten Spalte jene Texte, die letztendlich im Verzeichnis erscheinen sollen.

https://docs.microsoft.com/en-us/office/vba/api/word.indexes.automarkentries

Viele Grüße

Lisa

Antwort an Lisa:

Zu Erklärung hier ein Ausschnitt aus dem Dokument:

--------------------------------------------------------------------------------------------------------------------------





-------------------------------------------------------------------------------------------------------------------------------

Alle roten Wörter müssen in den Index. Alles Schwarze ist Text einschließlich der Nummern(Ordnernummern).

Auch wenn es oft gleiche Schlagworte sind, ich benötige die Verweise auf die entsprechende Seite.

In dem aktuellen Doc sind es ~60 Seiten, es werden wohl 200.

Wie gesagt Schlagwörter bestimmt ~2000.

@G.O.

Ich bin noch nicht sicher was ich benutzen kann, ich habe einiges probiert.

Thomas

Hallo Thomas,

leider verstehe ich die Zielsetzung noch nicht recht.

Deine Aussage, "Diese sollen dann zu der Seite führen, auf der diese Schlagworte … gedruckt sind", bedeutet nicht, dass du eigentlich Hyperlinks erstellen willst?

Du lässt in Word eine Liste von über 2000 Schlagwörtern erstellen und möchtest hieraus nur eine kleine Auswahl an Wörtern als Index-Einträge kennzeichnen? Die so gekennzeichneten Einträge sollen schließlich mit zugehöriger Seitenzahl im Schlüsselwortverzeichnis
aufgelistet werden? Die Seitenzahlen würden aber doch auf die jeweilige Seite im aktuellen Dokument verweisen.

Viele Grüße

Lisa

Sieht eben nicht gleich aus. {} vs. Feldklammern. Anstelle des Strings mit den geschweiften Klammern sollte es wohl besser ein Feld sein.

Gruß

G.O.