Private Sub WordDocLaden(ByVal WordDocName As String)
 
 
        Dim strBestellNr As String = Start.tbxBestellNr.Text
        Dim strAuftragNr As String = Start.tbxAuftragNr.Text
        Dim strLieferant As String = Start.tbxLieferant.Text
        Dim strBestellkBemerkungen As String = Start.tbxBemerkungen.Text
        Dim strKennwort As String = Start.tbxKennwort.Text
        Dim strBestelldatum As String = Start.dtpBestelldatum.Text
        Dim zugID As String = ""            'Variable für Zeugnisart
 
        Dim wrd_Appl As Word.Application                ' Word Anwendung
        Dim wrd_Doc As Word.DocumentClass               ' Word Dokument
 
        Dim WordDoc As String = strDIRECTORYWORDVorlagen & WordDocName
        Dim WordDocSave As String = strDirEmailTempTime & _
          "WordFinalOutputDocs\" & strZugID_D & " - " & strBestellNr & "-" & _
          strMatanz & ".doc"
 
        Dim WordDocSaveEmail As String = strDirEmailTempTime & strZugID_D & " -" & _
          "" & strBestellNr & "-" & strMatanz & ".doc"
 
        'FONT Schriftart für das Worddokument
        Dim strFONT As String = "Arial"
 
 
        'Prüfen ob das File vorhanden ist!
        strFileExist = WordDoc
        FileExist()
 
        If strFileExistJANEIN = "NEIN" Then
            LogTxt.Logwriter("WordDoc Erstellung - Die Datei konnte nicht" & _
              "gefunden werden!  " & strFileExist)
            Exit Sub
        End If
 
 
 
        'Word und das Word-doc öffnen
 
        Try
            wrd_Appl = New Word.ApplicationClass()          ' Objekt bilden
            wrd_Appl.Visible = False                       ' Word sichtbar
            wrd_Doc = wrd_Appl.Documents.Open(FileName:=WordDoc)
            wrd_Appl.Documents.Item(1).Activate()
            LogTxt.Logwriter("WordDoc Erstellung - Word öffnet Datei!  " & _
              strFileExist)
        Catch ex As Exception
            LogTxt.Logwriter("WordDoc Erstellung - Die Datei konnte nicht" & _
              "gefunden werden!  " & strFileExist)
            MsgBox("Word oder das angeforderte Worddocument konnte nicht" & _
            "geöffnet werden")
            Exit Sub
        End Try
        'Word Formularfelder befüllen
        Try
            ' Formularfelder füllen
 
            With wrd_Doc.FormFields
 
                If WordDocName = "PRÜFBERICHT.doc" Then
                    '.Item("ZugID_D").Result = strZugID_D
                    '.Item("ZugID_E").Result = strZugID_E
                    '.Item("ZugID_F").Result = strZugID_F
                    '.Item("ZugID_DIN").Result = strZugID_DIN
                    .Item("AuftragNr").Result = strAuftragNr
                    .Item("Kennwort").Result = strKennwort
                    .Item("BestellNr").Result = strBestellNr
                    '.Item("SpezID").Result = strSpezNr1
                    .Item("MatID").Result = strMatIDMarkName & " " & strMatanz
                End If
 
 
 
 
 
 
                    'Ende des Befüllvorgangs! Ab hier wird das befüllte doc 
                    ' gespeichert und wieder geöffnet, damit das Masterdocument 
                    ' nicht
                    'beschädigt werden kann!
 
 
                    'Warten bis die Felder befüllt sind
                    System.Threading.Thread.Sleep(3000)
                    Application.DoEvents()
                End If
 
            End With
 
 
        Catch ex As Exception
 
            MsgBox(ex.ToString)
            Exit Sub
 
        End Try
 
        Try
 
            wrd_Doc.SaveAs(FileName:=WordDocSaveEmail)
            System.Threading.Thread.Sleep(1000)
            Application.DoEvents()
 
 
        Catch ex As Exception
 
            MsgBox(ex.ToString)
            Exit Sub
 
        Finally
            ' Dokument schließen
            wrd_Doc.Close()
 
            ' Word beenden
            wrd_Appl.Quit()
 
            System.Threading.Thread.Sleep(1000)
            Application.DoEvents()
        End Try
 
 
 
        '' Objekt bilden
        'wrd_Appl = New Word.ApplicationClass()
        '' Word sichtbar
        'wrd_Appl.Visible = True
 
        'wrd_Doc = wrd_Appl.Documents.Open(FileName:=WordDocSave)
 
        'wrd_Appl.Documents.Item(1).Activate()
 
    End Sub

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET