Shape.Nodes (Word)

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

With ActiveDocument.Shapes(3).Nodes 
 .Insert Index:=4, SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingSmooth, X1:=210, Y1:=100 
End With