Microsoft Office Forums - View Single Post - [Solved] How do I insert a horizontal line at the end of a document?

gmayor · 04-14-2025, 07:10 AM

It must be a slow day.

Here's another way

Code:

Sub Macro1()
Dim oRng As Range
    Set oRng = ActiveDocument.Range
    oRng.Collapse 0
    oRng.Text = vbCr & vbCr
    With oRng.ParagraphFormat.Borders(wdBorderBottom)
        .LineStyle = wdLineStyleSingle
        .LineWidth = wdLineWidth225pt
    End With
    oRng.Collapse 0
    oRng.Text = Format(Date, "dddd, MMMM d, yyyy") & vbCr & Format(Time, "h:mm am/pm")
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub