Set every line break on 8 points
Hi !
I'm trying to write a macro that would set every line break on 8 points, but the macro recorder keeps no trace of the font size :
Code:
Sub Format_Line_breaks_8_pts()'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = "^p"
.Forward = True
.Format = True
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Could anyone help me make it work ?
Many thanks !