Get Table position

I use Word automation in my VB6 appl.
I have a table (1cell) and i have a rectangle shape
I want to place a rectangle shape over the table at correct position.
So i need the table its Left,Top position this to move the schape and place it at correct position. Is this possible?
I allso need a second shape to be move the same way this to indicate the label contour (cicle, rectangular, oval). This shape is allso placed on top of the table.
I can move shapes but can't get the table coordinates.