Sub GetTables()

FName = Application _
.GetOpenFilename("Word Files (*.doc), *.doc")

Set WordObject = GetObject(FName)

First = True
RowCount = 2
For Each Tble In WordObject.tables
For i = 1 To 22
If First = True Then
Data = Tble.Rows(i).Cells(1).Range
'Remove cell markers
Cells(1, i) = Left(Data, Len(Data) - 2)
End If
Data = Tble.Rows(i).Cells(2).Range.Text
'Remove cell markers
Cells(RowCount, i) = Left(Data, Len(Data) - 2)
Next i
RowCount = RowCount + 1
First = False
Next Tble
WordObject.Close savechanges = False
End Sub

"Beirdo" wrote:

I've got about 350 tables in Word. Each has 2 columns and 22 rows. I need
to import them into excel with 22 columns and 350 rows. The left column in
each Word table contains what will become the column title in excel. The
right column in each Word table contains what will become the data for each
record. Any help would be appreciated. Thanks