Textmarken
01.04.2022 15:45:47
MMRH
ich arbeite momentan viel mit Textmarken in Word. Dabei erstelle ich immer im Text eine Textmarke1 und am Ende des Texts eine Textmarke2, die über einer Anlage steht. So kann ich aus dem Text zur Anlage springen und von der Anlage wieder zum Text zurück; sofern ich beide Textmarken verlinke. Ich weiß auch gar nicht ob das der beste Weg ist, aber mit Querverweisen etc. kenne ich mich nicht aus.
Ich habe mir folgendes Makro zusammengeschustert, das mir helfen soll mit einem Klick eine Textmakre zu erstellen, die so heißt, wie das markierte Wort:
Sub textmarke()
Dim s As String
s = selection
selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
selection.Copy
With ActiveDocument.Bookmarks
.Add Range:=selection.Range, Name:=s + "zurück"
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
MsgBox ("Textmarke auf die zurückverlinkt werden kann wurde erstellt")
end sub
Das würde ich gerne noch überwinden.
Ich bedanke mich im Voraus.