Closing all documents that have not been edited

[Hubert_Los]

Hello,

I would like close all documents that have not been edited.

Can I check if a document was edited in the current session?
 

Public Sub CloseAllOpenDocuments()


Set oApp = ThisApplication
Dim oDoc As Document


For Each oDoc In ThisApplication.Documents.VisibleDocuments
    If Not oDoc.ActivatedObject Is Nothing Then
        If .... Then ?
            Call oDoc.Close
        End If
    End If
    
Next

End Sub

[Andrii_Humeniuk · Accepted solution]

Hi @Hubert_Los . You can use the Dirty function to understand if there have been changes in the documents, if not the document is closed.

Public Sub CloseAllOpenDocuments()

	Set oApp = ThisApplication
	Dim oDoc As Document
	
	
	For Each oDoc In oApp.Documents.VisibleDocuments
	    If Not oDoc.ActivatedObject Is Nothing Then
	        If Not oDoc.Dirty Then Call oDoc.Close
	    End If    
	Next

End Sub