<\/p>\n
Kennen Sie dies „xxx.doc ist ein Seriendruck-Hauptdokument. Word konnte die Datenquelle yyy.mdb nicht finden.“ Oder das: „Fehler! Feld in Datenquelle nicht gefunden!“ Das muss nicht sein. Erledigen Sie Ihren Seriendruck einfach per Code.<\/b><\/p>\n<\/div>\n Was ist eigentlich Seriendruck<\/p>\n Die meisten Leser wissen, worum es sich beim Seriendruck handelt. Hier aber noch einmal eine kurze Erläuterung:<\/p>\n Beim Seriendruck wird ein Dokument – das so genannte Hauptdokument – unter Zuhilfenahme Felder genannter Platzhalter als Schablone für eine Dokumentenserie mit stets gleichem Aufbau eingerichtet, wobei nur an den Feldplätzen unterschiedliche Inhalte – meist Datensätze aus einer Datenbank – angezeigt werden.<\/p>\n Ein Hauptdokument enthält dabei neben den festen Textinhalten und der Anordnung der Felder auch noch Verbindungsinformationen über die verwendete Datenquelle.<\/p>\n Die Funktion zum Ausführen befindet sich innerhalb der Textverarbeitung und erzeugt auf Basis der Schablone und der Datensätze ein neues Dokument, das die einem Datensatz entsprechenden aufeinander folgenden Textbereiche durch einen Abschnittswechsel (Seitenwechsel oder fortlaufend) trennt.<\/p>\n Das Ergebnis ist eine umfangreiche Datei, die nach dem Ausdruck im Allgemeinen nicht archiviert wird, da sie viel Platz belegt und eigentlich keine relevanten Informationen enthält: Die veränderlichen Daten (Kundenadressen) stehen bereits in der Datenbank, der unveränderliche Text ist immer derselbe.<\/p>\n Wann brauchen Sie Seriendruck<\/b><\/p>\n Aus Sicht eines (Datenbank-)Programmierers mit guten Kenntnissen in der Word-Automation eigentlich gar nicht, könnten Sie antworten.<\/p>\n Wenn man Dokumente voll automatisiert ausgeben kann, kann man dasselbe mit einzelnen Dateien, die man genau so verwirft wie die eine große, die der Seriendruck erzeugt, mit einer einfachen Schleife im Code auch erreichen – ganz ohne Seriendruck.<\/p>\n Der häufigste Grund, warum in der Praxis Seriendruck – sogar für einzelne (!) Briefe – verwendet wird, ist in der Regel der Benutzer selbst: Er weiß einfach nicht, wie man die Daten sonst von Access oder Excel nach Word bekommt.<\/p>\n Da die meisten Seriendrucke von Benutzern ohne Programmierkenntnisse eingerichtet werden, ist das auch wenig verwunderlich.<\/p>\n Es gibt allerdings auch für denjenigen, der sich mit der Dokumenterzeugung per Code vertraut gemacht hat, zwei gute Gründe, sich des Seriendrucks anzunehmen.<\/p>\n Erstens: Der Benutzer soll zum Beispiel ein Rundschreiben mit einem frei zu entwerfenden Text verfassen und dazu eine vorhandene, mit Textmarken versehene Briefvorlage benutzen. Zwischen dem programmatischen Ansprechen der Vorlage und dem Ausgeben der Datensätze findet eine Benutzerinteraktion – nämlich das Entwerfen des Rundschreibentextes – statt.<\/p>\n Zweitens: Die gleiche Situation wie zuvor, aber auch der Text kann vollautomatisch eingefügt werden, zum Beispiel durch Textbausteine. Hier brauchten Sie als Programmierer eigentlich keinen Seriendruck. Aber: Es ist herrlich bequem!<\/p>\n Grundlegender Aufbau<\/b><\/p>\n Sie werden daher im Folgenden sehen, wie Sie einen kompletten Seriendruck mittels Code durchführen.<\/p>\n Dazu sind kurz zusammengefasst die gleichen Schritte wie von Hand notwendig:<\/p>\n Es ist grundsätzlich nicht empfehlenswert, fertige Vorlagen mit Seriendruckinformationen anzulegen. Man kann recht problemlos ein Standard-Word-Dokument (also ohne Seriendruckeigenschaft) mittels Code bei Bedarf zu einem Seriendruckhauptdokument machen.<\/p>\n Die Vorteile liegen auf der Hand: Man pflegt zum Beispiel nur eine Vorlage Brief.doc<\/b>, die ja unter Umständen an ein verändertes Corporate Design anzupassen ist, statt, wie oft im Büroalltag zu beobachten, eine ganze Herde davon, die da heißen Einzelbrief.doc<\/b>, SerienbriefMitglieder.doc<\/b>, SerienbriefKunden.doc <\/b>und so weiter. Redundanz ist nicht nur bei den Nutzdaten von übel.<\/p>\n Der Datenaustausch<\/p>\n Es gibt drei Schnittstellen, über die der Datenaustausch stattfinden kann: DDE<\/b>, ODBC <\/b>und OleDB<\/b>. Welche Schnittstelle angesprochen wird, erkennt Word am Connection-String. <\/p>\n Zur Schnittstellenauswahl sollten Sie Folgendes wissen: In alten Word-Versionen (bis einschließlich 2000) ist DDE <\/b>Standard und ODBC <\/b>als Alternative möglich. Ab Word XP ist das neue OleDB <\/b>verfügbar und dort auch Standard. Ein Seriendruck-Dokument, das mit OleDB <\/b>erstellt wurde, zum Beispiel manuell mit XP, wird von älteren Word-Versionen überhaupt nicht als gültiges Seriendruckdokument erkannt. <\/p>\n Die DDE<\/b>-Schnittstelle sollten Sie gar nicht verwenden. DDE <\/b>ist veraltet, langsam und problembehaftet. DDE <\/b>öffnet die Datenquelle beim Aufruf erneut, auch wenn sie schon offen ist, was bei Access zu Sperrkonflikten führen kann.<\/p>\n Die ODBC<\/b>-Schnittstelle ist brauchbar und daher bei Word bis zur Version 2000 das Mittel der Wahl.<\/p>\n Die ab Office XP verfügbare OleDB<\/b>-Schittstelle ist ebenfalls recht zuverlässig. Sie ist stabil und problemlos, allerdings etwas langsamer als ODBC<\/b>. Bei sehr umfangreichen Seriendrucken kann Letzteres also noch als Alternative zu OleDB <\/b>gelten.<\/p>\n Kurz und gut: Wenn der Code auch mit alten Word-Versionen laufen soll oder Performance-Probleme auftreten, sollten Sie ODBC <\/b>verwenden, sonst OleDB<\/b>.<\/p>\n Probleme mit Datentypen vermeiden<\/b><\/p>\n Beim ODBC<\/b>-Seriendruck gibt es jedoch bedauerlicherweise einige kleinere ärgernisse. Abhängig vom Datentyp und von den Ländereinstellungen kann in Word vor allem bei Währungen oder Zeitdaten einiger Unfug vorkommen.<\/p>\n Sie umgehen alle derartigen Probleme, wenn Sie als Quelle für einen Seriendruck immer eine temporäre Tabelle benutzen, die ausschließlich Textfelder hat, und Datumsangaben, Beträge und ähnliches dort als formatierten String ablegen. Word ist nun mal eine Textverarbeitung und kommt daher auch am besten mit Texten klar.<\/p>\n Außerdem umgehen Sie damit von vornherein benutzerverwirrende Eingabefenster, die nach irgendwelchen Parametern fragen.<\/p>\n Ein Beispiel für die Verwendung einer temporären Tabelle: Sie wollen drei Felder KundeName<\/b> (Text<\/b>), AuftragsDatum<\/b> (Datum\/Uhrzeit<\/b>), Betrag<\/b> (Währung<\/b>) ausgeben. Die Temporärtabelle sollte dafür drei Felder vom Typ Text <\/b>aufweisen, die Sie aus den Produktivtabellen wie folgt befüllen:<\/p>\n Das Feld KundeName <\/b>ist als Text harmlos. Die konfliktträchtigen Felder Auftragsdatum <\/b>und Betrag <\/b>enthalten in der Temporärtabelle jetzt einen ebenso harmlosen Text, zum Beispiel die Strings 04.05.2007<\/b> und 2.345,69<\/b>.<\/p>\n <\/p>\n Es liegen hier also keine Zahlen, deren Aussehen über Formate gesteuert wird, mehr vor, sondern tatsächlich genau die Textzeichen wie angezeigt.<\/p>\n Mit diesem Vorgehen gibt es keinerlei Probleme in ODBC<\/b>, da nur reiner Text übertragen wird, und Sie sind auch bei OleDB <\/b>in jedem Fall auf der sicheren Seite.<\/p>\n Eigenheiten von Word<\/b><\/p>\n Zwei Fallstricke verdienen an dieser Stelle noch Erwähnung, damit sie nicht zur Fußangel werden:<\/p>\n Sie müssen innerhalb der Seriendruckfunktionalität einen SQL-String zusammenbauen, der von Word ausgeführt wird. Bei dem eben vorgeschlagenen Vorgehen wird dieser regelmäßig einfach nur lauten:<\/p>\n Achten Sie auf die eckigen Klammern. Der folgende ANSI-konforme Ausdruck wird nicht ausgeführt:<\/p>\n Wenn Sie einmal Makrorekorder-Code zum Seriendruck gesehen haben, dann ist Ihnen vielleicht folgende Syntax aufgefallen:<\/p>\n Die schrägen Hochkommata (ANSI 96) meint Word bitterernst. Wer hier nichts oder ein einfaches Hochkomma (‚) verwendet, wird mit völlig nichts sagenden Fehlermeldungen abgespeist, die mit der Ursache des Problems nichts zu tun haben.<\/p>\n Die einzige ästhetisch befriedigende Alternative zu der Abstrusität ANSI 96, die vermutlich auf mangelhafte SQL-Kenntnisse eines Word-Programmierers in den späten 80er Jahren zurückgeht, sind die eckigen Klammern.<\/p>\n Wenn man mit der Execute<\/b>-Methode eine Ausgabe aller Briefe in ein neues Dokument vornimmt, wird man auf dieses Dokument auch im Code zugreifen wollen. Jeder Klassenprogrammierer hätte daher Execute <\/b>als Funktion implementiert, die einen Verweis auf das neue Dokument zurückgibt. Nicht so die Word-Programmierer! Die haben tatsächlich eine Sub <\/b>verwendet, wodurch das neue Dokument haltlos in der binären Luft hängt.<\/p>\n Wenn man direkt nach Execute <\/b>einen Verweis auf Documents(1) <\/b>holt, stehen die Chancen, damit das neue Dokument erwischt zu haben, erfahrungsgemäß aber immerhin gut genug, dass Sie in den nächsten zwanzig Jahren keinen Fehler bekommen werden.<\/p>\n Die Verbindung programmieren<\/b><\/p>\n Der Code zum Gesagten sieht anhand eines Beispiels dann wie in Listing 1, Abschnitt [1] aus.<\/p>\n Listing 1: Herstellen der Verbindung zu Word<\/p>\n Mit der letzten Zeile dieses Abschnitts ist im Grunde noch nichts passiert. wdMerge <\/b>enthält jetzt einen Verweis auf die hypothetische Seriendruckfunktionalität von wdDoc<\/b>, obwohl dieses jetzt noch kein Seriendruckdokument ist.<\/p>\n Weiter geht es mit den folgenden Zeilen; die dort verwendeten Namen und der Connection-String sind gegebenenfalls entsprechend Ihrer Anwendung anzupassen, zum Beispiel der Provider, wenn auf andere Datenbankformate zugegriffen werden soll.<\/p>\n Die Syntax entspricht üblichen ADO-Connection-Strings (s. Listing 1, Abschnitt [2]).<\/p>\n Durch den ersten Code-Block in Listing 2 wird das Dokument zum Seriendruckdokument und ist mit der angegebenen Quelle verknüpft. Im gleichen Listing sehen Sie den notwendigen Code für die ODBC<\/b>– und DDE<\/b>-Schnittstelle.<\/p>\n Listing 2: Verbindungsdaten mit ODBC\/DDE vorbereiten<\/p>\n Falls Sie sich fragen, was es mit SQLStatement1 <\/b>auf sich hat: Die Eigenschaft SQLStatement <\/b>kann nur 255 Zeichen aufnehmen. Mit SQLStatement1 <\/b>können Sie um weitere 255 Zeichen aufstocken.<\/p>\n Da Sie, wie schon erwähnt, einen komplexen SQL-Ausdruck nicht in Word aufbauen sollten, brauchen Sie das aber nicht.<\/p>\n Der Hintergrund, warum es das gibt, ist die Möglichkeit, in Word Verbindungsoptionen anzugeben, wie Sortierung und welche Datensätze auszugeben sind. Diese Informationen werden in den genannten SQL-Strings abgelegt. Mit dem hier gezeigten automatisierten Seriendruck von einer Access-Datenbank aus brauchen Sie diese Optionen aber einfach nicht.<\/p>\n Seriendruckfelder ins Dokument einfügen<\/p>\n Nachfolgend fügen Sie die Seriendruckfelder ins Dokument ein. Die Namen der Seriendruckfelder sind dabei nicht frei wählbar, sondern sie müssen mit denen der Felder der Tabelle oder Abfrage übereinstimmen, deren Inhalte sie darstellen sollen.<\/p>\n Vorab sollten Sie einen Range<\/b> im Dokument definiert haben, der das Feld aufnimmt. Zum Einfügen der Felder gibt es etliche Syntax-Varianten (s. Listing 3), die sich in der Leistung nicht unterscheiden. Sie sind hier also allein auf Ihr ästhetisches Empfinden für eleganten Code angewiesen.<\/p>\n Listing 3: Code-Varianten zum Einfügen von Feldern <\/p>\n Da Sie den sich ergebenden Objektverweis auf das eingefügte Feld in aller Regel nicht benötigen (das gilt so nur für Seriendruckfelder; bei gewöhnlichen Feldern brauchen Sie diesen Verweis durchaus!), kann die Rückgabe einfach ignoriert werden, wie in Listing 4, dessen Code Sie statt Listing 3 benutzen können.<\/p>\n Listing 4: Felder einfügen ohne Objektverweis<\/p>\n Welche dieser drei Methoden aus Listing 4 eingesetzt wird, ist völlig gleichgültig. Dies spricht für die erste, weil sie am kürzesten ist.<\/p>\n Noch eine Erläuterung, warum der Objektverweis auf das eingefügte Feld bei Seriendruckfeldern obsolet ist: Bei einem beliebigen Feld müssen Sie dieses mit einer Feldfunktion belegen.<\/p>\n Dazu werden Sie das Feld im Allgemeinen mit einem Objektverweis ansprechen. Speziell bei einem Seriendruckfeld werden aber bereits bei der Anlage der Typ (Seriendruck), der Ort (Range) und der Name notwendig angegeben.<\/p>\n Weitere Informationen sind für den Betrieb eines Seriendruckfeldes Word-intern nicht erforderlich.<\/p>\n In Listing 5 wird an der Textmarke Betreff<\/b> diesmal ein fester Text und kein Feld eingefügt, da im Beispiel die Verwendung des gleichen Betreffs für alle Adressaten vorausgesetzt wird.<\/p>\n Listing 5: Weitere Felder einfügen<\/p>\n Für die Anrede wurde angenommen, die Textmarke im Dokument heiße Anrede<\/b>, die Spalte der Datenquelle, die an dieser Stelle als Seriendruckfeld eingefügt werden soll, heiße aber TextAnrede<\/b>.<\/p>\n Diesen letzteren Namen muss dann das Seriendruckfeld bekommen! In Listing 6 ist der Text bis zum Wort „lautet“ wieder konstant – also kommt eine Textmarke zum Einsatz.<\/p>\n Listing 6: Range versetzen mit Collapse<\/p>\n Hinter diesem Satz soll ein Feld für die neue Kundennummer eingefügt werden. Mit der Collapse<\/b>-Methode wird der Bereich auf eine Einfügemarke hinter dem ursprünglichen Ende zusammengezogen. Genau hierhin soll das Feld. Das erledigen die beiden letzten Zeilen.<\/p>\n Seriendruck abschließen<\/b><\/p>\n Mit Listing 7 kommen Sie langsam zum Ende des Seriendruck-Codes.<\/p>\n Listing 7: Letzte Einstellungen vor dem Druck<\/p>\n Die ViewMailMergeFieldCodes<\/b>-Eigenschaft regelt, ob im Seriendruckdokument Feldplatzhalter oder Feldinhalte angezeigt werden. Mit Destination <\/b>wird entschieden, wie die Seriendruckausgabe erfolgen soll.<\/p>\n In Listing 7 wird ein neues Dokument gewählt. Für umfangreiche Mailings wäre die direkte Ausgabe auf den Drucker besser, da schneller.<\/p>\n Falls Ihre Benutzer Freitext eingeben können sollen, wäre der Code hier zu Ende und Sie würden nur noch mit den folgenden Anweisungen das Hauptdokument zur Anzeige bringen:<\/p>\n Der Benutzer kann nun um die Felder herum Text eingeben oder modifizieren und danach wie gewohnt mit der entsprechenden in Word integrierten Schaltfläche Seriendruck verbinden <\/b>die Ausgabe auslösen.<\/p>\n Wenn Ihr Dokument vollständig automatisiert ist, machen Sie stattdessen mit Listing 8 weiter.<\/p>\n Listing 8: Seriendruck direkt durchführen<\/p>\n Damit wird der Seriendruck durchgeführt. Da das zuletzt erzeugte Dokument den Index 1 <\/b>hat, sollten Sie sofort eine Zuweisung an eine Variable vornehmen. Die Execute<\/b>-Methode hat, wie schon erwähnt, leider keinen Rückgabewert.<\/p>\n In diesem zweiten Beispiel würde der Anwender statt mit dem Hauptdokument mit dem fertigen Ergebnis des Seriendrucks konfrontiert und kann entscheiden, ob er das Dokument drucken oder speichern möchte.<\/p>\n Präsentation in der Anwendung<\/b><\/p>\n Die Steuerung des ganzen Vorgangs organisieren Sie in der Anwendung am benutzerfreundlichsten, indem Sie den Benutzer in einer Maske zum Beispiel mit einer Listbox mit Mehrfachauswahl seine Adressaten zusammenstellen und beispielsweise mit einem Kombifeld eine Wordvorlage auswählen lassen.<\/p>\n Die daraus erhaltenen Informationen verwenden Sie zum Befüllen der Temporärtabelle einerseits und zum Festlegen der Vorlage im Code andererseits. Dadurch kommen Sie mit einem Minimum an Code und Vorlagen aus.<\/p>\n Wenn Sie Ihren Benutzern die Möglichkeit geben wollen, mehrere persistente Adresszusammenstellungen parallel vorzubereiten, können Sie auch mehrere Temporärtabellen verwalten und dynamisch in dem Connection-String die jeweils zu verwendende einbinden.<\/p>\n Insbesondere brauchen Sie keine speziellen Seriendruckvorlagen als Hauptdokumente mehr, schon gar nicht solche, die sich nur in der Datenherkunft unterscheiden, da Sie aus Ihren ganz gewöhnlichen Vorlagen bei Bedarf Seriendrucke erstellen.<\/p>\n Auch bei einem Wechsel des Speicherortes der Datenbank haben Sie jetzt keinerlei Probleme mehr. Da Sie im Code den Pfad mit CurrentDb <\/b>dynamisch einfügen, sind die in einem Hauptdokument enthaltenen absoluten Pfade zur Datenbank immer aktuell.<\/p>\n In der Beispieldatenbank finden Sie etwa ein Formular namens frmKunde <\/b>mit einer Schaltfläche zum Ausgeben von Rechnungen (siehe Bild 1). Das Ergebnis sieht in Word beispielsweise so wie in Bild 2 aus.<\/p>\n \n\n
Dim SQL As String\r\nSQL = \"DELETE FROM ttmpSeriendruck\"\r\nCurrentDb.Execute SQL\r\nSQL = \"INSERT INTO ttmpSeriendruck( KundeName, AuftragsDatum, Betrag ) \" & _\r\n \"SELECT KundeName, \" & _\r\n \"Format$(AuftragsDatum, ''dd.MM.yyyy'),\" & _\r\n \"Format$(Betrag, ''#,##0.00 €')\"\r\nCurrentDb.Execute SQL<\/pre>\n
SELECT * FROM [ttmpSeriendruck]<\/pre>\n
SELECT * FROM ttmpSeriendruck<\/pre>\n
SELECT * FROM 'ttmpSeriendruck'<\/pre>\n
\nDim wdApp As Word.Application [1]\r\nDim wdDoc As Word.Document\r\nDim wdDocSDAusgabe As Word.Document\r\nDim wdRng As Word.Range\r\nDim wdMerge As Word.MailMerge\r\nDim wdMfd As Word.MailMergeField\r\nDim wdFld As Word.Field\r\nDim tConnectionString As String\r\nDim tSourceDatabase As String\r\nDim tSourceTable As String\r\nSet wdDoc = <Verweis auf Briefvorlage nach einer der im Artikel \r\n \"Rechnungen in Word schreiben\" in Heft 4, August 2007 \r\n erläuterten Methoden>\r\nSet wdMerge = wdDoc.MailMerge\r\ntSourceDatabase = CurrentDb.Name [2]\r\n''(oder auch \"Pfad\\und\\Name.mdb\")\r\ntSourceTable = \"ttmpSeriendruck\"\r\n''(Tabellen- oder Abfragename)\r\n''Oledb\r\ntConnectionString = _\r\n \"Provider=Microsoft.Jet.OLEDB.4.0;\" & _\r\n \"Password=\"\"\"\";\" & _\r\n \"User ID=Admin;\" & _\r\n \"Data Source=\" & tSourceDatabase & \";\" & _\r\n \"Mode=Read;\" & _\r\n \"Extended Properties=\"\"\"\";\"\r\nwdMerge.OpenDataSource _\r\n Name:=tSourceDatabase, _\r\n LinkToSource:=True, _\r\n Connection:=tConnectionString, _\r\n SQLStatement:= _\r\n \"SELECT * FROM [\" & tSourceTable & \"]\", _\r\n SQLStatement1:=\"\", _\r\n SubType:=wdMergeSubTypeAccess<\/pre>\n<\/div>\n
\n''ODBC\r\ntConnectionString = _\r\n \"DSN=Microsoft Access-Datenbank;\" & _\r\n \"DBQ=\" & tSourceDatabase & \";\" & _\r\n \"DriverId=25;\" & _\r\n \"FIL=MS Access;\" & _\r\n \"MaxBufferSize=2048;\" & _\r\n \"PageTimeout=5;\"\r\n''DDE\r\ntConnectionString = \"TABLE \" & tSourceTable\r\n''ODBC\/DDE\r\nwdMerge.OpenDataSource _\r\n Name:=tSourceDatabase, _\r\n LinkToSource:=True, _\r\n Connection:=tConnectionString, _\r\n SQLStatement:= \"SELECT * FROM [\" & tSourceTable & \"]\", _\r\n SQLStatement1:=\"\"<\/pre>\n<\/p><\/div>\n
\nSet wdRng = wdDoc.Bookmarks(\"Anschrift\").Range\r\nSet wdMfd = wdMerge.Fields.Add(wdRng, \"Anschrift\")\r\nSet wdFld = wdRng.Fields.Add( _\r\n wdRng, wdFieldMergeField, \"Anschrift\")\r\nSet wdFld = wdDoc.Fields.Add( _\r\n wdRng, wdFieldMergeField, \"Anschrift\")<\/pre>\n<\/p><\/div>\n
\nwdMerge.Fields.Add wdRng, \"Anschrift\"\r\nwdRng.Fields.Add _\r\n wdRng, wdFieldMergeField, \"Anschrift\"\r\nwdDoc.Fields.Add _\r\n wdRng, wdFieldMergeField, \"Anschrift\"<\/pre>\n<\/p><\/div>\n
\nSet wdRng = wdDoc.Bookmarks(\"Betreff\").Range\r\nwdRng.Text = \"Ihre Kundennummer\"\r\nSet wdRng = wdDoc.Bookmarks(\"Anrede\").Range\r\nwdMerge.Fields.Add wdRng, \"TextAnrede\"<\/pre>\n<\/p><\/div>\n
\nSet wdRng = wdDoc.Bookmarks(\"Text\").Range\r\nwdRng.Text = \"Ihre neue Kundennummer lautet \"\r\nwdRng.Collapse wdCollapseEnd\r\nwdMerge.Fields.Add wdRng, \"idKd\"<\/pre>\n<\/p><\/div>\n
\nwdMerge.ViewMailMergeFieldCodes = False\r\nwdMerge.Destination = wdSendToNewDocument\r\n'wdMerge.Destination = wdSendToPrinter<\/pre>\n<\/p><\/div>\n
wdApp.Visible = True\r\nwdDoc.Activate<\/pre>\n
\nwdMerge.Execute\r\nSet wdApp = wdDoc.Application\r\nSet wdDocSDAusgabe = wdApp.Documents(1)\r\nDebug.Print wdDocSDAusgabe.Name\r\nwdDoc.Close wdDoNotSaveChanges\r\nwdApp.Visible = True\r\nwdDocSDAusgabe.Activate<\/pre>\n<\/p><\/div>\n
![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2007_05\/Seriendruck-web-images\/pic001_opt.jpeg\")
<\/p>\n
![\"pic002.tif\"](\"..\/fileadmin\/_temp_\/2007_05\/Seriendruck-web-images\/pic002_opt.jpeg\")
<\/p>\n