Underline word(s) over the whole page width using VBA

[Ludo_Soete]

Hi,



If i type a word, or words, followed by a CR LF, followed by 3 consecutive underline characters, then is the result a full line under the typed word(s) stretching from the left side of the page to the right side of the page - see picture on the bottom of the message.
This is not the same as underlining the word(s), the line spacing is also different as you can see in the picture.

I would like to obtain this using VBA, but I'm not lucky at all.
I record a macro, see code below, but this is only placing the 3 underline characters on a new line, not what I expected.

How can this be done?
I'm new with Word & VBA for Word, no experience at all.

Ludo

Sub Macro8()
'
' Macro8 Macro
'
'
    Selection.TypeText Text:="titel"
    Selection.TypeParagraph
    Selection.TypeText Text:="___"
    Selection.TypeParagraph
End Sub

[gmayor]

Use a paragraph border e.g.

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

[Ludo_Soete]

Originally Posted by gmayor

Use a paragraph border e.g.

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.