Paste Horizontal Line (Rich Text)

Macro Library
,
3

###MS Word VBA Macro to Apply Horizontal Line

You can add this VBA macro to your MS Word Normal template, and it will be available to ALL documents. You can assign a Word shortcut key to it, or execute the VBA macro from AppleScript, which you could embed in a KM macro.

Sub Horizontal_Line()
'
' Horizontal_Line Macro
'
'
    With Selection.ParagraphFormat
        .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        .Borders(wdBorderRight).LineStyle = wdLineStyleNone
        .Borders(wdBorderTop).LineStyle = wdLineStyleNone
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders
            .DistanceFromTop = 1
            .DistanceFromLeft = 4
            .DistanceFromBottom = 3
            .DistanceFromRight = 4
            .Shadow = False
        End With
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
End Sub