[[email protected]]

There are lots of posts asking how to write a macro exporting a word
table to excel 2003. This is probably the most simple macro for this
task:

Sub GetWordTable()

Dim wdap As Word.Application
Dim wddc As Word.Document
Dim wdtbl As Word.Table

Set wdap = GetObject(, "word.application")
Set wddc = wdap.ActiveDocument
Set wdtbl = wddc.Tables(1)

wdtbl.Range.Cut

ActiveSheet.Paste

End Sub