VB.Net - Word Dokument wird nicht abgespeichert

    Private Sub btnZahllisten_Click(sender As Object, e As EventArgs) Handles btnZahllisten.Click

        Dim word As New Microsoft.Office.Interop.Word.Application
        Dim doc As New Microsoft.Office.Interop.Word.Document
        Dim format As Microsoft.Office.Interop.Word.WdSaveFormat = Microsoft.Office.Interop.Word.WdSaveFormat.wdFormatDocument

        Try
            Dim csvLines() As String = System.IO.File.ReadAllLines(".\ZE.txt", System.Text.Encoding.Default)  
            For Each csvline In csvLines
                Dim objStreamWriter As StreamWriter
                Dim FileName As String = csvline.Replace(Chr(34), "")  
                objStreamWriter = New StreamWriter(".\Zahllisten\" & FileName & ".txt")  
                Dim lines() As String = System.IO.File.ReadAllLines(".\Zahlliste.txt", System.Text.Encoding.Default)  
                For Each line In lines
                    If line.Contains(csvline) Then
                        objStreamWriter.WriteLine(line)
                    End If
                Next
                objStreamWriter.Close()



                word = CreateObject("Word.Application")  

                doc = word.Documents.Open(Application.StartupPath & "\ZahllistenTemplate.dotx")  
                doc.Activate()

                If doc.Range.Bookmarks.Exists("Einrichtungsname") Then  
                    doc.Bookmarks.Item("Einrichtungsname").Range.Text = csvline  
                Else
                    MessageBox.Show("Textmarke nicht vorhanden!")  
                End If

                doc.SaveAs2(".\" & FileName & ".doc", format)  
                doc.Close(Nothing, Nothing, Nothing)
                doc = Nothing
                word.Application.Quit()

            Next



        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            word.Application.Quit()
        End Try
    End Sub