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