Document.Shapes (Word)

Returns a Shapes collection that represents all the Shape objects in the specified document.

This collection can contain drawings, shapes, pictures, OLE objects, ActiveX controls, text objects, and callouts. For information about returning a single member of a collection, see Returning an object from a collection. The Shapes property, when applied to a document, returns all the Shape objects in the main story of the document, excluding the headers and footers.

Set myDoc = Documents.Add 
myDoc.Shapes.AddShape msoShapeRectangle, 5, 25, 100, 50