Dim objBookmark As Variant Dim objRange As Variant Set objBookmark = ActiveDocument.Bookmarks("WordFeld") Set objRange = objBookmark.Range objRange.Text = "Dein Text"