Sub ParaSplitJoin()
' Paul Beverley - Version 04.12.24
' Splits the para after current sentence or joins to next para

addBlankLine = False
' addBlankLine = True

Set rng = Selection.Range.Duplicate
rng.Expand wdSentence
CR = vbCr
If addBlankLine = True Then CR = CR & CR

If Right(rng.Text, 1) = " " Then
  rng.start = rng.End - 1
  rng.Text = CR
Else
  rng.start = rng.End - 2
  If Left(rng.Text, 1) <> vbCr Then rng.MoveStart , 1
  rng.Text = " "
End If
End Sub