Close word document based on file name

[Robyn_P]

Hi allm



Sorry for not having any sample code already. I'm looking for a way to close a word document that I know if open based on the file name of that document.

I have the following code to check whether the document is open, I'm stuck on the next step of how to automatically close it.

    Public Function FileIsOpen(sPath As String, sName As String) As Boolean

Dim ff As Long

     ' Set the name of the full path
    sWordDoc = TrailingSlash(sPath) & sName


    On Error Resume Next


    ff = FreeFile()
    Open sWordDoc For Input Lock Read As #ff
    Close ff
    FileIsOpen = (Err.Number <> 0)


    On Error GoTo 0

End Function

Trailing slash is just a bit of code that ensures that the string entered is followed by a trailing slash

[Robyn_P]

To add I can close the active document just with

Public Function CloseWordDoc(sPath As String, sName As String) As Boolean


        Dim wdApp As Object
        Set wdApp = GetObject(, "Word.Application")
        wdApp.Documents.Close
End Function

However I don't know that it will be the active document, so I now need some code to activate it.

I would also like to close word word itself if it's the last document open

[June7]

Bing: access vba close specific word document

Does this help https://answers.microsoft.com/en-us/...b-68b599b31bf5

[Robyn_P]

When I try and use

Public Function CloseWordDoc(sPath As String, sName As String) As Boolean


        Dim wdApp As Object
        Set wdApp = GetObject(, "Word.Application")
        wdApp.Documents(sPath & sName).Close
End Function

I get the file not specified error that that article suggests is because the file isn't open, when I know for a fact that it is

[Robyn_P]

Okay so this seems to work.

Public Function CloseWordDoc(sPath As String, sName As String) As Boolean

        Dim wdApp As Object
        Set wdApp = GetObject(, "Word.Application")
        wdApp.Documents.Open(sPath & sName).Activate
        wdApp.Documents.Close
End Function

Now, can anyone help with, if the document I just closed is the last word document open, then close Word as well.

' Count open word documents
' if count = 0, close word

[Robyn_P]

Got it, thanks anyway. Very simple just

If wdApp.Documents.Count = 0 Then wdApp.Quit