Austausch Excel nach Word

Fehler beim Kompilieren:
Benutzerdefinierter Typ nicht definiert

ich habe hier viele möglichkeiten versucht jedoch ohne erfolg!

ganz kurz zum makro:
in meiner exceltabelle stehen name, strasse und wohnort
von verschiedenen personen. befindet sich der cursor in einer
bestimmten zeile, dann ruft der makro das worddokumentenvorlage
doc1 auf und trägt die daten ein.
in ihr sind drei textmarken definiert:
adresse, strasse und ort.

Sub ExcelDatenNachWord()
Dim wdapp As Word.Application 'bereits hier kommt fehlermeldung!
Dim wdDok As Word.Document
Dim xlZelle As Range
Dim intZeile As Integer
Set xlZelle = ActiveCell
intZeile = xlZelle.Row
If Cells(intZeile, 1).Value = "" Then
 MsgBox "Der Cursor wurde nicht richtig plaziert!"
 Exit Sub
End If
Set wdapp = Word.Application
Set wdDok = Document.Add("Dok1")
With wdapp
 With .Selection
 .GoTo what:=wdGoToBookmark, Name:="Adresse"
 If Cells(intZeile, 2).Value = 10 Then
 .TypeText Text:="Frau"
 Else
 .TypeText Text:="Herren"
End If
.TypeParagraph
.TypeText Text:=Cells(intZeile, 3).Value
.TypeParagraph
.TypeText Text:=Cells(intZeile, 4).Value
.TypeText Text:=" "
.TypeText Text:=Cells(intZeile, 5).Value
.GoTo what:=wdGoToBookmark, Name:="Strasse"
.TypeText Text:=Cells(intZeile, 6).Value
.GoTo what:=wdGoToBookmark, Name:="Ort"
.TypeText Text:=Cells(intZeile, 7).Value
.TypeText Text:=" "
.TypeText Text:=Cells(intZeile, 8).Value
End With
End With
Set wdapp = Nothing
Set wdDok = Nothing
End Sub

hoffe, dass ihr mir weiterhelfen könnt
dank und gruss aus köln