Set every line break on 8 points

[Bob Phillips]

Does this work?

Sub xmacrolignes()Dim Para As Paragraph

    For Each Para In ActiveDocument.Paragraphs

        With Selection

            .Find.Execute FindText:="^p"
            .Font.Size = 8
        End With
    Next Para
End Sub