Failed to Create Multiple Word objects VB6 -

Hi Everyone,


I'm working on a VB6 program which will process a selected word document. Anyway, I want to allow the users to work on some other MS word documents when the process is running. Because when i run my program, the process will take about 20 mins to finish, it's illogical to have the user waited for 20 mins without working on other Word-related works. I want the user to be able to multitasking.The problem i'm having now is when the user opens a another word document from Window Explorer, I get an error, because my program is trying to perform the actions on their selection on new opened word document.


So, is there anyway to ensure a new Word instance will be created when the user open another word Document? As you can see from the Task Manager, under normal circumstance, no matter how many word documents you open, only one "WINWORD.EXE" instance is being created and shared. I believe my problem will be solved if every word document opened is accompanied by a new Word object created.


The following is a small part of my code to create the Word object



Dim wrdApp As Word.Application
Dim wrdDoc As New Word.Document
Dim tempApp As Word.Application


If TypeName(wrdApp) <> "Application" Then
Set tempApp = CreateObject("Word.Application")
Set wrdApp = CreateObject("Word.Application")
tempApp.Quit

Set tempApp = Nothing
End If


Set wrdDoc = wrdApp.Documents.Open(filePath)


Any help would be deeply appreciated. thanks..