Public Class WordFile
 
    Private WordApp As Microsoft.Office.Interop.Word.Application
 
    Private m_FileName As String = ""
    Private m_SaveAs As String = ""
 
    ' bei SaveAs wird ein Dateiname angegeben
    ' wenn word geschlossen wird und hier was drinn ist
    ' dann wird die datei mit SaveAs() dort abgelegt
    Public Sub New(ByVal FileName As String, ByVal SaveAs As String, ByVal _
      CreateSaveAsDirecotoryIfIsNessecary As Boolean) ' ich kann nicht englisch
 
        m_FileName = FileName
        m_SaveAs = SaveAs
 
        ' wenn überprüft werden soll, ob es das verzeichnis gibt
        If CreateSaveAsDirecotoryIfIsNessecary Then
            ' kann ich es auch gleich anlegen falls es nicht da ist 
            Dim Dirs() As String = m_SaveAs.Split("\")
            Dim Dir As String = ""
            For Each s As String In Dirs
                If s.EndsWith(".doc") Then Exit For
                Dir += s & "\"
                If Not IO.Directory.Exists(Dir) Then
                    IO.Directory.CreateDirectory(Dir)
                End If
            Next
        End If
 
        Start()
    End Sub
 
    ' das ist ein "normales" new, da wird beim schliessen von Word die 
    ' geöffnete datei überschrieben
    Public Sub New(ByVal FileName As String)
        m_FileName = FileName
 
        Start()
    End Sub