search for next word

[Partha Mandayam]

I want to find a particular word in a document and then find the immediate
next word and store it in a variable. How can I do this?

 

[Mark Tangard]

I want to find a particular word in a document and then find the immediate
next word and store it in a variable. How can I do this?

Dim myvar As String
With Selection.Find
.Text = "YourWordHere"
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWildcards = False
.Execute
End With
Selection.MoveRight Unit:=wdWord, Count:=1
myvar = Selection.Words(1).Text

 

[Partha Mandayam]

Thanks

Dim myvar As String
With Selection.Find
.Text = "YourWordHere"
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWildcards = False
.Execute
End With
Selection.MoveRight Unit:=wdWord, Count:=1
myvar = Selection.Words(1).Text

--
Mark Tangard, Microsoft Word MVP
Please reply only to the newsgroup, not by private email.
Note well: MVPs do not work for Microsoft.
"Life is nothing if you're not obsessed." --John Waters