"#5941 Element ist nicht in Sammlung vorhanden

Sub zuweisen()
Dim Projektnummer As String
With Application.FileSearch
.LookIn = DieseArbeitsmappe.Path ' anpassen an projektdokumente
.FileType = msoFileTypeWordDocuments
.Execute
'Set myWord = CreateObject("Word.Application.9")
'myWord.Visible = True
For Each Datei In .FoundFiles
Documents.Open Datei
Set myWord = ActiveDocument
'hier deinen Code einfügen was du mit Datei machen willst
Projektnummer = DieseArbeitsmappe.Sheets(1).Cells(2, 2).Value
Word.Application.ActiveDocument.Bookmarks("Projektnummer").Select
myWord.Bookmarks("Projektnummer").Select
With Word.Application.Selection
.InsertAfter Projektnummer
End With
myWord.Application.Documents.Save
myWord.Application.Documents.Close
Next Datei
End With
End Sub
So weit so gut. Aber an der Stelle Word.Application.ActiveDocument.Bookmarks; "Projektnummer").Select kommt die Fehlermeldung "#5941 Das angeforderte Element ist nicht in der Sammlung vorhanden".
Kann jemand etwas mit der Fehlermeldung anfangen und mit weiterhelfen?
Vielen Dank
Felix