ShapeRange.Nodes (Word)

Returns a ShapeNodes collection that represents the geometric description of the specified shape.

Dim sre As ShapeRange: Set sre =  
Dim snsNodes As ShapeNodes
Set snsNodes = sre.Nodes