With ActiveDocument.Shapes(1).Nodes .Insert Index:=4, SegmentType:=ksoSegmentCurve, _ EditingType:=ksoEditingSmooth, X1:=210, Y1:=100End With