Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim strAbbr, i As Long
Dim oRng As Range
    strAbbr = ".Mr.Mrs.etc."
    With Selection
      Set oRng = Selection.Range
      .Collapse 0
      If .End <= .Sentences.First.End Then .MoveEnd wdSentence, 1
      Do While InStr(strAbbr, "." & Trim(.Words.Last.Previous.Words.First) & ".") > 0 Or Selection.Text = vbCr
        .MoveEnd wdSentence, 1
      Loop
      oRng.End = .End
      
    End With
    If oRng.Characters.Last.Previous = vbCr Then oRng.MoveEnd wdCharacter, -1
    oRng.Select
    
    If Selection.Characters.Last.Previous = vbCr Then Selection.Move wdCharacter, -1
lbl_Exit:
  Exit Sub
  
End Sub