Macro with conditions (Any)

[kaplinb]

I need to create a macro to find all "hard returns" - paragraph characters ( ^p ) and replace them with white spaces ( ^w ) if previous character is not a dot ( . ) or paragraph character ( ^p ).

Can anybody help me?

[HansV]

You don't really need a macro for this. You can turn on 'Use wildcards' in the Replace dialog, enter <code>([!.^13])^13</code> in the 'Find what' box and enter <code>1</code> followed by a space in the Replace with box.

If you do need a macro, here is the code equivalent of the above:
<code>
Sub Test()
Selection.HomeKey Unit:=wdStory
With Selection.Find
.MatchWildcards = True
.ClearFormatting
.Replacement.ClearFormatting
.Text = "(<!t>[!.^13]<!/t>)^13"
.Replacement.Text = "1 "
.Execute Replace:=wdReplaceAll
End With
End Sub</code>

[kaplinb]

It works! Thank you!