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!