>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

Go on... you're doing fine. Even better than if I answered :).

Missing a "stay tuned... to be continued" in the end.

On a more serious note, yes, Word's DOM is somewhat confusing and has several serious misnomers (or else you would immediately have found what you were looking for, in something named more appropriately than "shapes"), but after some zigzagging and hair pulling, you eventually find what you need.