'Word Initialisieren:
        Dim Wordapp As Word.Application, worddoc As Word.Document
        Try
            Wordapp = GetObject(, "Word.Application")
        Catch ex As Exception
            MessageBox.Show("Error filling Letter: Word Application not found", _
              "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            MausNorm(Me)
            Exit Sub
        End Try
        Dim DocFound As Boolean = False
        'Document suchen:
        For Each worddoc In Wordapp.Documents
            If worddoc.Name.ToLower = (fFilename & "." & fFileExt).ToLower Then
                DocFound = True
                Exit For
            End If
        Next
        If DocFound = False Then
            MausNorm(Me)
            MessageBox.Show("Error filling Letter: Document in Word not found", _
              "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        Wordapp.Visible = True
        'Dienst- oder Privateadresse:
        'Erste Bremse
        Dim Useprivate As Boolean = False
        If FillRecip = True Then
            If MessageBox.Show("Use the private address for the letter?", _
              "Select NO for Business", MessageBoxButtons.YesNo, _
              MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = _
              DialogResult.Yes Then
                Useprivate = True
            End If
        End If
        Dim fld As Word.FormField
        'Weitere Daten zum Project:
        Dim CustRow As PPL.dsCustList.tblCustRow = _
          CustList.objdsCustList.tblCust.Item(CustList.BindingContext( _
          CustList.objdsCustList, "tblCust").Position)
        Dim ProjRow As PPL.dsProjList.tblProjRow = _
        ProjList.objdsProjList.tblProj.Item(ProjList.BindingContext( _
        ProjList.objdsProjList, "tblProj").Position)
        Dim OrderRow As PPL.dsOrderList.tblOrdersRow = _
        OrderList.DsOrderList1.tblOrders.Item(OrderList.BindingContext( _
        OrderList.DsOrderList1, "tblOrders").Position)
        'Leere Textfelder ausschließen:
        Dim i As Integer = 0
        If FillRecip = True Then
            Do
                Try
                    If AddrRow.Item(i) Is DBNull.Value Then AddrRow.Item(i) = ""
                Catch ex As Exception
                    If ex.Message.Substring(0, 11) = "Cannot find" Then Exit Do
                    If i > 50 Then Exit Do
                End Try
                i += 1
            Loop
        End If
        For Each fld In worddoc.FormFields
            Select Case fld.Name
 
                Case Is = "txtAdress1"
                    If FillRecip = False Then Exit Select
                    If Useprivate = True Then 'Name
 
                        fld.Result = AddrRow("aFirstName") & " " & AddrRow( _
                          "aLastName")
                        fld.TextInput.Default = AddrRow("aFirstName") & " " & _
                        AddrRow("aLastName")
                    Else
                        fld.Result = AddrRow("abCompany") 'Firma
                        fld.TextInput.Default = AddrRow("abCompany")
                    End If
 
                Case Is = "txtAdress2"
                    If FillRecip = False Then Exit Select
                    If Useprivate = True Then 'leer
                        fld.Result = ""
                        fld.TextInput.Default = ""
                    Else
                        fld.Result = AddrRow("abDepartment") 'Abteilung
                        fld.TextInput.Default = AddrRow("abDepartment")
                    End If
.
.
.