Word file saved from VBA is corrupted

[riggsdp]

I have a question related to my previous question - https://www.accessforums.net/program...ble-48599.html



When the Word doc is saved, if I close it then attempt to open it again, I get the following error message:

The file <filename>.docx cannot be opened because there are problems with the contents.

Clicking on Details gets: No error detail available.

If I do a save as before closing the document, with a new name, it opens correctly.

Is there something I'm doing incorrectly when naming and saving the file in the VBA code?

[ranman256]

That's pretty bizarre. You could try saveas a different version. (earlier) That may help.

[John_G]

Hi -

Refer to the code you posted before. The error you are getting with MS Word may be due to the fact that you are not closing the instance of MS Word that your function starts.

Add these lines to the bottom of the function, just before the end:

'
' Close the word application
'
AppWord.Quit
Set AppWord = Nothing

That should fix the error.


John

[ssanfu]

I looked at the code from your previous post and saw:

    'open MSWord
    Set appWord = GetObject(, "Word.Application")
    If Err.Number <> 0 Then
        Set appWord = New Word.Application
        appWord.Visible = True
    End If

but nowhere did I see where you closed Word or released the pointers. In effect, the Word document is still open.

The automation rule (that I learned) is:
If you open it, close it. (this applies to recordsets)
If you create it, destroy it. (this applies to things like Word/Excel objects)

Note 1:Make sure this is at the end of the Sub/Function.
Note 2: If you use "Set db = Currentdb"...... do not close Currentdb or set Currentdb = nothing. But you would have a line: "Set db = Nothing"


I would suggest you should try modifying your code to ensure the objects (Word) are closed before you try to open the document.


My $0.02........

[riggsdp]

I added the code at the end of the function to close MSWord and I still get the same error message.

[John_G]

Hi -

In your code that opens MS Word :

'open MSWord
Set appWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set appWord = New Word.Application
appWord.Visible = True
End If

I suggest you change it to just

Set appWord = New Word.Application
appWord.Visible = True

so that you always open a new instance of MS Word, whether there is another one open or not.

That way MS Access has its own instance to work with, and closing it won't affect anything else.