Hvordan søger man på tvunget linieskift (Enter)

I søgeruden skriver du ^P

Det virker - også med søg og erstat.
Men når jeg lægger det ind i en makro, så virker det ikke.

Jeg bruger denne makro dagligt, og det virker upåklageligt. Den erstatter linieskift med mellemrum:

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

Men hvordan lægger jeg den ind?

Start Word. Tryk Alt+F11. I ruden der åbner sig, kan du kopiere denne smøre:

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

Så kan du lukke vinduet igen, og nu er makroen tilgængelig under Funktioner - Makroer.

Super, tak skal du ha

Velbekomme :-)