Find maximum timeout period for Word SpellChecker dialogbox

Hi there,
Following is my PB code.. this issue is more relating to VBA than PB but if you got any suggestions its much appreciated.

Cheers

// Connect to word and do spell check
lole_Spell = CREATE OleObject
ll_RC = lole_Spell.ConnectToNewObject( 'Word.Application' )
IF ll_RC <> 0 THEN
      DESTROY lole_Spell
      RETURN ll_RC
END IF

TRY
      ll_TimeOut = 7200500 // 2.00014 Hours
      lole_Spell.SetAutomationTimeout(ll_TimeOut)
      
      lole_Spell.Application.Visible = False
      lole_Spell.Application.WindowState = 2
      lole_Spell.Documents.Add()
      lole_Spell.Selection.TypeText( as_Text )
      lole_Spell.Selection.HomeKey()
      lole_Spell.Selection.MoveStart()
//      lole_Spell.ActiveDocument.CheckSpelling()
      lole_Spell.ActiveDocument.SpellingChecked = FALSE
      lole_Spell.ActiveDocument.GrammarChecked = TRUE
      lole_Spell.Application.Dialogs.Item(828).Display (7200000)
      //828 - wdDialogToolsSpellingAndGrammar
      //7200000 - 2 Hours timeout duration (Spell Check dialogbox should always time out before the OLE timeout duration)
      lole_Spell.ActiveDocument.Select()
      as_Text = lole_Spell.Selection.Text
      //last change
      IF RIGHT(as_Text,1)=CHAR(13) THEN
            as_Text = MID(as_Text,1,LEN(as_Text)-1)
      END IF
CATCH (OLERuntimeError le_OLERE)
      IF le_OleRe.number = 35 THEN //Time out error
            f_err(f_ErrStr(50552,"OLE Runtime Error: " + f_key2(le_OLERE.Text) + " The Spell Checker dialog box has timed out"), 'S', '')
      ELSE
            f_err(f_ErrStr(50552,"OLE Runtime Error: " + f_key2(le_OLERE.Text)), 'S', '')
      END IF
CATCH (NullObjectError le_NOE)
      f_err(f_ErrStr(50552," Null Object Error: " + f_key2(le_NOE.Text)), 'S', '')
CATCH (RuntimeError le_RE)
      f_err(f_ErrStr(50552," Runtime Error: " + f_key2(le_RE.Text)), 'S', '')
FINALLY
      lole_Spell.ActiveDocument.Close(FALSE)
      lole_Spell.Application.Quit
      lole_Spell.DisconnectObject()
      DESTROY lole_Spell
      RETURN 0
END TRY

angellll, i am using MS Word 2003 SP2.. i wouldn't say that the dialogbox seems to ignor whatever timeout value i specify but any larger value i've tried specifing expires in about a minute

Sandeep: ive already tried both display and show method which dont seem to stay over a minute.
72000 - shows up for 6 sec
720000 - shows up for 65 sec
7200000 - shows up for 57 sec
72000000 - shows up for 42 sec
Like i explained in my previous post, the longer i expect it to show up it shows up around the 1 min mark and timesout..

Woah! Sandeep it makes us two with the same problem. I tested my code few weeks back and i remember it worked for 20 mins but now it doesn't which is a big puzzle.

Thanks for the code you provided. It pretty exact to what ive done except I have included code to handle OLE errors with TRY and CATCH.

This is really annoying and fustrating not being able to get around this problem but hope you guys are digging in further for a solution as I am.

Cheers.

still no luck folks?