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]

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]

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