Textmarke aus einem markierten Wort im Text

Mit nachfolgendem Code wird für ein markiertes Wort eine Textmarke an Cursorposition erstellt. Die Textmarke erhält als Name das markierte Wort.

001
002
003
004
005
006

Sub TextMarkeAusMarkierung()

ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=Trim(Selection.Range)

End Sub

Aus dem Rangeobjekt der Markierung im Text wird der Name der Textmarke erzeugt. Trim sorgt dafür, das am Anfang oder Ende der Markierung kein Leerzeichen steht, da dies ansonsten eine Fehlermeldung zur Folge hätte, weil ein Textmarkenname keine Leer- und/oder Sonderzeichen beinhalten darf.