VBA code to remove empty rows above the specific sentence

[Dobracik1]

Hi all :-)


I'm a new one in Word developing and would like to ask for a small support.

I do have template, when running a mailemerge from one excel column, whether do have a complex concatenate formula ( out of 10 columns behind).

What I need, as after mail emerge I do have a lot of empty rows. Is there any change or possibility to have some sort of VBA code that will automatically remove all empty rows between this sentences, example and will keep only 1 empty row?



"You are in amid of this agreement."

"You are in the end of this agreement. "

I have found the following code, but this will delete all empty rows in document. Is it possible to update it for above condition?

Sub Deleemptyparagraphs()
Selection.Find.ClearFormatting


Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Thanks,
Andy

[vivka]

Hi! The folowing code will replace all 3 and more paragraph signs with two ones in the selected range:

Sub Deleemptyparagraphs()
selection.Find.ClearFormatting
selection.Find.Replacement.ClearFormatting
    With selection.Find
        .text = Chr(13) & "{3;}"
        .Replacement.text = "^p^p"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = True
        .MatchAllWordForms = False
        .MatchSoundsLike = False
    End With
selection.Find.Execute Replace:=wdReplaceAll
End Sub

[gmaxey]

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:

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.