Help Writing more Customized Command to Select Next Sentence in Microsoft Word

poetofpiano · #13 03-09-2016, 01:26 PM

I really cannot thank you enough for your help gmaxey. That one is virtually perfect!

I fooled around with another method of accomplishing my goal:

Code:

Selection.MoveRight Unit:=wdSentence, Count:=1, extend:=wdExtend

Do While Strings.Right(Selection.Range.Text, 4) = "Mr. " Or Strings.Right(Selection.Range.Text, 5) = "Mrs. " Or Strings.Right(Selection.Range.Text, 1) = vbCr
  Selection.MoveRight Unit:=wdSentence, Count:=1, extend:=wdExtend
Loop

End Sub

It is not nearly as elegant as yours, and adding new abbreviations to be excluded is much more cumbersome than in yours, so if you have any suggestions I would gladly use them. It functions exactly the same as yours except that with yours, if there is one or more blank lines below the last sentence of a Paragraph, it will not select any further than that last sentence, whereas mine will continue to select the blank lines below one at a time. Not a huge difference at all — I can’t think of a time where I wanted to select blank lines below a paragraph.

Again, thank you gmaxey and macropod!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Select backstage Print command programmatically	NobodysPerfect	Excel Programming	0	04-23-2015 08:52 AM
Select the whole sentence when a word has been modified	gloos	Word VBA	1	04-14-2015 10:24 PM
VBA code for Microsoft Word macro — select text and insert footnote	ndnd	Word VBA	10	01-06-2015 01:47 PM
Writing fractions using the Mathematics programme of Microsoft Word 2010	Microsoftenquirer1000	Word	8	11-19-2014 02:10 PM
Microsoft Word 2003: casual style from the writing box?	intooutfrom	Word	0	01-04-2010 01:52 PM