Find if the selection is a horizontal line

macropod · #4 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Check for a horizontal line	NevilleT	Word VBA	2	01-06-2016 11:50 PM
smart art horizontal line	sgroves20	Word	0	11-05-2014 08:17 AM
a troubling horizontal line	mingming	Word	1	09-14-2014 05:16 AM
How to set month+1 and horizontal line	nightkn8	Word	12	03-25-2013 02:06 PM
Horizontal sawtooth line	JamesT	Word	3	10-29-2011 05:39 PM