Hi,
i want to close a document automatically. It works for an active doc which is in the foreground. When I open another doc and place the doc i want to get closed in the background, the doc will not close.

To close the doc i have:

Application.OnTime When:=Now + TimeValue("00:00:30"), Name:="CloseDoc"


In function CloseDoc() is have:


Sub CloseDoc()
'Documents("file.docm").Activate


'ThisDocument.Close SaveChanges:=wdSaveChanges

Dim wdApp As Word.Application
Set wdApp = GetObject(, "Word.Application")
wdApp.Documents("file.docm").Close SaveChanges:=wdSaveChanges
End Sub


I've also tried the uncommented statements in the Sub, but none of them did it.
Any hint to solve the prob?

Thank you in advance & greetings
fops

If you are explicit about what document you want to close then you need to handle an error if that document isn't open. You might also want to ensure it isn't the foreground doc. This code looks through the current docs to close a specific one only if it is not the active document.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

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
and the macro should be
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

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

Hi,


first thank you guys for replying to my post.

Yes Im runnig the code from Word.


I tried:


Sub CloseADoc()
Dim aDoc As Document
For Each aDoc In Application.Documents
Debug.Print aDoc.Name
If aDoc.Name = "Document2" And ActiveWindow.Document.Name <> "Document2" Then
aDoc.Close SaveChanges:=False
Exit For
End If
Next aDoc
End Sub



This works only when the document is the document in foreground.

When i debug the proper document/documentname is saved in aDoc.


I also tried this:


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



Same as with the first code. Only works if document is in foreground / has focus.


I additionally tried:


Documents("C:\Path\to\file.docm").Close SaveChanges:=wdDoNotSaveChanges


Same as above.


Cant find anything that would close the document if two (or more) documents are opened und the doc i want to close is somewhere in the background / has not focus.


Greetings
fops


Edit: I forgot to say its only related to Word. When i open the document and unfocus with e.g. win-explorer everything works like it should. Only with two or more word documents/windows it cant be closed when its unfocused or another document is the active one.

Your sample code shows you are looking to close a docm file - is the code being run contained in the same document you are trying to close?

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Yes, the code is placed in the same document.

There is a grey area here - you are running code which closes the file that the code is executing from - while it is executing. This may be the source of your problem.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Hi,

then, if i am right in my assumption, i could create a template, a blank template, (never worked with templates ) with one of your codes only and then check for my file.docm if open and then close it.


Additionally i would have in my file.docm:
---------------------------------------------------------------------------------

Sub CloseDoc()
ThisDocument.Close SaveChanges:=wdSaveChanges
End Sub

...

Application.OnTime When:=Now + TimeValue("00:00:30"), Name:="CloseDoc"

...
---------------------------------------------------------------------------------

just for the case the only document open is file.docm.
Is that approx. right?

Greetings
fops