<\/p>\n
Erfahren Sie, wie Sie Word-Dokumente dynamisch erstellen.<\/p>\n
VBA, Word<\/p>\n
Access 2000 und höher<\/p>\n
AccessToWord.mdb<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
„Von Access nach Word“ – da kommt doch nicht zum x-ten Male diese (zugegebenermaßen oft gefragte) Serienbrief-Geschichte Jein. Serienbriefe hat Access im Unternehmen (eigentlich) schon ausreichend behandelt. Welche Gründe soll es noch geben, Word zur Ausgabe von Access-Daten zu nutzen Diese und die Frage nach der Umsetzung beantwortet der vorliegende Beitrag. Dabei erfahren Sie unter anderem, wie Sie Word starten und beenden, Dokumente und Bereiche referenzieren und diese mit den gewünschten Daten aus einer Access-Datenbank füllen.<\/b><\/p>\n
Serienbriefe sind – ganz klar – die Nummer Eins, wenn es um Anwendungen geht, die Access und Word miteinander verknüpfen. Ob die Access-Datenbank nun eine Tabelle oder Abfrage zum Füllen eines durch den Benutzer unter Word initiierten Serienbriefs liefert oder ob man diese Aufgabe von Access aus startet – das Thema ist in Newsgroups und Foren immer wieder gefragt. Das Prinzip dabei ist ganz einfach: Man definiert in Word ein paar Serienbrieffelder für Informationen, die sich von Brief zu Brief ändern: Adressdaten, Begrüßung, direkte Anrede im eigentlichen Text. Diese füllt man mit den passenden Inhalten aus der gewünschten Tabelle oder Abfrage.<\/p>\n
Dem Erzeuger eines solchen Dokuments spart dies eine ganze Menge Arbeit. Der Empfänger denkt sich nicht viel dabei, denn er ist es gewohnt, in Anschreiben persönlich angeredet zu werden. Was aber, wenn nicht nur Adresse und diverse Floskeln individuell gestaltet werden sollen, sondern noch mehr: Etwa, um einem Kunden interessante Produkte nahe zu bringen, zu denen er Informationen wünscht<\/p>\n
Man könnte meinen, das sei ja nicht viel anders als ein herkömmlicher Serienbrief: Jeder Kunde bekommt ja ohnehin ein individuelles Anschreiben, dann kann man auch den Inhalt individuell gestalten. Oder etwa nicht Nun, soweit sich der Inhalt in ein oder mehrere Felder der verwendeten Datenherkunft quetschen lässt, ist das kein Problem. Wenn auf diese Weise etwa mehrere Produktbeschreibungen integriert werden sollen, die mehr als den reinen Beschreibungstext enthalten – also beispielsweise eine überschrift mit dem Produktnamen, eine Abbildung oder Informationen wie Preis oder Lieferzeit – wird es hingegen schwierig: Das Ganze mag für ein einziges Produkt funktionieren, weil man dann für jedes Feld eine eigene Formatierung festlegen kann.<\/p>\n
Wenn aber jedes Anschreiben mehrere Produkte enthalten soll, wird es problematisch: Die Anzahl der Felder lässt sich nämlich nicht dynamisch anpassen wie etwa im Detailbereich eines Berichts, der die Datensätze einfach untereinander weg schreibt.<\/p>\n
Das Problem lässt sich genauer umreißen: Dies ist der Versuch, das Ergebnis der Abfrage über zwei Tabellen mit einer m:n-Beziehung in einem Word-Dokument abzubilden, wobei die eine Seite der Beziehung die Tabelle der Empfänger und die andere Seite die Produkttabelle ist (bei einer 1:n-Beziehung wäre die Darstellung im übrigen nicht wesentlich einfacher – Beispiel Kategorien und Artikel).<\/p>\n
Ohne die komfortable Serienbrieffunktion wird es eng: Auch das programmatische Füllen einer Dokumentenvorlage mit vorbereiteten Textmarken scheitert zunächst, da auch hier die Anzahl der für die Anzeige des Produkts benötigten Absätze nicht ohne Weiteres dynamisch einstellbar ist.<\/p>\n
Zum Glück können Sie unter Word VBA einsetzen und genauso können Sie Word von Access aus per VBA fernsteuern. Das ist die Grundlage für die nachfolgend vorgestellten Techniken.<\/p>\n
Zum Fernsteuern von Word legen Sie am besten zunächst einen Verweis auf die passende Objektbibliothek an (siehe Bild 1).<\/p>\n
Sie kommen zwar auch ohne aus, wenn Sie Late Binding verwenden möchten (mehr dazu siehe Hinweis), aber zum Entwickeln sollten Sie die Vorzüge des Early Bindings (deutsch: frühe Bindung) genießen: Dazu gehört unter anderem die Unterstützung von IntelliSense für die Elemente der referenzierten Bibliothek.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{3A88CFAC-51DE-4D7B-84CB-6449D31FAB2E}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Herstellen eines Verweises auf die Word-Objektbibliothek<\/span><\/b><\/p>\n Early Binding (also das Setzen eines Verweises und das Verwenden konkreter Objekte) setzt voraus, dass die verwendeten Bibliotheken auf allen Zielrechnern vorhanden sind. Sicherer ist der Einsatz von Late Binding: Dabei lassen Sie den Verweis weg und verwenden jeweils den Datentyp Object statt eines konkreten Typs wie etwa Word.Application bei der Deklaration. Wenn Sie eine Anwendung von Early Binding auf Late Binding umstellen, müssen Sie außerdem berücksichtigen, dass die sprechenden Konstanten nicht mehr zur Verfügung stehen. Statt dessen verwenden Sie die konkreten Zahlenwerte. Welcher Zahlenwert welcher Konstante entspricht, erfahren Sie im Objektkatalog: Suchen Sie einfach nach der gewünschten Konstanten und lesen Sie im unteren Bereich den Zahlenwert ab – in Bild 2 ist dies beispielsweise der Wert -2 für die Konstante wdBorderLeft. Um sicherzugehen, dass Sie alle Konstanten durch die passenden Zahlenwerte ersetzt haben, kompilieren Sie einfach die Anwendung. Option Explicit sollte dabei allerdings aktiviert sein. <\/p>\n Die Routine aus Quellcode 1 arbeitet zunächst nur mit der Word-Anwendung, ohne irgendwelche Dokumente zu öffnen. Dabei deklariert sie eine Objektvariable für den Verweis auf die gewünschte Instanz von Word.<\/p>\n Offen ist noch, wie man an diese Instanz kommt: Gegebenenfalls ist Word schon geöffnet. In diesem Fall verwendet man diese Instanz und stellt die Variable objWord mit der GetObject-Methode auf diese Instanz ein. Es kann natürlich auch sein, dass Word noch nicht geöffnet ist: Dann startet die Routine mit CreateObject eine neue Instanz und verweist mit objWord auf diese.<\/p>\n <\/b><\/p>\n Bild 2: Ermitteln des Wertes einer Konstanten im Objektkatalog<\/span><\/b><\/p>\n Der Clou dieser Routine ist, dass die Suche nach einer vorhandenen Instanz am einfachsten über das Provozieren eines Fehlers möglich ist: Vor dem Versuch, eine bestehende Instanz zu referenzieren, stellt die Routine die Fehlerbehandlung so ein, dass diese beim Auftreten eines Fehlers einfach zum nächsten Befehl springt.<\/p>\n Diese Anweisung prüft, ob die Eigenschaft Number des Err-Objekts einen Wert größer 0 hat – was auf das Auftreten eines Fehlers hinweist. Dieser kann eigentlich nur durch das Scheitern der Herstellung eines Verweises auf eine bestehende Word-Instanz entstanden sein, woraufhin die Routine eine neue Instanz erzeugt.<\/p>\n Tritt kein Fehler auf, was beim „übernehmen“ einer bestehenden Instanz von Word der Fall ist, aktiviert die Routine diese.<\/p>\n Zwischen der With- und der End With-Zeile findet die eigentliche Fernsteuerung (Automation) von Word statt. Hier ist Platz zum öffnen oder Anlegen eines Word-Dokuments, für seine Bearbeitung und das Schließen des Dokuments.<\/p>\n Zu guter Letzt beendet die Routine die Word-Instanz.<\/p>\n Quellcode 1: Initialisieren von Word und anschließendes Beenden<\/b><\/p>\n Es gibt drei Möglichkeiten, um an ein Dokument zum Eintragen von Daten zu kommen:<\/p>\n Alle drei Varianten erfordern das Vorhandensein einer Objektvariablen, mit der Sie auf das Dokument verweisen, um es anschließend bearbeiten, drucken, speichern oder schließen zu können. Fügen Sie daher die folgende Zeile zu der Routine aus Quellcode 1 hinzu:<\/p>\n Die folgenden Zeilen fügen Sie in Quellcode an der Stelle ein, an der sich der Kommentar „Word etwas tun lassen“ befindet:<\/p>\n Dies legt ein neues Word-Dokument ohne Vorlage an, speichert es unter dem Dateinamen c:\\test.doc und schließt das Dokument wieder.<\/p>\n Die Add-Methode der Documents-Auflistung von Word bietet einen Parameter zum Angeben der gewünschten Formatvorlage. Wenn Sie die Add-Methode wie folgt ergänzen, legt Word ein neues Dokument auf Basis der angegebenen Formatvorlage an (in einer Zeile):<\/p>\n Dabei geht Word davon aus, dass sich die Formatvorlage im Vorlagenverzeichnis befindet. Welches das ist, finden Sie mit folgender Anweisung, abgesetzt im Direktfenster, heraus:<\/p>\n Das öffnen eines bestehenden Dokuments ist ebenfalls ganz einfach. In diesem Fall verwenden Sie die Open-Methode der Documents-Auflistung:<\/p>\n VBA-Prozeduren nennt man in Word Makros (in den anderen Office-Anwendungen außer Access übrigens auch). Die von Access bekannten Makros haben damit also nichts gemein.<\/p>\n <\/p>\n Makros von Word & Co. haben einen entscheidenden Vorteil: Sie können viele Ihrer Tätigkeiten mit Word damit aufzeichnen und sich anschließend den so generierten VBA-Code ansehen und diesen anpassen.<\/p>\n Wer sich nicht gut mit dem Objektmodell etwa von Word auskennt, findet hier einen guten Einstieg. Das Aufnehmen eines Makros geht ganz einfach:<\/p>\n <\/b><\/p>\n Bild 3: Eigenschaften eines aufzunehmenden Makros festlegen<\/span><\/b><\/p>\n Fertig! Sie müssen nun noch mit Alt + F11 die VBA-Entwicklungsumgebung öffnen und im Projekt-Explorer das Modul Normal\/Module\/NewMacros auswählen – Word legt Makros standardmäßig an diesem Ort in der Formatvorlage Normal.dot an (siehe Bild 4).<\/p>\n Eine große Hilfe bei Programmierfragen zu Word-VBA ist die FAQ von René Probst unter folgender Adresse: http:\/\/mypage.bluewin.ch\/reprobst\/WordFAQ\/VBA.htm<\/p>\n Die Inhalte dieser Seite verdeutlichen, dass der mit dem Makrorekorder erzeugte Code nur suboptimal ist – so wird dort überwiegend mit dem Selection-Objekt gearbeitet, das gut geeignet ist, die manuell vorgenommenen änderungen am Dokument aufzuzeichnen. Viel mächtiger und schneller ist jedoch das Range-Objekt, mit dem sich Bereiche direkt ansprechen lassen.<\/p>\n Dadurch fällt das für das Selection-Objekt typische Navigieren weg – wer programmiert, will schließlich zielgerichtet arbeiten und nicht hier und da ein Zeichen einfügen, bis das Dokument fertig gestellt ist.<\/p>\n Außerdem ist es bei der Programmierung von Word per VBA wichtig, sich das Word-Dokument nicht als Objekt mit Seiten und Zeilen vorzustellen – diese lassen sich nämlich per VBA ganz schlecht erfassen.<\/p>\n <\/b><\/p>\n Bild 4: Anzeigen eines frisch aufgezeichneten Makros im VBA-Editor unter Word<\/span><\/b><\/p>\n Und damit bekommt die Idee, statt eines Berichts ein Word-Dokument zur Ausgabe der in Tabellen gespeicherten Daten zu verwenden, einen herben Rückschlag: Wenn man nicht weiß, wann eine neue Seite beginnt, wie soll man dann etwa eine Zeile mit einer Zwischensumme (beispielsweise einer Rechnung) zuverlässig positionieren <\/p>\n Sie sollten also sorgsam abwägen, ob Sie sich mit Word als „Report-Engine“ aller Sorgen entledigen, die Sie möglicherweise mit Access-Berichten haben. In vielen Fällen lässt sich aus diesen nämlich weit mehr herausholen, als man erwartet.<\/p>\n Die Formatierungsmöglichkeiten von Word sind natürlich unschlagbar; allerdings werden Sie den Inhalt einer Tabelle beim automatischen Export nicht mehr und nicht weniger formatieren können als in einem Bericht: Der Feldinhalt ist eben die kleinste Einheit, was die Formatierung angeht. <\/p>\n Die einzige Alternative ist der Einsatz von RTF-Texten: Damit können Sie auch Teile des in einem Tabellenfeld enthaltenen Textes nach Wunsch formatieren. Dieses Thema behandeln wie in einer der nächsten Ausgaben.<\/p>\n Wenn Sie einfach nur ein leeres Dokument mit den in einer Tabelle enthaltenen Daten füllen möchten, benötigen Sie kein Range-Objekt: Dann schreiben Sie einfach die Daten herunter – Feld für Feld, Datensatz für Datensatz.<\/p>\n Text ohne Formatierung einfügen<\/b><\/p>\n Die Routine aus Quellcode 2 schreibt Namen und Positionen aller Mitarbeiter der Nordwind-Datenbank in ein neues Word-Dokument (siehe Bild 5).<\/p>\n Dazu deklariert und instanziert es ein Recordset-Objekt mit den Datensätzen der Personal-Tabelle.<\/p>\n <\/b><\/p>\n Bild 5: Ein per VBA-Code gefülltes Word-Dokument<\/span><\/b><\/p>\n Quellcode 2: Schreiben von Daten in ein leeres Word-Dokument<\/b><\/p>\n Dieses durchläuft die Routine und schreibt dabei einige Informationen mit der TypeText-Methode des Selection-Objekts in die Word-Datei. Das Selection-Objekt entspricht dabei der Position der Einfügemarke, die sich beim Verwenden der TypeText-Methode jeweils hinter den geschriebenen Text verschiebt.<\/p>\n Text mit Formatierung einfügen<\/b><\/p>\n Wenn Sie die einzelnen Elemente (sprich: Felder der zugrunde liegenden Datenquelle) unterschiedlich formatieren möchten, bietet sich der Einsatz des Range-Objekts an.<\/p>\n Die Routine aus Quellcode 3 zeigt ein Beispiel. Es soll die gleiche Ausgabe wie die vorherige Prozedur erzeugen, aber die Mitarbeiternamen fett drucken und dazu das Range-Objekt verwenden.<\/p>\n Das Range-Objekt wird zunächst auf den letzten Absatz gesetzt. Wenn der Absatz keinen Zeilenumbruch enthält (Chr(13)), wird ein solcher zunächst am Ende eingefügt und das Range-Objekt auf die neue, leere Zeile gesetzt.<\/p>\n Die InsertAfter-Methode des Range-Objekts fügt dann zunächst den Vor- und Nachnamen des Mitarbeiters in das Dokument ein. Dies erweitert das Range-Objekt entsprechend vom Anfang der neuen Zeile bis zum letzten Zeichen des eingefügten Textes, sodass dieser leicht über rng.Font.Bold in fett gedruckten Text umgewandelt werden kann. Wenn man jetzt weiteren Text hinter dem aktuellen Text anfügt, wird dieser ebenfalls fett hervorgehoben.<\/p>\n Also verschieben Sie den Beginn des Range-Objekts auf das Ende des aktuellen Range-Objekts, aber vor das Zeilenumbruch-Zeichen (rng.End -1) und fügen dort in Klammern die Position des aktuellen Mitarbeiters ein (rng.InsertAfter…). Dieser ist zwar immer noch fett gedruckt, aber Sie haben ja einen neuen Range festgelegt, der die Angabe der Position umfasst: Und diesen Bereich können Sie leicht mit rng.Font.Bold = False wieder auf normale Strichstärke einstellen. Das Ergebnis sieht diesmal wie in Bild 6 aus.<\/p>\n <\/b><\/p>\n Bild 6: Automatisch generiertes Word-Dokument mit individueller Formatierung<\/span><\/b><\/p>\n Quellcode 3: Einsatz des Range-Objekts zum Formatieren von Texten<\/b><\/p>\n Quellcode 4: Schreiben von Daten aus einer Access-Tabelle in eine Word-Tabelle<\/b><\/p>\n Texte in Tabelle<\/b><\/p>\n Vielleicht möchten Sie auch – der besseren übersicht halber – die Mitarbeiterdaten in eine Word-Tabelle schreiben.<\/p>\n Das geht am allerschnellsten, wenn Sie die Daten einer Zeile erst einmal durch ein bestimmtes Steuerzeichen getrennt (etwa vbTab für Tabulator) in das Word-Dokument schreiben und dann den ganzen Bereich mit der Methode ConvertToTable in eine Tabelle konvertieren.<\/p>\n Anschließend durchläuft die Routine aus Quellcode 4 die Tabelle in zwei For Each-Schleifen und fügt jeder Zelle einen Rahmen hinzu.<\/p>\n Die Tabelle sieht dann wie in Bild 7 aus.<\/p>\n <\/b><\/p>\n Bild 7: Aus der Tabelle in die Tabelle: Access-Daten in einer Word-Tabelle<\/span><\/b><\/p>\n Das Verwenden einer Dokumentvorlage zum Füllen eines Word-Dokuments bringt mehrere Vorteile:<\/p>\n Aus Platzgründen verzichten wir an dieser Stelle auf die Beschreibung von Formatvorlagen und die Vorgehensweise zum Anlegen von Briefköpfen oder Absenderadressen. Technisch viel interessanter sind die Textmarken.<\/p>\n Zum besseren Verständnis legen Sie einfach einmal eine Dokumentvorlage mit einigen Textmarken an.<\/p>\n Als Dokumentvorlage verwenden Sie zunächst ein herkömmliches Dokument, das Sie später als .dot-Datei speichern.<\/p>\n Es gibt zwei Arten von Textmarken:<\/p>\n Beide fügen Sie ein, indem Sie den Menübefehl Einfügen\/Textmarke auswählen, während Sie entweder nur die Einfügemarke an der gewünschten Stelle positioniert (offene Textmarke) oder einen Bereich markiert haben (geschlossene Textmarke). Damit Sie überhaupt sehen können, wo sich im Dokument die Textmarken befinden, aktivieren Sie die entsprechende Option im Optionen-Dialog von Word (Menüeintrag Extras\/Optionen). Bild 8 zeigt diesen Dialog und zwei Beispiele für eine offene und eine geschlossene Textmarke.<\/p>\n Beim Einfügen geben Sie jeder Textmarke einen eindeutigen Namen, über den Sie diese per VBA ansprechen können (im Beispiel „OffeneTextmarke“ und „GeschlosseneTextmarke“).<\/p>\n Die Routine aus Quellcode 5 legt ein neues Dokument auf Basis dieser Formatvorlage an, erstellt ein Range-Objekt, das zuerst auf die offene und dann auf die geschlossene Textmarke verweist und beiden nacheinander einen Text hinzufügt. Vorher prüft die Routine jeweils, ob die entsprechende Textmarke überhaupt vorhanden ist.<\/p>\n Quellcode 5: Füllen von Textmarken in einem Word-Dokument<\/b><\/p>\n <\/b><\/p>\n Bild 8: Option für das Sichtbarmachen von Textmarken und Beispiele für eine offene und eine geschlossene Textmarke<\/span><\/b><\/p>\n Wenn Sie automatisiert Artikelbeschreibungen oder Produktdatenblätter in Word-Dokumente schreiben möchten, wollen Sie dort auch – soweit vorhanden – passende Bilddateien integrieren.<\/p>\n Abhängig davon, ob und in welchem Format die Bilder in der Datenbank oder im Dateisystem gespeichert sind, gibt es natürlich unterschiedliche Möglichkeiten, an die entsprechenden Bilder zu kommen. Daher geht die folgende Routine davon aus, dass das Bild im Dateisystem verfügbar ist. Es gibt zwei Arten, ein Bild in ein Word-Dokument einzubetten:<\/p>\n Die Routine aus Quellcode 6 zeigt, wie Sie ein Shape in ein Word-Dokument einfügen. Es gibt ein paar Unterschiede zum Einfügen eines InlineShape-Objekts, das in Quellcode 7 dargestellt ist: So können Sie beim Shape-Objekt direkt beim Einfügen die Größe des Bildes festlegen. Die vorliegende Routine verwendet die Methoden des Moduls mdlGDIPlus (siehe Beitrag Bilder im Griff mit VBA und GDI+, Shortlink 337), um die Größe des einzufügenden Bildes zu ermitteln.<\/p>\n Quellcode 6: Einfügen eines Bildes als Shape<\/b><\/p>\n Quellcode 7: Einfügen eines Bildes als InlineShape<\/b><\/p>\n Alternativ – in dieser Prozedur zusätzlich implementiert – passen Sie die Größe mit den Methoden ScaleWidth und ScaleHeight an. Die Routine BildEinfuegen_InlineShape (s. Quellcode 7) fügt das gleiche Bild als InlineShape-Objekt in das Dokument ein.<\/p>\n In Ermangelung einer Möglichkeit, beim Einfügen die Größe des Bildes einzustellen, erfolgt dies direkt im Anschluss mit den Eigenschaften ScaleHeight und ScaleWidth.<\/p>\n Dieser Beitrag stellt einige Möglichkeiten zum Einfügen von Daten in Word-Dokumente per VBA vor. Zusätzlich erfahren Sie noch, wie Sie die passenden Bilder hinzufügen.<\/p>\n Damit beherrschen Sie die Grundlagen für das Erstellen von Word-Dokumenten auf Basis von Access-Daten.<\/p>\n Der Beitrag konnte natürlich nur an der Oberfläche kratzen; das Objektmodell von Word steht den VBA-Bibliotheken von Access bezogen auf den Umfang keinesfalls nach und der Aufbau eines Word-Dokuments sowie der Zugriff darauf wollen erst einmal beherrscht sein.<\/p>\n Eine große Hilfe beim Ermitteln der notwendigen Code-Schnipsel zum Anpassen der oben vorgestellten Routinen an eigene Bedürfnisse ist die Funktion zum Aufzeichnen von Makros in Word.<\/p>\n Wer zusätzlich das Objektmodell von Word verstehen will, sollte auf jeden Fall einen Blick auf die im Internet verfügbare Word-FAQ von René Probst werfen: http:\/\/mypage.bluewin.ch\/reprobst\/FrmSet.htmIndex<\/p>\n Enthaltene Beispieldateien:<\/p>\n AccessToWord.mdb<\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{3A88CFAC-51DE-4D7B-84CB-6449D31FAB2E}\/pic002.png\")
<\/p>\nPublic Sub WordInitialisieren()\r\n Dim objWord As Word.Application\r\n On Error Resume Next\r\n Set objWord = GetObject(, _ \"Word.Application\")\r\n If Err.Number > 0 Then\r\n On Error Goto 0\r\n Set objWord = _ CreateObject(\"Word.Application\")\r\n Else\r\n objWord.Activate\r\n End If\r\n With objWord\r\n .Visible = True\r\n ''Word etwas tun lassen\r\n End With\r\n objWord.Quit\r\n Set objWord = Nothing\r\nEnd Sub<\/pre>\n
Dim objDocument As Word.Document<\/pre>\n
Neues Dokument ohne Vorlage anlegen<\/h3>\n
Set objDocument = .Documents.Add\r\nobjDocument.SaveAs \"c:\\test.doc\"\r\nobjDocument.Close<\/pre>\n
Neues Dokument unter Verwendung einer Vorlage anlegen<\/h3>\n
Set objDocument = .Documents.Add(\"MeineFormatvorlage.dot\")<\/pre>\n
Debug.Print Word.Options.DefaultFilePath(Path:= wdUserTemplatesPath)<\/pre>\n
Bestehendes Dokument öffnen<\/h3>\n
Set objDocument = .Documents.Open(\"c:\\test.doc\")<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{3A88CFAC-51DE-4D7B-84CB-6449D31FAB2E}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{3A88CFAC-51DE-4D7B-84CB-6449D31FAB2E}\/pic004.png\")
<\/p>\nBericht oder Word-Dokument<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{3A88CFAC-51DE-4D7B-84CB-6449D31FAB2E}\/pic005.png\")
<\/p>\nPublic Sub PersonaldatenSchreiben()\r\n Dim objWord As Word.Application\r\n Dim objDocument As Word.Document\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset(\"Personal\", dbOpenDynaset)\r\n On Error Resume Next\r\n Set objWord = GetObject(, \"Word.Application\")\r\n If Err.Number > 0 Then\r\n On Error GoTo 0 Set objWord = CreateObject(\"Word.Application\")\r\n Else\r\n objWord.Activate\r\n End If\r\n With objWord\r\n .Visible = True\r\n Set objDocument = .Documents.Add\r\n Do While Not rst.EOF\r\n .Selection.TypeText rst!Vorname & \" \" _ & rst!Nachname & \" (\" & rst!Position & \")\" _ & vbCrLf\r\n rst.MoveNext\r\n Loop\r\n objDocument.SaveAs \"e:\\test.doc\"\r\n objDocument.Close\r\n End With\r\n objWord.Quit\r\n Set objWord = Nothing\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{3A88CFAC-51DE-4D7B-84CB-6449D31FAB2E}\/pic006.png\")
<\/p>\nPublic Sub PersonaldatenSchreibenMitFormat()\r\n ... \r\n Dim rng As Word.Range\r\n ...\r\n With objWord\r\n .Visible = True\r\n Set objDocument = .Documents.Add\r\n Do While Not rst.EOF\r\n Set rng = .ActiveDocument.Range.Paragraphs.Last.Range\r\n If Not rng.Text = Chr(13) Then\r\n .ActiveDocument.Range.InsertAfter Chr(13)\r\n Set rng = .ActiveDocument.Range.Paragraphs.Last.Range\r\n End If\r\n rng.InsertAfter rst!Vorname & \" \" & rst!Nachname\r\n rng.Font.Bold = True\r\n Set rng = .ActiveDocument.Range(rng.End - 1, rng.End)\r\n rng.InsertAfter \" (\" & rst!Position & \")\"\r\n rng.Font.Bold = False\r\n rst.MoveNext\r\n Loop\r\n objDocument.SaveAs \"e:\\test.doc\"\r\n objDocument.Close\r\n End With\r\n ...\r\nEnd Sub<\/pre>\n
Public Sub PersonaldatenInTabelle()\r\n ...\r\n Dim cel As Word.Cell\r\n Dim col As Word.Column\r\n Dim tbl As Word.Table\r\n ...\r\n With objWord\r\n .Visible = True\r\n Set objDocument = .Documents.Add\r\n Set rng = .Selection.Range\r\n Do While Not rst.EOF\r\n rng.InsertAfter rst!Vorname & vbTab & rst!Nachname & vbTab & rst!Position & vbCrLf\r\n rst.MoveNext\r\n Loop\r\n Set tbl = rng.ConvertToTable(vbTab)\r\n ''Tabelle formatieren\r\n For Each col In tbl.Columns\r\n For Each cel In col.Cells\r\n cel.Borders(wdBorderLeft).LineStyle = wdLineStyleSingle\r\n cel.Borders(wdBorderRight).LineStyle = wdLineStyleSingle\r\n cel.Borders(wdBorderTop).LineStyle = wdLineStyleSingle\r\n cel.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle\r\n Next cel\r\n Next col\r\n objDocument.SaveAs \"e:\\test.doc\"\r\n objDocument.Close\r\n End With\r\n ...\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{3A88CFAC-51DE-4D7B-84CB-6449D31FAB2E}\/pic007.png\")
<\/p>\nRund um die Textmarke<\/h3>\n
Public Sub TextmarkenFuellen()\r\n ...\r\n With objWord\r\n .Visible = True\r\n Set objDocument = _ .Documents.Add(\"C:\\Dokumente und Einstellungen\\Administrator\\Anwendungsdaten\" _ & \"\\Microsoft\\Vorlagen\\Textmarken.dot\")\r\n If objDocument.Bookmarks.Exists(\"OffeneTextmarke\") Then\r\n Set rng = objDocument.Bookmarks(\"OffeneTextmarke\").Range\r\n rng.Text = \"Hier war eine offene Textmarke ...\"\r\n End If\r\n If objDocument.Bookmarks.Exists(\"GeschlosseneTextmarke\") Then\r\n Set rng = objDocument.Bookmarks(\"GeschlosseneTextmarke\").Range\r\n rng.Text = \"... und hier eine geschlossene.\"\r\n End If\r\n objDocument.SaveAs \"e:\\test.doc\"\r\n objDocument.Close\r\n End With\r\n ...\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{3A88CFAC-51DE-4D7B-84CB-6449D31FAB2E}\/pic008.png\")
<\/p>\nPublic Sub BildEinfuegen_Shape()\r\n ...\r\n Dim shp As Word.Shape\r\n Dim rng As Word.Range\r\n Dim strBildname As String\r\n Dim x As Integer\r\n Dim y As Integer\r\n ...\r\n With objWord\r\n .Visible = True\r\n Set objDocument = .Documents.Add\r\n strBildname = CurrentProject.Path & \"\\pic001.tif\"\r\n BildabmessungenLesen strBildname, x, y\r\n Set shp = objDocument.Shapes.AddPicture(strBildname, _ True, False, , , x, y)\r\n shp.ScaleHeight 0.6, msoTrue\r\n shp.ScaleWidth 0.6, msoTrue\r\n objDocument.SaveAs \"e:\\test.doc\"\r\n objDocument.Close\r\n End With\r\n ...\r\nEnd Sub<\/pre>\n
Public Sub BildEinfuegen_InlineShape()\r\n ...\r\n Dim ils As Word.InlineShape\r\n Dim rng As Word.Range\r\n Dim strBildname As String\r\n Dim x As Integer\r\n Dim y As Integer\r\n ...\r\n With objWord\r\n .Visible = True\r\n Set objDocument = .Documents.Add\r\n strBildname = CurrentProject.Path & \"\\pic001.tif\"\r\n Set ils = _ objDocument.InlineShapes.AddPicture(strBildname, _ True, False)\r\n ils.ScaleHeight = 60\r\n ils.ScaleWidth = 60\r\n objDocument.SaveAs \"e:\\test.doc\"\r\n objDocument.Close\r\n End With\r\n ...\r\nEnd Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n