Close inactive document

gmayor · #3 04-05-2023, 09:27 PM

Are you running this code from Word or from some other application such as Excel?
You have used an application.ontime version from Word VBA, but also used Set wdApp = GetObject(, "Word.Application") which suggests another application. This is unnecessary when you are already working in Word.

If you are running the code in Excel, you need to change the line to

Code:

Application.OnTime EarliestTime:=Now + TimeValue("00:00:30"), Procedure:="CloseDoc"

and the macro should be

Code:

Sub CloseDoc()
Dim oDoc As Object
Dim wdApp As Object
    Set wdApp = GetObject(, "Word.Application")
    For Each oDoc In wdApp.Documents
        If LCase(oDoc.Name) = "file.docm" Then
            oDoc.Close -1
            Exit For
        End If
    Next oDoc
End Sub

where file.docm is the name of the file you want to close.
If you are running the code from Word (not the document with the code) then you only need

Code:

Sub CloseDoc()
Dim oDoc As Word.Document
    For Each oDoc In Documents
        If LCase(oDoc.Name) = "file.docm" Then
            oDoc.Close -1
            Exit For
        End If
    Next oDoc
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to dectect if close document and now no document open	skarden	Word VBA	2	10-24-2022 07:03 AM
Close Document Without Saving Prompt	Joe528	Word	3	10-08-2021 06:12 PM
Document close if/then/else error	eduzs	Word VBA	1	01-02-2021 05:56 AM
Save and Close powerpoint if it is inactive	MetteGaga	PowerPoint	0	04-16-2015 05:14 AM
Prompt when close the document	ubns	Word	15	04-29-2012 10:07 PM