Search and reduce the range of a text selection

paik1002 · #1 12-17-2015, 03:59 AM

For a predefined selection of text, I'd like to:

1. Change the range the selection by first searching for a specific character starting from the start of the selection, and
2. When such a character is found, the range of the selection is reduced(changed) to the position of the character(character inclusive).
3. I'd also like to do 1, 2 but this time starting from the end of the selection, and going backwards.

For example,
if the predefined selection of text is: "Jim, hello there? How are you doing?", and

I wish to find a single space within the text.

After running the macro, the result would be: " hello there? How are you " (white spaces exist on both ends of the selection)

gmayor · #2 12-17-2015, 04:51 AM

How about

Code:

Dim oRng As Range
Set oRng = Selection.Range
oRng.MoveEndUntil Chr(32), wdBackward
oRng.MoveStartWhile Chr(32)
oRng.MoveStartUntil Chr(32)
oRng.Select

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help required with Selection.Find to search a text file.	Marko	Word VBA	2	10-18-2014 06:32 AM
Search in Range Only Problem	NobodysPerfect	Word VBA	9	10-05-2014 04:43 AM
Selection (range) in Word or Excel table	NobodysPerfect	Word VBA	2	09-16-2014 12:06 AM
Selection or Range	Tommes93	Word VBA	1	04-10-2014 02:50 AM
Selection of all Text for a specific page in word is spanning selection across pages	ramsgarla	Word VBA	9	12-05-2012 03:23 AM