Solved: Find/Replace with Return Character

[Anne Troy]

I have a macro that inserts the ? character:

[vba]Selection.InsertSymbol CharacterNumber:=182, Unicode:=True, Bias:=0[/vba]

What I need is to find the real paragraph return, and replace it with this character AND a paragraph return. Here's the code I'd use to find a real paragraph return and replace it with an "X" and the real paragraph return:

[vba]Sub Macro3()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = "X^p"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub[/vba]

I am working on a book with code in it. I want to display to the reader where they must enter paragraph returns. My alternative is to type in so many underscores to make the code fit all within this 4-inch wide page.


Help me, help me!

[TonyJollans]

Hi Anne,

Just change:
[vba].Replacement.Text = "X^p"[/vba]
To
[vba].Replacement.Text = Chr(182) & "^p"[/vba]

[Anne Troy]

Yay!!
Thanks, Tony!!

[Anne Troy]

You know, Tony.... about half the time I run this dang macro, it replaces all of them--not just the selection. Is that bizarre or what? I just undo and do it again and again until it just does the selection. I don't get it. Word 2000.

[TonyJollans]

Try changing
[VBA].Wrap = wdFindContinue[/VBA]
to
[VBA].Wrap = wdFindStop[/VBA]

[Anne Troy]

k. thanks!