Microsoft Office Forums - View Single Post - [Solved] Underline word(s) over the whole page width using VBA

Ludo_Soete · 10-21-2019, 04:59 AM

Quote:

Originally Posted by gmayor

Use a paragraph border e.g.

Code:

Sub Macro1()
    Selection.TypeText Text:="titel"
    With Selection.ParagraphFormat.Borders(wdBorderBottom)
        .LineStyle = wdLineStyleSingle
        .LineWidth = wdLineWidth150pt
        .Color = wdColorAutomatic
    End With
End Sub

You may also find Lined Headings useful

Thanks for this fast reply.
Works great.