View Single Post
 
Old 10-02-2019, 12:45 AM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,977
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

i would suggest you use the full paragraph instead of asking Word to determine what is a sentence. I haven't tested this but the following changes might do the job...

Replace:
oRng.Start = oRng.Sentences(1).Start
oRng.End = oRng.Sentences(1).End

With:
Set oRng = oRng.Paragraphs(1).Range
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote