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")

 

[Tornado1981]

Norie .. Forget about FilePath .. Even when I use "C:\Letters\TemporaryLetter.docx" I get the same error

Where/when are you giving FilePath a value?

How/where is it declared?

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

 

[Tornado1981]

shg .. Nothing happens

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

 

[Tornado1981]

Would anyone plz create a simple tested file for me and let me trace where the problem exists ??

 

[andrewkard]

Something wrong with Filename or FilePath, can you post a response of msgbox(FilePath & "TemporaryLetter.docx")

 

[andrewkard]

This code works good:

Sub test()
Dim wdApp As Object
Dim myDoc As Word.Document
             
FilePath = "C:\Users\111\Desktop\"
Set wdApp = GetObject(, "Word.Application")
            
For Each myDoc In wdApp.Documents
If myDoc.Name Like "111.docx" Then wdApp.Documents(FilePath & "111.docx").Close
Next
               
Set myDoc = wdApp.Documents.Open(FilePath & "111.docx")
End Sub

 

[Tornado1981]

Thank u all. It's working perfectly now