Option Explicit
 
Dim oWord As Word.Application
Dim oDoc As Word.Document
 
Private Sub Command1_Click()
    Set oWord = New Word.Application
    Set oDoc = oWord.Documents.Open("d:\Word2000\Privatbriefe\Zahl9.doc")
    oWord.Visible = True
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
 
    If Not oDoc Is Nothing Then
        oDoc.Close
        Set oDoc = Nothing
    End If
 
    If Not oWord Is Nothing Then
        Call oWord.Quit
        Set oWord = Nothing
    End If
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1