Dim Word As Object
 
Private Sub Öffnen_Click()
  Set Word = CreateObject("Word.Application")
 
  Word.WindowState = 1
  Word.Visible = True
  Word.Documents.Open App.Path & "\Belege.doc", , True
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, _
                             UnloadMode As Integer)
  Set Word = Nothing
End Sub