ShapeRange.Nodes (Word)

Retorna uma coleção ShapeNodes que representa a descrição geométrica da forma especificada.

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