ShapeRange.Nodes (Word)

Devuelve una colección ShapeNodes que representa la descripción geométrica de la forma especificada.

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