Dim wApp          As Object
    Dim swordfilename As String
    Dim F             As Integer
 
    swordfilename = GetSetting("VOptNeu", "Firmendaten", "Speichern") & "\" & _
        Trim(frmAdressverwaltung.lblKundenNummer.Caption) & ".IS"
 
    F = FreeFile
    Open swordfilename For Binary As #F
    Close #F
 
    ' Word-Objekt erzeugen
    Set wApp = CreateObject("Word.Application.8")
 
    With wApp
        ' Word anzeigen
        .Application.Visible = True
        .Application.Activate
 
        ' Word-Dokument laden und anzeigen
        .Documents.Open swordfilename
        .Visible = True
 
        ' nach getaner Arbeit, Word wieder beenden
        .Application.Quit
    End With
    Set wApp = Nothing