Extend selection till you reach a certain word

[stuck]

How do I tweak this code:

Code: Select all

Selection.HomeKey Unit:=wdLine
Selection.Extend
Selection.MoveRight Unit:=wdWord
Selection.MoveLeft Unit:=wdCharacter, Count:=1

so that instead of it selecting just the first word of a line it selects all the words that occur before the word 'in', which will exist just once in the line but not always at the same point?

Thanks,

Ken

[StuartR]

This will do what you asked for, but if you run it on a line without "in" then it will go into an infinite loop.

Code: Select all

  Selection.HomeKey Unit:=wdLine
    Selection.Extend
    Do Until LCase(Trim(Selection.Words(Selection.Words.Count))) = "in"
        Selection.MoveRight Unit:=wdWord
    Loop
    Selection.MoveLeft Unit:=wdWord
    Selection.MoveLeft Unit:=wdCharacter, Count:=1

[stuck]

Thanks Stuart, meanwhile after some trial and error I came up with:

Code: Select all

Selection.HomeKey Unit:=wdLine
Selection.Extend
Selection.Find.Execute FindText:=" in ", Forward:=True, Wrap:=wdFindStop
Selection.MoveLeft Unit:=wdCharacter, Count:=4

which will also fails if it never finds " in " but, at the moment at least, the sentence in question does contain " in ". I'll cross the bridge of how to handle things when it doesn't have that key phrase in due course...

Ken

[Rudi]

You could make use of the .Found property...

Code: Select all

Selection.HomeKey Unit:=wdLine
Selection.Find.Execute FindText:=" in ", Forward:=True, Wrap:=wdFindStop
If Selection.Find.Found Then
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
End If

[stuck]

Ta! Presumably I could tweak FindText:= " in " to use a variable rather than fixed text?

If so that would allow me to use " in " as the default but if " in " wasn't found I could present an input box and the user could enter the separator text specific to their situation.

Ken

[HansV]

Yes, FindText can be set to a variable or to an expression.