Public Sub WriteInBookmark(ByVal BookmarkName As String, _
ByVal BookmarkText As String, ByVal Dest As String)
 
    Dim Dok As Word.Document
    Set Dok = Documents.Add(Dest)
 
    'Schreibt einen neuen Wert in ein vorhandenes Bookmark
    If Dok.Bookmarks.Exists(BookmarkName) Then
 
        Dim r As Range
        Set r = Dok.Bookmarks(BookmarkName).Range
        r.Text = BookmarkText
 
        Dok.Bookmarks.Add BookmarkName, r
 
    End If
 
End Sub