Replacement.Text fails to render vbCrLf

[sandal]

When I use a statement like

With .Selection.Find
.Replacement.Text = "Some Text" & vbCrLf & "More text on a new line"

I get a mess like

Some Text [][]More text on a new line

Those [] are standing in for little square characters.

It should be simple but how do I get

Some Text
More text on a new line

 

[Greg Maxey]

Try vbCr

e.g.,

Sub ScratchMacro()
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = "Test"
.Replacement.Text = "Test" & vbCr & "More text on following line"
.Execute Replace:=wdReplaceAll
End With

End Sub

 

[sandal]

I tried that and vbLf and Chr(13) you name it...

 

[Tony Jollans]

You should use "^p" to get a paragraph in the body of a word document.

If you are getting little square characters something is odd. Where is the
Selection?