Bogmærke

Fandt dette på eksperten - virker:

    If Titel.Value > "" Then

    With ActiveDocument
        If .Bookmarks.Exists("Titel") = True Then
            Set oRange = .Bookmarks("Titel").Range
            oRange.Text = Titel.Value
            .Bookmarks.Add "Titel", oRange
        End If
    End With
    Set oRange = Nothing
    Else
    End If