ShapeRange.Anchor (Word)

Returns a Range object that represents the anchoring range for the specified shape range.

If you use this property on a ShapeRange object that contains more than one shape, an error occurs. All Shape objects are anchored to a range of text but can be positioned anywhere on the page that contains the anchor. If you specify the anchoring range when you create a shape, the anchor is positioned at the beginning of the first paragraph that contains the anchoring range. If you don't specify the anchoring range, the anchoring range is selected automatically and the shape is positioned relative to the top and left edges of the page. The shape will always remain on the same page as its anchor. If the LockAnchor property for the shape is set to True, you cannot drag the anchor from its position on the page.

Dim sre As ShapeRange: Set sre =  
Dim rngAnchor As Range
Set rngAnchor = sre.Anchor