Option Explicit

Sub AutoNew()
  Const cTitle As String = "VB-fun-Demo - AutoNew-Makro"

  Dim nRetVal  As Long
  
  nRetVal = MsgBox("Dieses Dokument wurde noch nicht " & _
        gespeichert !" & vbCr & "Möchten Sie dies jetzt tun ?", _
        vbYesNo + vbQuestion + vbDefaultButton1, cTitle)

  If nRetVal = vbYes Then
    ChangeFileOpenDirectory ActiveDocument.AttachedTemplate.Path
    Application.Dialogs(wdDialogFileSaveAs).Show
  End If
End Sub


Sub AutoOpen()
  Const cTitle    As String = "VB-fun-Demo - AutoOpen-Makro"
  Const cLogFile  As String = "Beispiel.log"

  Dim strFileName As String
  Dim strMsg      As String
  Dim FN          As Integer

  strFileName = ThisDocument.Path & "\" & cLogFile

  strMsg = ActiveDocument.FullName & vbCrLf & _
        "wurde geöffnet von " & Application.UserName & _
        " am " & CStr(Date) & " um " & CStr(Time)

  FN = FreeFile()
  On Error Resume Next
  Open strFileName For Append As #FN
    Print #FN, strMsg
  Close #FN

  If Err.Number = 0 Then
      MsgBox "Die Textdatei " & cLogFile & " wurde ergänzt !", _
            vbInformation, cTitle
  End If
  On Error GoTo 0
End Sub