Dim objDoc As FormFields  'objDoc wird definiert
....
....
 
    If frmFax.bOKFax = True Then
        Set objDoc = Word.Application.ActiveDocument.FormFields    'Objekt wird 
        ' gesetzt
            objDoc.Item("NO").Result = txtNo
            objDoc.Item("Receiver").Result = txtReceiver
            objDoc.Item("Attention").Result = txtAtten
            objDoc.Item("FaxNr").Result = txtFaxNr
            objDoc.Item("From").Result = txtFrom
            objDoc.Item("Date").Result = txtDate
            objDoc.Item("Copies").Result = txtCopies
            objDoc.Item("Total").Result = txtTotPages
    End If