replace + format

[Mark Daring]

My macro replaces all manual line breaks (Chr(11)) within a paragraph.
The problem is that for example all bold words turn into plain after the
makro was applied.

How can I preserve my formatting???

Thx.




My Makro:

Sub replace11()
Set mr = Selection.Range
mr.Expand (wdParagraph)
mr.Text = Replace(mr.Text, Chr(11), Chr(32))
End Sub

 

[Mark Daring]

Just accidently came across it.

That will do it:

Sub findreplace11()
Set mr = Selection.Range
mr.Expand (wdParagraph)
With mr.Find
.ClearFormatting
.Text = Chr(11)
With .Replacement
.ClearFormatting
.Text = Chr(32)
End With
.Execute Replace:=wdReplaceAll
End With
End Sub