Attribute VB_Name = "AutoOpen" Sub MAIN() ' MsgBox "AutoOpen", vbMsgBoxSetForeground ActiveWindow.Caption = ActiveDocument.FullName End Sub