Found Text but Can't Extract from Word Doc

[ano1optimist]

I've got the code to search through a directory for word documents,
open the doc, search for specific text... but I'm trying to extract
data that immediately follows the selected highlighted text. I can't
figure out the correct syntax to give me the text that follows the
currently selected text. Here is my code:

Set objword = New Word.Applicatio n
objword.Documen ts.Add "filename.d oc"
objword.WindowS tate = wdWindowStateMa ximize
objword.Visible = True
With objword.Selecti on
Do
.Find.Text = "Purpose:"
.Find.Forward = True
.Find.Wrap = wdFindStop
.Find.Format = False
.Find.MatchCase = False
.Find.MatchWhol eWord = False
.Find.MatchWild cards = False
.Find.MatchSoun dsLike = False
.Find.MatchAllW ordForms = False
Loop While .Find.Execute = True

The doc is open and I can see the highlighted text of "Purpose:" but
it is followed by a space or two and then some text. I want to
extract the text but have tried several variations of code without
success.

Your help is greatly appreciated.

[Phil]

I'm not adept at this but if no one replies. I suggest playing with the
movement methods. moveright 1 word no extend etc.

hope this get you started
ano1optimist <an**********@a ol.com> posted in
news:25******** *************** ***@posting.goo gle.com

I've got the code to search through a directory for word documents,
open the doc, search for specific text... but I'm trying to extract
data that immediately follows the selected highlighted text. I can't
figure out the correct syntax to give me the text that follows the
currently selected text. Here is my code:

Set objword = New Word.Applicatio n
objword.Documen ts.Add "filename.d oc"
objword.WindowS tate = wdWindowStateMa ximize
objword.Visible = True
With objword.Selecti on
Do
.Find.Text = "Purpose:"
.Find.Forward = True
.Find.Wrap = wdFindStop
.Find.Format = False
.Find.MatchCase = False
.Find.MatchWhol eWord = False
.Find.MatchWild cards = False
.Find.MatchSoun dsLike = False
.Find.MatchAllW ordForms = False
Loop While .Find.Execute = True

The doc is open and I can see the highlighted text of "Purpose:" but
it is followed by a space or two and then some text. I want to
extract the text but have tried several variations of code without
success.

Your help is greatly appreciated.

--
Phil

[James Fortune]

an**********@ao l.com (ano1optimist) wrote in message news:<25******* *************** ****@posting.go ogle.com>...

I've got the code to search through a directory for word documents,
open the doc, search for specific text... but I'm trying to extract
data that immediately follows the selected highlighted text. I can't
figure out the correct syntax to give me the text that follows the
currently selected text. Here is my code:

Set objword = New Word.Applicatio n
objword.Documen ts.Add "filename.d oc"
objword.WindowS tate = wdWindowStateMa ximize
objword.Visible = True
With objword.Selecti on
Do
.Find.Text = "Purpose:"
.Find.Forward = True
.Find.Wrap = wdFindStop
.Find.Format = False
.Find.MatchCase = False
.Find.MatchWhol eWord = False
.Find.MatchWild cards = False
.Find.MatchSoun dsLike = False
.Find.MatchAllW ordForms = False
Loop While .Find.Execute = True

The doc is open and I can see the highlighted text of "Purpose:" but
it is followed by a space or two and then some text. I want to
extract the text but have tried several variations of code without
success.

Your help is greatly appreciated.

Perhaps something like:

..EndKey Unit:=wdLine, Extend:=wdExten d

to include the text to the end of the line along with the found string.

James A. Fortune

[ano1optimist]

Thanks for the posts. I had to use a combination of suggestions in
order to parse 2 fields from the word doc. Here is a sample of my
code:

With objword.Selecti on
' Do
' find the pf number first
.Find.Text = "PF:"
.Find.Forward = True
.Find.Wrap = wdFindContinue
.Find.Format = False
.Find.MatchCase = False
.Find.MatchWhol eWord = False
.Find.MatchWild cards = False
.Find.MatchSoun dsLike = False
.Find.MatchAllW ordForms = False
.Find.Execute

.EndKey Unit:=wdLine, Extend:=wdExten d
PFNumber = Mid(objword.Sel ection, 4)

.Move Unit:=wdWord, Count:=1
' then find the purpose of examination
.Find.Text = "Purpose of Examination:"
.Find.Forward = True
.Find.Wrap = wdFindStop
.Find.Format = False
.Find.MatchCase = False
.Find.MatchWhol eWord = False
.Find.MatchWild cards = False
.Find.MatchSoun dsLike = False
.Find.MatchAllW ordForms = False
.Find.Execute

.EndKey Unit:=wdLine, Extend:=wdExten d
Purpose = Mid(objword.Sel ection, 24)