Serienbrief Excel
04.07.2007 17:43:00
Sebastian
Wenn ich aber nun über excel dem seienbrief felder hinzufügen will (z.B. Anrede), bekomme ich in der Zeile
.ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField, Text:="""Anrede"""
'.Selection.TypeText Text:=" "
'.ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField, Text:=""" _
Name"""
die Fehlermeldung:
Laufzeitfehler 450
Falsche Anzahl an Argumenten oder üngültige zuweisung zu einer Eigenschaft
kann mir jemand weiterhelfen?
Private Sub PersoEmail_Click() ' personalisiert email
Dim q As Integer
Dim z As Integer
Dim LastRow As Long
z = 2
LastRow = Cells(Cells.Rows.Count, 4).End(xlUp).Row
For q = 10 To LastRow + 1
If Rows(q).EntireRow.Hidden = False Then
Worksheets("Dummy").Cells(z, 1) = Worksheets("Adressen").Cells(q, 1)
Worksheets("Dummy").Cells(z, 2) = Worksheets("Adressen").Cells(q, 2).Value & " " & _
Worksheets
("Adressen").Cells(q, 4).Value
Worksheets("Dummy").Cells(z, 3) = Worksheets("Adressen").Cells(q, 5)
z = z + 1
Else
End If
Next q
'-------------------------------------------- mail merge --------------------------------------- _
_
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
With WordApp
.Documents.Add DocumentType:=wdNewBlankDocument
.ActiveDocument.MailMerge.MainDocumentType = wdEMail
.ActiveDocument.MailMerge.OpenDataSource Name:="C:\Dokumente und Einstellungen\Desktop\ _
_
Email Verteilerliste Version 2.0.xls", ConfirmConversions:=False, ReadOnly:=False, LinkToSource: _
=True, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, Connection:="Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Dokumente und Einstellungen\Desktop\Email Verteilerliste Version 2.0.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Regi", SQLStatement:="SELECT * FROM `Dummy$`", SQLStatement1:="", SubType:=wdMergeSubTypeAccess
.ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField, Text:=""" _
Anrede"""
'.Selection.TypeText Text:=" "
'.ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField, Text:=""" _
Name"""
End With
End Sub