How to remove manual line break using word vba

This part of code is for removing the all Manual Line Break in word document at once.

What is Manual line break?

A manual line break ends the current line and continues the text on the next line. For example, suppose your paragraph style includes extra space before each paragraph.

To get Manual Line Break

1. Click where you want to break a line of text.

2. Press SHIFT+ENTER.

How to remove

To remove Manual we need to search the for manual line break and replace it with space or nothing

≫ Find Manual Line Break

Selection.Find.Text = "^l"

≫ Replace with space

Selection.Find.Replacement.Text =  ""

Full code of this article

PublicSub RemoveManualLineBreak()

    Selection.WholeStory

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    WithSelection.Find

        .Text = "^l^t"

        .Replacement.Text = "^p"

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchKashida = False

        .MatchDiacritics = False

        .MatchAlefHamza = False

        .MatchControl = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    EndWith

    Selection.Find.Execute Replace:=wdReplaceAll

   

    Selection.WholeStory

    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    WithSelection.Find

        .Text = "^l"

        .Replacement.Text = " "

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchKashida = False

        .MatchDiacritics = False

        .MatchAlefHamza = False

        .MatchControl = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    EndWith

    Selection.Find.Execute Replace:=wdReplaceAll

   

    Selection.HomeKey Unit:=wdStory

EndSub

How to test this Code

1. Open Ms Word

2. Open VB Editor or Alt+F11

3. Create new module

4. Copy and paste the Code

5. Go back to you word and go to Macro Dialog then select the Macro Name (RemoveManualLineBreak) and Click on Run