answer

oWord = CREATEOBJECT('word.application')
oWord.Visible= .T.
od= oWord.documents.open("c:d\tax\stmt2.doc")
oshape =oWord.ActiveDocument.Shapes
otable =oshape.Item(1)
oT =oshape.Item(1)
ot.Select
oWord.Selection.Tables(1).Select
oWord.Selection.Copy