VBA code to remove empty rows above the specific sentence

vivka · #1 05-02-2024, 01:01 PM

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

Code:

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 · #2 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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA Code to remove specific highlight	syl3786	Word VBA	4	03-27-2023 05:01 PM
I need to remove rows in a table where the Merge field is empty	WordMonkey1	Mail Merge	2	10-28-2020 12:25 AM
Let bookmark check if there are empty bookmarks before and place sentence there?	RevoMedia	Word VBA	7	01-21-2020 08:04 AM
Design Macro or Code to Delete Table Rows When Null/Blank/Empty Upon Doc Close/Save	aaghd72	Word VBA	8	02-18-2019 11:22 AM
Mail merge: remove empty rows when a field is not showed	Yarikh	Mail Merge	4	09-23-2018 12:17 AM