Access 2010 Bookmark Fehlermeldung: Dieser Bereich kann nicht gelöscht werden

Private Sub Befehl0_Click()
    Dim wo As Word.Application
    Dim doc As Word.Document
    Set wo = New Word.Application
    
    Set doc = wo.Documents.Open("C:\Users\xxx\Documents\Dok1.docx")  
    
    'Fehlermeldung: Dieser Bereich kann nicht gelöscht werden  
    doc.Bookmarks("Text1").Range = "Test"  
    
    wo.Visible = True
End Sub