Zugriff auf Word-Daten

Sub Import()
Dim nRow As Integer
Dim strVerzeichnis As String
Dim StrDatei As String
Dim StrTyp As String
Dim Dateiname As String
Dim oWord As Object
Dim szFooter As String
Application.ScreenUpdating = False
nRow = 1
Set oWord = CreateObject("word.application")
If IsNull(oWord) Then Exit Sub
strVerzeichnis = "C:\Temp\"
StrTyp = "*.docx"
Dateiname = Dir(strVerzeichnis & StrTyp)
Do While Dateiname  ""
oWord.documents.Open (strVerzeichnis & Dateiname)
szFooter = oWord.activedocument.sections(1).footers(1).Range.Text
Sheets(1).Cells(nRow, 1).Value = szFooter
oWord.activedocument.Close
Dateiname = Dir
nRow = nRow + 1
Loop
Application.ScreenUpdating = True
Set oWord = Nothing
End Sub