Word 07: Seriendruck, Etikette per VBA auswählen

Von: , 02.08.2010 22:50 Uhr

Hallo zusammen

Ich arbeite momentan an einem Seriendruck (Word + Excel 2007), der per VBA ausgeführt werden soll. Die Daten kommen von einer Excel-Tabelle. Das Script ist recht simpel:
-Auswahl der Etikette
-Verknüpfen der Tabelle
-erste 2 Datensätze abwählen (dort sind Titel usw. vorhanden)
-einzelne Felder richtig anordnen und drucken

Mit dem Makroeditor konnte ich schon recht viel erledigen:

--
ActiveDocument.MailMerge.MainDocumentType = wdMailingLabels
ActiveDocument.MailMerge.OpenDataSource Name:= _
"E:\Musik\MGD\Neue_TN_Liste.xls", ConfirmConversions:=False, _
ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=E:\Musik\MGD\Neue_TN_Liste.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking M" _
, SQLStatement:="SELECT * FROM `Funktion$`", SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess
ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
"Adressen_der_Eltern"

WordBasic.MailMergePropagateLabel
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
----

Nun habe ich noch folgende Probleme:
-Die Auswahl der Etikette (Seriendruck starten...Etiketten) wurde leider nicht mitaufgezeichnet. Kennt jemand den Befehl dafür? (z.B. Avery Zweckform 3422)
-Kann der Pfad des Excel-Files so gewählt werden, dass er das Excel-File im selben Ordner wie das Word-File sucht?
-Das Abwählen der ersten 2 Datensätze (Empfängerliste bearbeiten) wurde auch nicht mit aufgezeichnet. Gibt dafür einen Befehl oder muss ich das Excel-File verändern?

Besten Dank für die Unterstützung.
Grüsse
Christof

2 Antworten zu dieser Frage

      • Antwort von nach 2 Tagen 0 hilfreich
        Re: Word 07: Seriendruck, Etikette per VBA auswählen

        Bitte einmal die Exceldatei schicken. Vielleicht kann ich dann helfen, wenn ich die Ideen sehe.

        Grüße

        KD.Nienstedt

      • Antwort von nach 2 Tagen 0 hilfreich
        Re: Word 07: Seriendruck, Etikette per VBA auswählen

        Hier meine E-Mail Adresse:

        [E-Mail-Adresse entfernt]

        Jetzt auf diese Frage antworten.