Anne Troy
02-17-2005, 06:07 AM
I have a macro that inserts the ? character:
Selection.InsertSymbol CharacterNumber:=182, Unicode:=True, Bias:=0
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:
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
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.
:banghead:
Help me, help me!
Selection.InsertSymbol CharacterNumber:=182, Unicode:=True, Bias:=0
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:
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
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.
:banghead:
Help me, help me!