' hier wird word vorbereitet und das doc geöffnet
    Private Sub Start()
        WordApp = New Microsoft.Office.Interop.Word.Application
 
        AddHandler WordApp.DocumentBeforeClose, AddressOf _
          WordApp_DocumentBeforeClose
 
        WordApp.Documents.Open(CType(m_FileName, Object))
        WordApp.Visible = True
    End Sub
 
    ' ich habe auf meinem doc TextFormularfelder
    ' unter Feldeinstellungen (Textmarke) steht der Spalten name der da 
    ' hingehört
    Public Sub Init(ByVal dt As DataTable)
 
        Dim m_Day As Boolean
        Dim m_Time As Boolean
        Dim m_DayTime As Boolean
        Dim FoFi_Name As String
 
        With WordApp.ActiveDocument
            For Each fofi As Microsoft.Office.Interop.Word.FormField In _
              .FormFields
                FoFi_Name = fofi.Name
                ' mit dieser überprüfung kann ich datumsfelder formatieren
                If fofi.Name.EndsWith("_Day") Then
                    m_Day = True
                    FoFi_Name = FoFi_Name.Replace("_Day", "")
                End If
                If fofi.Name.EndsWith("_Time") Then
                    m_Time = True
                    FoFi_Name = FoFi_Name.Replace("_Time", "")
                End If
                If fofi.Name.EndsWith("_DayTime") Then
                    m_DayTime = True
                    FoFi_Name = FoFi_Name.Replace("_DayTime", "")
                End If
 
                If dt.Columns.Contains(FoFi_Name) Then
                    If Not dt.Rows(0).IsNull(FoFi_Name) Then
                        If dt.Rows(0)(FoFi_Name).ToString = "" Then
                            ' das ist etwas, was ich nur in meinem doc brauche
                            If fofi.Name = "MaLi_K_Ansp" Or fofi.Name = _
                              "MaLi_K_Ansp_Tel" Then
                                .FormFields.Item(fofi.Name).Select()
                                WordApp.Selection.Delete()
                                WordApp.Selection.TypeBackspace()
                            Else
                                fofi.Delete()
                            End If
                        Else
                            If m_Day = True Then
                                fofi.Result = CType(dt.Rows(0)(FoFi_Name), _
                                  Date).ToString("dd.MM.yyyy")
                            ElseIf m_Time = True Then
                                fofi.Result = CType(dt.Rows(0)(FoFi_Name), _
                                  Date).ToString("HH:mm")
                            ElseIf m_DayTime = True Then
                                fofi.Result = CType(dt.Rows(0)(FoFi_Name), _
                                  Date).ToString("dd.MM.yyyy HH:mm")
                            Else
                                fofi.Result = dt.Rows(0)(FoFi_Name).ToString
                            End If
                        End If
                    Else
                        If fofi.Name = "MaLi_K_Ansp" Or fofi.Name = _
                          "MaLi_K_Ansp_Tel" Then
                            .FormFields.Item(fofi.Name).Select()
                            WordApp.Selection.Delete()
                            WordApp.Selection.TypeBackspace()
                        Else
                            fofi.Delete()
                        End If
                    End If
                End If
                m_Day = False
                m_Time = False
                m_DayTime = False
            Next
        End With
    End Sub