Ole call hangs up

[Mike Wilson]

I searched this and found this but didn't find an answer.
http://msgboard.alphasoftware.com/al...light=ole+call
I found the threads that allowed me to learn this, but not help with this problem.

I have the following script which opens a Word document, fires a Word macro and closes. It works well AFTER the first run. The very first run can take minutes to execute with a couple of warning messages about "the ole method call is taking longer than expected. D you want to continue waiting?". I will eventually, after several minutes complete. BUT, after the first connection, it works fine. On my stand alone dev computer it takes 1-2 minute. On my networked computers 3-5 minutes. Does anyone know what causes this and how I might get around this extrodinarily long wait for the first call? Thanks

'> docname created elsewhere
dim shared vstamp_error as C
on error goto error_handler1
dim vmacro1 as C="doc_sign_stamp"
Dim wordApp As p
wordApp = ole.getobject("","Word.Application")
'wordApp = ole.Create("Word.Application")		‘ doesn’t seem to work with this
wordApp.WindowState = 2   'wdWindowStateMinimize
wordApp.Documents.Open(docname)
end

error_handler1:
dim shared vstamp_error as C
vproceed="no"
err = error_code_get()
vstamp_error= error_text_get(err)
if "Microsoft Word" $ sys_id_enum()
     wordApp.quit()
end if

ON ERROR RESUME 0

[Stan Mathews]

Re: Ole call hangs up

I don't see where you're closing the ole unless there is an error. I don't see where the document is saved after the macro runs, assuming the macro changes something.

See if this helps.

'> docname created elsewhere
dim shared vstamp_error as C
on error goto error_handler1
dim vmacro1 as C="doc_sign_stamp"
Dim wordApp As p
wordApp = ole.getobject("","Word.Application")
wordApp.WindowState = 2   'wdWindowStateMinimize
wordApp.Documents.Open(docname)
wordApp.DisplayAlerts = .F.
'I assume the macro runs when the document is opened?
wordApp.ActiveDocument.Saveas(docname)
wordApp.DisplayAlerts = .T.
wordApp.Quit()
delete wordApp
end

error_handler1:
dim shared vstamp_error as C
vproceed="no"
err = error_code_get()
vstamp_error= error_text_get(err)
if "Microsoft Word" $ sys_id_enum()
     wordApp.quit()
end if

ON ERROR RESUME 0

[Mike Wilson]

Re: Ole call hangs up

Hi Stan,
Thanks for replying. The code I posted is a portion of a longer script that loops through many records, calls a word document, stamps a line in the document footer through a Word macro, and saves the document. After the application is first opened, when the script executes, the very first ole call takes many minutes. With patience and after several dialogs reporting that "the process is taking longer than expected, continue?", it eventually completes the first loop, then after that, it flows quickly. It's that first Ole call that takes like forever. I am not knowledgeable enough to know what Ole is, so I can't even troubleshoot this.

I placed the code lines you provided me into my script. The wordApp.DisplayAlerts = .T. generated an error. I have tried all this using Word 97, 2000, and 2003, and tried using the window state 0, 1 and 2, and all combos seem to have a terrible time with that very first Ole call. I've got to believe there is some trick to bypass this.