Search and Replace Question

[L.A. Lawyer]

I want to:

1. Go to the top of the ActiveDocument

2. Search for each instance of "double hard returns" (the equivalent of
hitting "Enter" twice) and replace each instance with a page separator (the
same as hitting Ctrl-Enter).

I also want to know how to do this if the text is held in a string variable.

 

[macropod]

Hi L.A. Lawyer,

Try:
Sub Reformat()
Dim StrDblPar As String, StrPgBrk As String
StrDblPar = "^p^p"
StrPgBrk = "^m"
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = StrDblPar
.Replacement.Text = StrPgBrk
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
End Sub