Sub SelectSentence()
' Paul Beverley - Version 12.11.22
' Selects the current sentence + next sentence right

If Selection.Start = Selection.End Then
  Selection.Expand wdSentence
  Exit Sub
End If

Set rng = Selection.Range.Duplicate
If InStr(rng, vbCr) = 0 Then
  rng.Collapse wdCollapseEnd
  rng.Expand wdSentence
  Selection.End = rng.End
  Set rng = Selection.Range.Duplicate
  rng.Collapse wdCollapseStart
  rng.Expand wdSentence
  Selection.Start = rng.Start
Else
  rng.MoveStart , -1
  If Left(rng, 1) = vbCr Then
    rng.Collapse wdCollapseEnd
    rng.Expand wdSentence
    Selection.End = rng.End
  Else
    rng.Collapse wdCollapseStart
    rng.Expand wdSentence
    Selection.Start = rng.Start
  End If
End If
End Sub