InlineShape.Line (Word)

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

For an inline shape with a border, the LineFormat object represents the border.

Dim lftLine As LineFormat
Set lftLine = ActiveDocument.Range.InlineShapes(1).Line