Sub AutoOpen() 'Displays the Document Path in the Title Bar ActiveWindow.Caption = ActiveDocument.FullName End Sub