Microsoft Office Forums - View Single Post - VBA code to remove empty rows above the specific sentence

gmaxey · 05-04-2024, 07:26 AM

This might not be the exact answer you are looking for, but using "empty" paragraphs for spacing is a poor formatting choice.

Remove the empty paragraphs:

Code:

Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oRng As Range
Dim oPar As Paragraph
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = Chr(13) & "{2,}"
    .Replacement.Text = "^p"
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
lbl_Exit:
  Exit Sub
End Sub

Determine the style that you have applied to your text and modify its Space Before property to 12 pts or whatever you want, or modify its line spacing property to double.