Fehler beim Verarbeiten der XML-Datei

Sub Worddeckblattbefuellen()
Application.ScreenUpdating = False
Const wdReplaceAll = 2
Const wdNoProtection = -1
Dim oAppWD As Object, oDoc As Object
Dim x As Variant
Dim i As Variant
Dim Ueberschrift As String
Dim Dokumentennamekomplett As String
Dim Name As String
Dim ID As String
Dim Nummer As String
Nummer = ("Nummer-" & ActiveWorkbook.Sheets("Eingabefenster").Range("B4").Value)
ID= ActiveWorkbook.Sheets("Eingabefenster").Range("B8").Value
Name = ActiveWorkbook.Sheets("Eingabefenster").Range("B18").Value
Dokumentennamekomplett = ("Nummer-" & ActiveWorkbook.Sheets("Eingabefenster").Range("B4"). _
Value & " " & Name)
Set oAppWD = CreateObject("Word.Application") 'Word als Object starten
If Not oAppWD Is Nothing Then
oAppWD.Visible = True
If oAppWD.Options.AllowReadingMode = True Then 'Word nicht im Lesemodus starten bei  _
Schreibgeschützten Dokumenten
oAppWD.Options.AllowReadingMode = False
End If
Set oDoc = oAppWD.Documents.Open("Dokument")
Application.DisplayAlerts = False
If Not oDoc Is Nothing Then
If oDoc.ProtectionType  wdNoProtection Then oDoc.Unprotect
With oAppWD.ActiveDocument
.FormFields("Text1").Range.Text = Dokumentennamekomplett
.FormFields("Text2").Range.Text = Nummer
.FormFields("Text3").Range.Text = ID
End With
oDoc.Save         'Dokument speichern
oDoc.Close        'Dokument schließen
oAppWD.Quit       'Word schließen
End If
End If
Set oAppWD = Nothing
Set oDoc = Nothing
End Sub