Within the limitations of the information you initially provided that's what
you have got. If you want it as a macro, then
Sub CreateParas()
Dim oRng As Range
Set oRng = ActiveDocument.Range
With oRng
.Text = Replace(oRng.Text, Chr(46) & Chr(32), Chr(46) & Chr(13))
.Text = Replace(oRng.Text, Chr(63) & Chr(32), Chr(63) & Chr(13))
.Text = Replace(oRng.Text, Chr(33) & Chr(32), Chr(33) & Chr(13))
.ParagraphFormat.SpaceAfter = 12
End With
End Sub
http://www.gmayor.com/installing_macro.htm
will take you as close as you are likely to get. However you still have the
problem that the macro requires a properly constructed sentence in order to
have something to work with.
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>