Daten aus excel oder Word - Tabelle nutzen

Sub temp()
Dim ojbZeile        As Object
Dim sPfad           As String
Dim appWord         As Object
Dim sWordName       As String
Dim Tables          As Word.Table
Dim sZellenText     As String
Dim i               As Integer
Dim j               As Integer
Dim sZTextZusatz As String
Set appWord = CreateObject("Word.Application")
'sPfad = "C:\Documents and Settings\sobottam\privat\Gut zu wissen\Word_to_exel\"
'sWordName = "Neu Microsoft Word Document.doc"
'Worddocument öffnen
'appWord.Documents.Open sPfad & sWordName
'For Each Tables In appWord.ActiveDocument.Tables
For Each Tables In ActiveDocument.Tables
For i = 1 To Tables.Columns.Count ' Spalten abklappern
For j = 1 To Tables.Rows.Count 'Zeilen abklappern
sZellenText = Tables.Rows(j).Cells(i).Range.Text
Debug.Print sZellenText
Next j
Next i
Next
sZellenText = Tables.Rows(1).Cells(1).Range.Text
Debug.Print sZellenText
sZTextZusatz = sZellenText & "\" & "Teil"
Debug.Print sZTextZusatz
End Sub