Microsoft Office Forums - View Single Post - [Solved] Help Writing more Customized Command to Select Next Sentence in Microsoft Word

macropod · 03-07-2016, 12:37 AM

I'd use something like:

Code:

Sub Demo()
Dim strAbbr, i As Long
strAbbr = ".Mr.Mrs.etc."
With Selection
  If .Start > .Sentences.First.Start Then .MoveStart wdSentence, -1
  If .End < .Sentences.First.End Then .MoveEnd wdSentence, 1
  While InStr(strAbbr, "." & Trim(.Words.Last.Previous.Words.First) & ".") > 0
    .MoveEnd wdSentence, 1
  Wend
End With
End Sub