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