ActiveDocument Example

Land Auto

ActiveDocument Example

Sub Example_ActiveDocument()
    
    ' This example returns name of the CurrentDocument.
    Dim activeDoc As AeccDocument
    Set activeDoc = AeccApplication.ActiveDocument
    
    MsgBox "The ActiveDocument is: " & activeDoc.Name, _
    vbInformation, "ActiveDocument Example"
    
End Sub