Close a word document that is already open

[Tornado1981]

Hi,

I'm trying to check whether a specific word document is open or not. If open, then close it and first then reopen again and if not then just open it.

The problem is that I always get a Bad file name 4160 error when it tries to close the document.

Would anyone plz tell me where exactly is the problem in my code.

Thank u in advance.

Dim wdApp As Object
Dim myDoc As Word.Document
             
Set wdApp = GetObject(, "Word.Application")
            
If IsFileOpen(FilePath & "TemporaryLetter.docx") Then
    wdApp.Documents(FilePath & "TemporaryLetter.docx").Close
End If
            
With wdApp
    .Visible = True
    .WindowState = 2
End With
                
Set myDoc = wdApp.Documents.Open(FilePath & "TemporaryLetter.docx")

 

[shg]

Where is the rest of the code?

 

[Tornado1981]

The rest of the code is not important. The problem is in this part of the code.
If u r asking about the FilePath .. it was declared previously, and the IsFileOpen is a function to check whether the file is open or not.
Any suggestion will be really appreciated.
Thank u.

 

[andrewkard]

Hello,
try:

For Each myDoc In wdApp.Documents
If myDoc.Name Like "TemporaryLetter.docx" Then wdApp.Documents(FilePath & "TemporaryLetter.docx").Close
Next

 

[Norie]

ADVERTISEMENT

You wouldn't include the file path when using Documents.

By the way, why don't you us GetObject's first argument which is the path to the file you want to 'get'?

 

[andrewkard]

Can you check, is there in FilePath a slash FilePath = "C:\Users\"

 

[Tornado1981]

ADVERTISEMENT

Same result when I tried all ur suggestions .. Error 4160

 

[Tornado1981]

Yes there is

Can you check, is there in FilePath a slash FilePath = "C:\Users\"

 

[Norie]

Where/when are you giving FilePath a value?

How/where is it declared?

Does the code work if you hard-code the path?

 

[shg]

Not discounting Norie's suggestion, but instead of

If IsFileOpen(FilePath & "TemporaryLetter.docx") Then
    wdApp.Documents(FilePath & "TemporaryLetter.docx").Close
End If

... perhaps

On Error Resume Next
wdApp.Documents("TemporaryLetter.docx").Close
On Error Goto 0