Shape.Line (Word)

Returns a LineFormat object that contains line formatting properties for the specified shape.

For a line, the LineFormat object represents the line itself; for a shape with a border, the LineFormat object represents the border.

Set myDocument = ActiveDocument 
With myDocument.Shapes.AddLine(10, 10, 250, 250).Line 
 .DashStyle = msoLineDashDotDot 
 .ForeColor.RGB = RGB(50, 0, 128) 
End With