Textmarken in Word für markierten Texte erstellen

[dinoldo]

Hallo Leute,

ich muss in einer Word Vorlage aus bestehenden Texten die Textmarken erstellen.

Mit diesem Code kann ich es aktuell für markierten Text erfolgreich erstellen.

Sub Bookmarks_Select()
    ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=Trim(Replace$(Selection.Range, vbCr, vbNullString))
End Sub

Wenn ich mehrere Zeilen auswähle, dann funktioniert es nicht bzw. die es wird nur eine Textmarke angelegt und diese hat den Inhalt "A_4B_4C_4D_4"

Was muss ich bitte im Code ändern, damit einzelne Textmarken angelegt werden?

Besten Dank im Voraus!

Gruß Dino

 

[halwe]

Markiere einfach die Zeilen nacheinander und starte das Makro jeweils. Oder du baust im Makro eine Schleife über die betreffenden Zeilen. Oder ich verstehe den Bedarf nicht richtig.

 

[dinoldo]

Nacheinander geht es jedenfalls. Über eine Schleife habe ich leider nicht hinbekommen.

 

[G.O.Tuhls]

Textmarken werden immer auf die Markierung bezogen. Um mehrere TM anzulegen, sind mehrere Textpassagen nacheinander mit Textmarken zu versehen.
Warum das Makro für nur einen Befehl?

 

[dinoldo]

@G.O.Tuhls Wie würdest du es bitte code-technisch lösen?

 

[G.O.Tuhls]

Einfach ohne Makro: Text markieren, Textmarke zuweisen.
Das Makro erspart Dir ja auch nicht die Eingabe des TM-Namens.
Ein Makro, das den Text durchforstet, braucht Anhaltspunkte, welcher Text bearbeitet werden soll.