Find if the selection is a horizontal line

[NevilleT]

I want to check the current selection to see if it is a horizontal line. If not, I will insert a horizontal line. I have not found a value I can check. I also wanted to check if it is a table and that part of the code works OK

CheckTable:
If Selection.Information(wdWithInTable) Then
Selection.MoveDown unit:=wdLine, Count:=1


GoTo CheckTable
End If

I basically want to do the same thing for a horizontal line.