ændre tekst i bormærke uden at slette bogmærket

Indsæt denne funktion

Public Sub SkrivTilBogmaerke(bmkName As String, bmkNyText As String)
    If ActiveDocument.Bookmarks.Exists(bmkName) = True Then
        ActiveDocument.Bookmarks(bmkName).Select
        If Not ActiveDocument.Bookmarks(bmkName).Range.Text = "" Then
            Selection.Range.Delete
        End If
       
        If Not bmkNyText = "" Then 'Indsætter tekst (og sletter bokmærke)
            '**** Sletter evt. overflødige linieskift.
            While Asc(Right(bmkNyText, 1)) = 13 Or Asc(Right(bmkNyText, 1)) = 10
                bmkNyText = Left(bmkNyText, Len(bmkNyText) - 1)
            Wend
            Selection.TypeText "." 'Bruges til at bevare bogmærket
            Selection.MoveLeft wdCharacter, 1, wdExtend
            Selection.Bookmarks.Add bmkName
            Selection.MoveLeft wdCharacter, 1
            Selection.TypeText bmkNyText
            Selection.Range.Delete
        Else
            Selection.Bookmarks.Add bmkName
        End If
    End If
End Sub

Brug den således:

SkrivTilBogmaerke "Bogmærkenavn", "Teksten de´r skal indsættes"

hmmm, lidt omstændig. Jeg klarede mig med denne:

    navnL = Len(ActiveDocument.Bookmarks("navn").Range.Text)
   
    ActiveDocument.Bookmarks("navn").Select
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=Fnavn
   
    For I = navnL To 1 Step -1
    Selection.Delete Unit:=wdCharacter, Count:=1
    Next I

Det er en gammel kode som jeg har fået et eller andet sted fra. Jeg har ikke lavet om på den, da den virker *S*