you are welcome

>That's fixed it Sergey. Thanks again.
>
>>After Navigate you have to wait for navigation to complete before you can use results.
>>See http://www.berezniker.com/content/pages/visual-foxpro/view-pdf-vfp-form
>>Look for code after '* Wait for PDF to load'
>>
>>>I've been picking a this code off and on for a few days. The line where the error occurs is commented. If I press ignore, it cycles once and stops in the same place. URLs are being opened okay.
>>>So, I am missing something.
>>>
>>>

>>>SET DEFAULT TO c:\netscrape
>>>CLEAR
>>>CLOSE TABLES all
>>>PUBLIC TheText, emotion1,emotion2,foundthreat, lolink, lcurl, lcOutput
>>>TheText = " "
>>>emotion1 = " "
>>>emotion2 = " "
>>>foundthreat = " "
>>>loLINK = " "
>>>lcURL = " "
>>>lcOutput = " "
>>>********************************
>>>USE seedurls IN 1
>>>USE popthreats IN 2 && pop = global population
>>>USE popresults IN 3
>>>SELECT seedurls
>>>SCAN && Outer loop scan
>>>	IF TYPE('lox')#'O'
>>>		lox=CREATEOBJECT('internetexplorer.application')
>>>	ENDIF
>>>	lox.VISIBLE=.F.
>>>	lcURL = seed &&location
>>>	lcURL = ALLTRIM(TRANSFORM(lcURL))
>>>	lnTime = 1000 && = 10 SECOND
>>>	lox.NAVIGATE(lcURL)
>>>	lox.VISIBLE=.F.
>>>	WAIT 'Navigating!' WINDOW NOWAIT
>>>********************************
>>>		FOR EACH loLink IN lox.DOCUMENT.Links  && Go to each referenced sub page - Error occurs here [OLE ERROR code 0x80004005 unspecified error]
>>>		lcOutPut = [ ] + loLink.Href + [ ] + loLink.innerText
>>>		lox.NAVIGATE(lcOutput)
>>>		lcOutput =  lox.DOCUMENT.body.innerText && Get href site text  && .
>>>		TheText = lcOutput
>>>**************
>>>		SELECT popthreats
>>>		SCAN && Processing for individual href pages
>>>			IF ALLTRIM(popthreats.threat) $ TheText
>>>				TheWord = ALLTRIM(popthreats.threat)
>>>				WordLength = LEN(popthreats.threat)
>>>				nStartPosition = AT(ALLTRIM(popthreats.threat), TheText)  && AT(cSearchExpression, cExpressionSearched [, nOccurrence])
>>>				foundthreat = SUBSTR(TheText, nStartPosition, WordLength) && SUBSTR(cExpression, nStartPosition [, nCharactersReturned])
>>>				emotion1 = SUBSTR(TheText, (nStartPosition-21), 20) && Back up 21 characters and select the next 20 letters.
>>>				emotion2 = SUBSTR(TheText, WordLength, 20) && Go to the last letter in FoundThreat and take the next 20 letters.
>>>				SELECT popresults
>>>				APPEND BLANK
>>>				REPLACE emo1 WITH emotion1
>>>				REPLACE threat WITH foundthreat
>>>				REPLACE emo2 WITH emotion2
>>>				SELECT popthreats
>>>			ENDIF
>>>		ENDSCAN && End processing loop
>>>		SELECT seedurls
>>>**************
>>>		ENDFOR && Code must be inside the FOREACH loop to access all the href pages
>>>	RELEASE lox && Close this site and open a new seed URL
>>>ENDSCAN && End outer loop scan
>>>CLOSE TABLES ALL
>>>*************************
>>>