Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public WithEvents wdApp As Word.Application
Private Sub Document_Open()
Set wdApp = Application
End Sub
Private Sub wdApp_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
If Doc Is ThisDocument Then
'
End If
End Sub
Private Sub wdApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
If Doc Is ThisDocument Then
'
End If
End Sub