With doc
 
            'Text im Hauptteil des Dokuments zuweisen
            .Range.Text = "Notiz" & vbCrLf & vbCrLf & _
                    "Fa.: " & TextBox15.Text & vbCrLf & _
                    "Ansprechpartner: " & TextBox14.Text & vbCrLf & _
                    "Datum: " & Datum & " / " & Zeit & vbCrLf & _
                    "Telefon: " & TextBox13.Text & vbCrLf & _
                    "E-mail: " & TextBox12.Text & vbCrLf & _
                    "Projektnummer: " & TextBox19.Text & "-" & TextBox18.Text & _
                    vbCrLf & _
                    "Angebotsnummer: " & TextBox16.Text & vbCrLf & vbCrLf & _
                    "Betreff: " & TextBox2.Text & vbCrLf & vbCrLf & vbCrLf & _
                    "Notiz: " & TextBox3.Text
 
            'Kopfzeilen-Text zuweisen
            '.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = _
            '      "Telefonnotiz vom " & Format$(Now, "Long Date") & "/" & 
            ' TextBox17.Text
 
            'Fusszeilen-Text zuweisen
            '.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = _
            '      "Erstellt am " & Format$(Now, "Long Date")
 
        End With