Importing word docs leaves tons of open processes

[daneyuleb]

Hoping someone can point me in a direction--tearing my hair out! (and I don't have much!)

My users can call a function to import specific word file's text into a shapes textbox. Works fine.
But, after each call, they have a "Microsoft Word (32 bit) process running in the Windows task manager--even though I "try" to close and quit the word app I started. They can end up with dozens or hundreds--one for each import operation they've called.

Worse--if they force quit all the processes--the next call to import a doc will usually fail (doesn't give an error--just... doesn't happen). In fact, I have to remove the "docApp.Quit" line shown below as it does the same thing--with it in place they get one good import, then... nothing!

Is there some better, more reliable way to deal with these Word operations that doesn't leave orphaned processes? Here's the stripped down code I'm using to do the imports...

Function ImportWordDoc()
    
Dim docApp As Object
Dim docMyDoc As Object
Dim Doc_to_import As String

    Set docApp = CreateObject("Word.Application")
    Set docMyDoc = CreateObject("Word.document")
    Set docMyDoc = Documents.Open("my_word_file.docx", Visible = True)

    ' Get our Word data (grabbing all of it) into the clipboard then set our textbox to the clipboard contents
    With docMyDoc
      .Range(Start:=0, End:=.Characters.count).Copy
      Ticket_sheet.Shapes("Textbox_1").TextFrame.Characters.Text = Clipboard     
    End With

    ' Close the Word doc, get rid of objects...
    docMyDoc.Close
    docApp.Quit       '<------ I can't leave this in, it makes the next import fail
    Set docMyDoc = Nothing
    Set docApp = Nothing

End Function

 

[RoryA]

Here's the stripped down code

I'm guessing that means that you removed a load of code? If so, that's not going to help us to help you. The most likely cause of this kind of issue is an object reference that isn't properly qualified so we need to see all of the actual code. Quitting the application you started is necessary and should not prevent you starting a new instance.

As an aside, this line serves no purpose that I can see:

Set docMyDoc = CreateObject("Word.document")

and should be removed. (it might even be the root of your problem).