Ecxel Inhalte in Word-Vorlage ausgeben

Private Sub CommandButton1_Click()
Dim wordobj As Object, worddoc As Object
Dim Vorlage As String
Set wordobj = CreateObject("Word.application")
Vorlage = Application.CurrentProject.Path & "\sonstiges\vorlage.dot"
Set worddoc = wordobj.Documents.Add(template:=Vorlage)
worddoc.FormFields("a1").Result = Sheets("Daten").Range("A2").Value
End Sub

Er gibt mir die Fehlermeldung "Objekt unterstützt diese Eigenschaft oder Methode nicht" in folgender Zeile:
Vorlage = Application.CurrentProject.Path & "\sonstiges\vorlage.dot"
Was mache ich falsch oder wie kann man es auch lösen?
Vielen Dank
Alexander Müller