Forget the image below:

Use:


Sub ScratchMacro()
Dim oRng As Range
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = "[!.\!\?]" & Chr(13)
.MatchWildcards = True
While .Execute
oRng.Select
oRng.Start = oRng.Start + 1
oRng.InsertBefore "."
oRng.Collapse wdCollapseEnd
Wend
End With
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/