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

		Microsoft Office Forums > Microsoft Word > Word VBA
Help Writing more Customized Command to Select Next Sentence in Microsoft Word

FAQ

Thread Tools

Display Modes

03-07-2016, 12:37 AM

macropod

Windows 7 64bit Help Writing more Customized Command to Select Next Sentence in Microsoft Word

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,520

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

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

« Previous Thread | Next Thread »

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

Other Forums: Access Forums

All times are GMT -7. The time now is 12:41 AM.