Microsoft Office Forums - View Single Post - [Solved] Find if the selection is a horizontal line

macropod · 06-25-2016, 07:17 PM

For that, you could try something like:

Code:

Sub Demo()
With Selection.Paragraphs(1).Range.Characters(1).Previous.Paragraphs(1).Range
  If .InlineShapes.Count = 0 Then
    Selection.ParagraphFormat.LeftIndent = InchesToPoints(1.4)      ' Set the value of the indent
    Selection.InlineShapes.AddHorizontalLineStandard                ' Add the line
  ElseIf .InlineShapes(1).Type <> wdInlineShapeHorizontalLine Then
    Selection.ParagraphFormat.LeftIndent = InchesToPoints(1.4)      ' Set the value of the indent
    Selection.InlineShapes.AddHorizontalLineStandard                ' Add the line
  End If
End With
End Sub