Microsoft Office Forums - View Single Post - Making all lines following page breaks a particular style

gmayor · 01-09-2022, 10:57 PM

Without seeing the document, the following should do that. It searches for manual page breaks and adds the built-in Title paragraph style to the line following the page break. You can format that style however you wish:

Code:

Sub Macro1()
Dim orng As Range
    Set orng = ActiveDocument.Range
    orng.Paragraphs(1).Range.Style = "Title"
    With orng.Find
        Do While .Execute(findText:="^m")
            orng.Collapse 0
            orng.Next.Paragraphs(1).Style = "Title"
        Loop
    End With
End Sub