Sub FileOpen()
  Dim strPath As String

  strPath = ThisDocument.Path
  ChangeFileOpenDirectory strPath

  With Dialogs(wdDialogFileOpen)
    .Name = "*.*"
    .Show
  End With
End Sub

Sub FileClose()
  Dim nRetVal

  nRetVal = MsgBox("Oooooooch... Möchten Sie dieses " & _
      "Dokument wirklich schliessen ?", _
      vbYesNo + vbDefaultButton2 + vbQuestion)

  If nRetVal = vbYes Then ActiveDocument.Close
End Sub

Sub FileSave()
  Dim strPath As String

  strPath = ThisDocument.Path
  ChangeFileOpenDirectory strPath

  With Dialogs(wdDialogFileSaveAs)
    .Name = "Text"
    .Format = wdFormatRTF
    .Display
  End With
End Sub

Sub FilePrint()
  Dim nRetVal

  If Application.PrintPreview = False Then
    With ActiveDocument
      .PrintPreview
      .ActiveWindow.ActivePane.View.Zoom.Percentage = 75
    End With
  End If

  nRetVal = MsgBox("Möchten Sie dieses Dokument " & _
      "wirklich drucken ?", _
      vbYesNo + vbDefaultButton2 + vbQuestion)
  If nRetVal = vbYes Then ActiveDocument.PrintOut

  ActiveDocument.ClosePrintPreview
End Sub