a macro to replace paragraph mark with a space applies effect on paragraph marks after the selection

drrr · #1 08-23-2021, 02:46 PM

this should replace paragraph mark with a space on the selection only
but it applies to the selection and paragraph marks after the selection

it was created with record macro functionality

Code:

Sub clean()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Guessed · #2 08-23-2021, 04:06 PM

The issue is the wdFindAsk. Try .Wrap = wdFindStop instead.

And clean it up a little to bring it all inside the With...End With - I don't know why Microsoft records this abnormality

Code:

Sub clean()
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^p"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

drrr · #3 08-24-2021, 03:05 AM

thanks! it works

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Skip double paragraph mark during find and replace in MS Word?	Jakov93	Word VBA	2	07-13-2021 11:07 PM
Accepting track changes via macro skips last paragraph mark, but not when accepting via Review menu	Peterson	Word VBA	3	03-25-2020 10:03 PM
Replace space with paragraph mark	jeffreybrown	Word VBA	8	08-22-2018 03:31 PM
Paragraph marks appear suddently	leonardevens	Word	1	07-13-2015 12:14 PM
Replace paragraph-marks (line-breaks) in tables with a character-string	Aztec	Word VBA	2	04-02-2013 10:52 PM