<\/p>\n
Die Grenzen des Berichtsgenerators, den Access von Hause aus mitbringt, sind bei gehobenen Ansprüchen rasch erreicht. Manch einer mag sich da schon die vielfältigen Formatierungsmöglichkeiten von Word gewünscht haben. Nun, warum nicht: Gestandene Word-Profis werden es weniger gern hören, aber aus Sicht des Datenbank-Entwicklers ist Word schließlich nichts anderes als eine Erweiterung der Alma Mater Access.<\/b><\/p>\n<\/p><\/div>\n Wie Sie Word zum Ausgeben der Daten Ihrer Datenbank einsetzen, erfahren Sie im vorliegenden Beitrag am Beispiel einer Rechnung. Diese können Sie zwar auch in Form eines Access-Berichts ausgeben, aber was, wenn der Sachbearbeiter den Feinschliff gern in Word vornehmen möchte<\/p>\n Grundlegende Informationen zum Zugriff auf Word per VBA finden Sie übrigens im Beitrag Von Access nach Word <\/b>(s. Shortlink 360).<\/p>\n Aufbau einer Rechnung<\/b><\/p>\n Vor der ersten Zeile Code lohnt ein Blick auf das gewünschte Resultat – sprich: den Aufbau des zu erstellenden Rechnungsdokuments (siehe Bild 1). Dieses enthält zunächst konstante Bereiche, die entweder der Geschäftspapiervordruck oder die Word-Vorlage in Form vorgegebener Elemente liefert, hier also der eigentliche Briefkopf und Angaben im Fußbereich wie Grußformel, eventuell eine feste Bankverbindung und ähnliches.<\/p>\n Bild 1: Aufbau des Word-Dokuments<\/span><\/b><\/p>\n<\/p><\/div>\n Des Weiteren gibt es variable Bereiche, die der Code Ihrer Anwendung manipulieren soll – Anschriftenfeld und Rechnungsnummer – und einen (oder mehrere) Listenbereiche, die ebenfalls variabel sind, hier die Rechnungspositionen.<\/p>\n Interessant sind die variablen Bereiche, die der Code Ihrer Anwendung manipulieren soll. Die einfach variablen und die Listendaten finden sich in der Datenbank in der Regel als 1:n-Beziehung; im gewählten Fall einer Rechnungserstellung also zum Beispiel Bestellungen und Bestelldetails.<\/p>\n Die konstanten und einfachen variablen Bereiche entsprechen dabei dem Berichtskopf beziehungsweise -fuß, die sich wiederholenden variablen Bereiche (hier zur Anzeige der Bestelldetails) dem Detailbereich eines Berichts.<\/p>\n Alles, was Sie über die Word-Oberfläche erledigen können, ist auch mittels Code machbar – wie beispielsweise das Erzeugen eines beliebig komplexen Dokuments aus einer völlig leeren Vorlage. Das wäre allerdings ein Berg überflüssiger Arbeit. Die natürliche Faulheit des Programmierers (man kann es auch Intelligenz nennen) und Erfahrung im Entwurf von Access-Berichten weisen den rechten Weg: Die Word-Vorlage liefert die fixen Elemente, alles andere fügen die passenden Routinen hinzu. <\/p>\n Besonderheiten der Textverarbeitung<\/b><\/p>\n Das Word-Objektmodell und damit der Aufbau eines Word-Dokuments bringen für Access-Entwickler Ungewohntes mit sich:<\/p>\n Nach einem Page<\/b>-Objekt, das eine Seite repräsentiert, oder nach Analogien zu Textfeldern, die als wohl definierte Behälter für die per Code zu schreibenden Werte dienen, sucht man vergeblich.<\/p>\n Das ist auch gut so, denn eine Textverarbeitung ist in erster Linie dafür gedacht, Fließtext aufzunehmen, dessen Umbruch sich nach Schriftart und -größe, nach Seitenrändern und ähnlichem richtet. Wo nun also konkret ein bestimmtes Textstück landet, zum Beispiel dritte Seite, zweiter Absatz, zweites Wort, steht beim Befüllen des Dokuments noch nicht fest.<\/p>\n Zusätzlich gilt es einige Dinge zu beachten, die einem Datenbankprogrammierer gar zu leicht von der Hand gehen, in einer Textverarbeitung aber mindestens mieser Stil sind:<\/p>\n Die Konstante vbCrLf<\/b> etwa ist in Word nicht einfach ein Zeilenwechsel, sondern hat die spezielle Bedeutung des Absatzes (Paragraph<\/b>). Da die Zeilen einer Adresse beispielsweise insgesamt einen Absatz bilden, ist hier die weiche Zeilenschaltung (ASCII-Code 11) zu verwenden:<\/p>\n Abstände vor und nach Absätzen erzeugen Sie nicht durch mehrere vbCrLf<\/b>, sondern durch entsprechende Absatzformate:<\/p>\n Dadurch würden Sie bei Schriftgrößen von 10 bis 12 Punkt vor dem Absatz eine volle und danach eine halbe Leerzeile einfügen.<\/p>\n Für Einrückungen sind nicht Tabulatoren oder Leerzeichenfolgen zuständig, sondern eine passende Formatierung. Die folgende erzeugt etwa einen linken Einzug von zwei Zentimetern:<\/p>\n Wichtige Objekte<\/p>\n Um nun überhaupt an einer definierten Position schreiben zu können, brauchen Sie Elemente, die Sie in den Text einbauen und per Code ansprechen können. Als wichtigste sind hier zu nennen:<\/p>\n Die größte Bedeutung kommt hier den Textmarken zu – insbesondere können Sie diese mit einem Namen versehen.<\/p>\n Felder und Tabellen lassen sich nur durch einen numerischen Index ansprechen, wodurch Sie bei der Programmierung entweder die Topologie der Vorlage genau kennen müssen oder mittels Bookmarks umgehen können: Dazu fassen Sie beispielsweise eine Tabelle vollständig in eine Textmarke ein und erzeugen darüber einen Objektverweis auf die enthaltene Tabelle. Der erforderliche Code braucht noch nicht einmal eine zusätzliche Zeile. Mit Feldern ist das ebenfalls möglich.<\/p>\n Eine Besonderheit, die sich direkt auf Ihre Programmiergewohnheiten niederschlägt, ist folgende: Sämtliche Auflistungen in Word beginnen mit den Indexwert 1<\/b>.<\/p>\n Hinweis für Makro-Fans<\/p>\n Eine kleine Warnung an Entwickler, die mit dem Makro-Rekorder von Word aufgezeichnete Makros als Grundlage für Eigenkreationen verwenden: Der Recorder arbeitet prinzipbedingt intensiv mit Objekten wie ActiveDocument<\/b> und Selection <\/b>beziehungsweise nimmt selbst Selektionen (Markierungen) vor.<\/p>\n Viele interne Funktionsprozeduren, die eigentlich einen Objektverweis zurückgeben, werden in der Art einer Befehlsliste mit Sub-Syntax aufgerufen. Für die Automation von einer anderen Anwendung aus ist dieses Vorgehen im Allgemeinen unbrauchbar: Sie sollten daher immer mit definierten Objektvariablen arbeiten und Bereiche mit Range<\/b>-Objekten identifizieren.<\/p>\n Word starten<\/b><\/p>\n Einen Verweis auf eine Word-Instanz erhalten Sie mit unterschiedlichen Methoden. Verbreitet ist die Variante, zu versuchen, eine laufende Instanz anzusprechen und im Fehlerfall eine neue Instanz zu starten.<\/p>\n Das Vorhandensein einer Word-Instanz ist auch per API-Funktion prüfbar. Beide Varianten finden Sie in der Beispieldatenbank zu diesem Beitrag.<\/p>\n Eine kaum bekannte Methode, die ohne Fehlerprovokation und ohne API auskommt, ist die aus Listing 1.<\/p>\n Listing 1: Word-Instanz holen<\/p>\n Alle Methoden liefern jedoch das gleiche Ergebnis – einen gültigen Objektverweis auf das gewünschte Dokument.<\/p>\n Textmarken verwenden<\/b><\/p>\n Wie schon erwähnt, steuert man das Word-Dokument am sinnvollsten mittels Textmarken. Es gibt hier zwei Typen, die offene I-Bookmark und die begrenzte [ ]-Bookmark.<\/p>\n Beide weisen Sie über den Menüeintrag Einfügen\/Textmarke <\/b>zu. Der Unterschied liegt im markierten Bereich: Liegt eine Markierung vor, umfasst die Textmarke diesen Bereich, sonst fügt Word eine offene Textmarke an der Stelle der Einfügemarke ein.<\/p>\n Falls Sie die Textmarken auch sehen möchten, wählen Sie den Menübefehl Extras\/Optionen\/Ansicht\/Textmarken <\/b>aus (Word 2007: Word-Optionen\/Erweitert\/Dokumentinhalt anzeigen\/Textmarken anzeigen<\/b>).<\/p>\n Per Code funktioniert dies wie folgt:<\/p>\n Beim Beschreiben verhalten sich beide Typen unterschiedlich. Eine offene Textmarke schreibt den Text direkt hinter ihre Position, wobei sie selbst unbeschadet bleibt. Ein Beispiel sind die folgenden Zeilen, die sich auf eine offene Textmarke namens Test beziehen:<\/p>\n Wenn das Zeichen |<\/b> die Position der Textmarke angibt, sorgen die obigen Zeilen nacheinander für folgende Ausgabe:<\/p>\n Eine begrenzte Textmarke verhält sich anders. Sie wird durch den eingefügten Text ersetzt. Die Textmarke [ ] <\/b>wird durch die Anweisung<\/p>\n in den Text<\/p>\n umgewandelt. Der Aufruf der Anweisung<\/p>\n und damit der Versuch, der Textmarke einen weiteren Ausdruck zuzuweisen, löst einen Laufzeitfehler aus, da eine begrenzte Textmarke beim Beschreiben zerstört wird. <\/p>\n Das ist nicht weiter tragisch: Einerseits will man ja einen Text nicht mehrfach überschreiben, andererseits kann man die Textmarke, falls man sie doch mehrfach zu brauchen meint, mit folgendem Trick retten:<\/p>\n Dabei ist wdRng <\/b>eine Variable vom Typ Word.Range<\/b>. <\/p>\n Wer keinen Laufzeitfehler riskieren möchte, verwendet zusätzlich die folgende Anweisung:<\/p>\n Das Range-Objekt<\/p>\n <\/p>\n Das Range<\/b>-Objekt ist der Schlüssel für die gesamte Word-Programmierung. Es steht für einen Bereich, den man sich wie eine Markierung im Word-Dokument vorstellen kann. Ein Range hat immer einen Anfang und ein Ende sowie eine sich daraus ergebende Ausdehnung.<\/p>\n Der kleinstmögliche Range hat die Ausdehnung 0 und entspricht einer Cursor-Position – für die älteren Leser: einem Lichtmarkenzeiger. Ansonsten kann alles ein Range sein, was sich markieren lässt: etwa ein Buchstabe, ein Wort, ein Absatz, eine Tabelle, eine Tabellenzelle, ein Feld, ein Abschnitt oder das ganze Dokument.<\/p>\n Der große Vorteil des Range<\/b>-Objekts liegt in seiner Eigenschaft als virtuelle Markierung. Es kann dadurch nicht mit einer eventuellen Textauswahl eines Benutzers interferieren, außerdem lassen sich beliebig viele Ranges parallel verarbeiten. Obendrein ist ein Range<\/b> erheblich schneller als eine echte Auswahl, die es unter dem Begriff Selection <\/b>ebenfalls gibt.<\/p>\n In der Praxis legen Sie einen Range nicht durch Anfangs- und Endposition fest, sondern durch die Range<\/b>-Eigenschaft, die viele Word-Objekte zur Verfügung stellen (s. Tab. 1).<\/p>\n Bereich<\/p>\n<\/td>\n Bedeutung<\/p>\n<\/td>\n<\/tr>\n Tab. 1: Bereiche und ihre Bedeutung<\/span><\/b><\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table><\/div>\n Fast alle anschaulichen Word-Objekte haben eine Range<\/b>-Eigenschaft, die einen Verweis auf ein Range<\/b>-Objekt zurückgibt, gelegentlich ergeben aber auch Eigenschaften anderen Namens ein Range<\/b>-Objekt.<\/p>\n Eine Logik gibt es dahinter nicht. Nun ja, die Word-Entwickler waren wohl keine Datenbänkler, also üben wir Nachsicht …<\/p>\n In medias res<\/b><\/p>\n Die bisherigen Erwägungen setzen Sie jetzt direkt in die Praxis um. Den vollständigen lauffähigen Code finden Sie in der Beispieldatenbank.<\/p>\n Wie eingangs erwähnt, bereiten Sie das Word-Dokument am besten von Hand vor. Um das oben abgebildete Dokument zu erzeugen, fügen Sie die Elemente aus Bild 2 hinzu oder Sie verwenden einfach die mitgelieferte Beispieldatei VorlageBriefTab.doc<\/b>.<\/p>\n Bild 2: Der Briefkopf mit seinen Textmarken<\/span><\/b><\/p>\n<\/p><\/div>\n Die obere Tabelle befindet sich im Kopfzeilenbereich und enthält die allgemeinen Briefkopfangaben, die untere im eigentlichen Dokument. Die endgültige Anwendung gibt die Tabellen natürlich ohne sichtbare Rahmenlinien aus.<\/p>\n Das Dokument enthält die Textmarken aus Bild 3, im Dokument sehen diese Textmarken wie in Bild 4 aus. Man beachte das kaum sichtbare [<\/b> vor dem B <\/b>von Bezeichnung<\/b>: Dies ist der Beginn der Textmarke Tabelle. Das schließende ]-Symbol finden Sie in der darunter liegenden Zeile (siehe Bild 5).<\/p>\n Bild 3: Der Dialog zum Verwalten der Textmarken<\/span><\/b><\/p>\n<\/p><\/div>\n Bild 5: Die komplette Artikeltabelle<\/span><\/b><\/p>\n<\/p><\/div>\n Die erste leere Datenzeile ist, obwohl ohne Inhalt, auf die gewünschte Schriftart vorformatiert, wodurch per Code eingefügter Text direkt die gewünschte Formatierung erhält.<\/p>\n Der besseren übersicht halber ist es sinnvoll, Textmarken in der geschlossenen Form zu verwenden und als Vorgabetext den Namen der Textmarke, der natürlich auf ihre Verwendung schließen lassen sollte, zu benutzen – also wie in Bild 4 [Betreff]<\/b>.<\/p>\n Bild 4: Textmarken<\/span><\/b><\/p>\n<\/p><\/div>\n Eine Alternative wäre ein Beispieltext wie [Sehr geehrte]<\/b>; nach der ersten Methode würde dies [Anrede] <\/b>lauten.<\/p>\n So haben Sie beim Entwurf eine Vorschau, was wo stehen wird. Dies ist völlig leeren Marken sicher vorzuziehen.<\/p>\n Das Füllen der Textmarke überschreibt dann den Vorgabetext und löscht die Marke. Da sich das nur auf die aus der Vorlage erzeugten Dokumente, nicht aber auf die Vorlage selbst auswirkt, bleibt diese unverändert bestehen.<\/p>\n Abweichend hiervon verwenden Sie für die Anschrift immer eine offene Textmarke (ohne Vorgabetext, da dieser nicht überschrieben würde), da Sie so mit einem kleinen Trick schnell und einfach die Zeile mit PLZ und Ort fett formatieren können.<\/p>\n Die folgenden Anweisungen füllen die Vorlage mit der Empfänger-Adresse und formatieren PLZ und Ort fett:<\/p>\n Die Variablen PLZOrt <\/b>und Adresse <\/b>werden aus der Datenbank befüllt. Typisch für die offene Textmarke ist die Reihenfolge beim Füllen: Der Text, der unten stehen soll, wird zuerst geschrieben, danach erst folgt der Text, der darüber steht. Wichtig ist hier das nochmalige Zuweisen des Textmarkenbereichs an die Range<\/b>-Variable, da das Range-Objekt nach der ersten Textzuweisung um eben diesen Text erweitert wird.<\/p>\n Die geschlossenen Textmarken beschreiben Sie mit Anweisungen nach folgendem Muster:<\/p>\n Hierbei stammen die gewünschten Texte aus den betreffenden Datenbankfeldern oder sind gegebenenfalls Textkonstanten.<\/p>\n Eine kleine Besonderheit gibt es beim Beschreiben der Textmarke Nachtext<\/b>. Diese steht direkt unter der Detailtabelle. Um hier einen Abstand zu erzeugen, versehen Sie den ersten Absatz des Bereichs Nachtext nach dem Einfügen des Textes mit einem entsprechenden Format.<\/p>\n Da das Zuweisen des Texts die Textmarke aber löscht, können Sie diese danach nicht mehr ansprechen. Daher weisen Sie den Range der Textmarke vorher einfach einer Objektvariablen zu. Diese übersteht das Desaster nämlich klaglos (s. Listing 2).<\/p>\n Listing 2: Per Objektvariable referenzierte Textmarken leben länger.<\/p>\n Es fehlt noch die Detailtabelle mit den Rechnungspositionen. Den Verweis holen Sie sich sich, soweit bekannt, über den numerischen Index der Tabelle oder aus einer entsprechend gesetzten Textmarke namens Tabelle<\/b>, was die schönere Lösung ist. Die Variante mit dem Index sieht so aus:<\/p>\n Im Beispieldokument ist die Tabelle – zufällig – die zweite im Text-Layer. Die erste ist der Briefkopf nach DIN.<\/p>\n Folgende Variante zeigt, wie Sie die in eine Textmarke eingebettete Tabelle referenzieren:<\/p>\n Die gleiche Tabelle ist die erste (da einzige) innerhalb des Bereichs der Textmarke Tabelle<\/b>. Die Zugriffsnummer ist so also immer gleich.<\/p>\n Letzteres ist insbesondere nützlich, wenn Sie komplexere Dokumente mit mehreren Tabellen aufbauen möchten.<\/p>\n Den Code für das Befüllen der Tabelle finden Sie in Listing 3.<\/p>\n Listing 3: Füllen einer Tabelle mit Daten aus einer Datenbank<\/p>\n Allzu kompliziert ist der Ablauf nicht: Neue Zeilen fügen Sie mit .Rows.Add <\/b>hinzu; die Formatierungen der jeweils letzten Zeile werden dabei automatisch mit übernommen.<\/p>\n Der Zugriff auf die Tabellenzellen erfolgt mit .Cell(Zeile, Spalte)<\/b>.<\/p>\n Tabelle selbst gemacht<\/b><\/p>\n Falls Sie eine Tabelle ohne Vorlage komplett per Code erstellen wollen, ändert sich nicht viel. Die folgende Anweisung fügt eine Tabelle mit zwölf Zeilen und drei Spalten im Bereich wdRng <\/b>ein:<\/p>\n Natürlich müssen Sie jetzt die gesamte Formatierung mit Schattierungen und Rahmenlinien per Code vornehmen: Wie das aussieht, zeigt das Beispiel aus Listing 4.<\/p>\n Listing 4: Formatieren einer Tabelle per Code<\/p>\n Row <\/b>und Column <\/b>weisen eine Cells<\/b>-Eigenschaft auf, die mit einem Index die Zellen in einer Zeile oder Spalte nummeriert. Das Table<\/b>-Objekt hingegen besitzt eine Cell<\/b>-Eigenschaft, die mit zwei Indizes die Zellen aus Sicht der Tabelle adressiert. Der Rest des Codes dürfte bei den Englisch-Kenntnissen, über die ein Entwickler zwangsläufig verfügt, selbsterklärend sein.<\/p>\n überraschend ist für den Datenbänkler wohl in erster Linie die abstrus wirkende Schachtelung der Objekte, die aber, wenn man etwas darüber nachdenkt, vor dem Hintergrund der Erfordernisse einer Textverarbeitung durchaus ihren Sinn hat. Immerhin lernt man so bei der Word-Programmierung auch zehnfach geschachtelte With<\/b>-Anweisungen zu schätzen.<\/p>\n Verwenden von AutoText<\/b><\/p>\n Sie werden längere Textstücke wahrscheinlich ungern in der Datenbank pflegen wollen. Noch weniger erfreulich wäre das Ablegen im Quellcode: Wenn ein Benutzer eine änderung einer Phrase wünschte, müsste die Anwendung geändert werden mit allen organisatorischen Folgen. Mit Blick auf das Qualitätsmanagement eine unhaltbare Vorgehensweise.<\/p>\n Word sei dank, gibt es dafür Autotexte, die Benutzer problemlos selbst verwalten und ändern können. Diese Autotexte sind natürlich auch per Code zugänglich. Dazu müssen Sie nur Folgendes wissen: Word speichert Autotexte nicht in Dokumenten, sondern in Dokumentvorlagen (Templates, Endung .dot). Jedes Dokument basiert auf einer solchen Vorlage; falls nichts anderes bestimmt wurde, handelt es sich dabei um die Vorlage Normal.dot<\/b>.<\/p>\n Den Verweis auf die mit Ihrem Dokument verbundene Vorlage bekommen Sie mit folgenden Anweisungen:<\/p>\n Mit diesem Objektverweis haben Sie dann Zugriff auf die in der Vorlage abgelegten Autotexte mit diesem Code:<\/p>\n Natürlich müssen Autotexte mit diesen Namen auch angelegt sein! Wenn die Autotexte gleich benannt sind wie die Textmarken, die sie aufnehmen sollen, erhöht dies die übersicht. In jedem Fall können Sie die Namen frei vergeben.<\/p>\n Die Beispielanwendung<\/b><\/p>\n Zu diesem Artikel finden Sie eine kleine Demo-Anwendung mit lauffähigem Code. Da es in diesem Artikel in erster Linie um die Verwendung von Word für Ausgaben geht, liegt der Fokus natürlich nicht auf der Präsentation eines vollständigen, sauber normalisierten Warenwirtschaftssystems.<\/p>\n Das verwendete kleine Tabellenmodell wird in keiner Weise einer ordentlichen Rechnungsverwaltung gerecht. <\/p>\n Mit Absicht wurde im Code auch auf jedwedes Drumherum mit Objektkapselung, ausgefeilten Error-Handlern, exotischen Performance-Optimierungen und abstrusen API-Funktionen verzichtet.<\/p>\n Der didaktische Anspruch besteht darin, einen Einblick in den Umgang mit den Word-Objekten zu geben und nicht, diese in einem Wald von Techniken zu verstecken, die interessant sein mögen, aber mit dem eigentlichen Thema nichts zu tun haben.<\/p>\n Ebenfalls aus didaktischen Gründen arbeitet das Beispiel konsequent mit Early-Binding – also mit einem direkten Verweis auf die Word-Bibliothek im VBA-Projekt.<\/p>\n Die Risiken von Early-Binding sind durchaus diskussionswürdig, zum Lernen ist es durch IntelliSense aber allemal besser geeignet. Wer mit Word erst einmal sattelfest ist, kann seine produktiven Anwendungen jederzeit auf Late-Binding umstellen.<\/p>\n Dabei wird der Verweis auf Word in der Datenbank entfernt und alle Objektvariablen mit Bezug auf die Word-Bibliothek als Object <\/b>deklariert. Konstanten aus der Word-Bibliothek müssen dann außerdem durch ihre äquivalenten Zahlenwerte ersetzt werden.<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Sie haben nun gesehen, wie man eine klassische Rechnung in Word per Code mit Datenbankinhalten füllt. Selbstverständlich können Sie Word auch für weitaus komplexere Aufgaben einsetzen.<\/p>\n Denkbar wäre zum Beispiel ein Rechnungsentwurf in der Art der heute üblichen Telekom-Rechnung, also auf der ersten Seite Anschreiben und Endsumme, auf den Folgeseiten, eventuell hierarchisch gegliedert, die Details in Tabellenform.<\/p>\n Oder Sie möchten vielleicht an Stelle der hier vorgestellten Push-Technik lieber eine Pull-Technik einsetzen, also dem Word-Benutzer Elemente verfügbar machen, mit denen er sich Daten aus einer Datenbank ziehen kann.<\/p>\n All diese Möglichkeiten lassen sich natürlich ebenfalls verwirklichen. Nun haben Sie die ersten Schritte beim Einstieg in den Umgang mit Word-Automation bereits erfolgreich bewältigt.<\/p>\n Enthaltene Beispieldateien:<\/p>\n WordRechnung.mdb<\/p>\n VorlageBriefTab.doc<\/p>\n VorlageElemente.doc<\/p>\n\n\n ![\"Demo.tif\"](\"..\/fileadmin\/_temp_\/2007_04\/WordAutomation_3-web-images\/Demo_opt.jpeg\")
\n <\/div>\n\nAnrede & Chr(11) & Vorname & " " & Name & Chr(11) & Straße & Chr(11) & Chr(11) & PLZ & " " & Ort<\/pre>\n
ParagraphFormat.SpaceBefore = 12\r\nParagraphFormat.SpaceAfter = 6<\/pre>\n
ParagraphFormat.LeftIndent = _\r\nInchesToPoints(2 \/ 2.54)<\/pre>\n
\n
\nDim wdApp As Word.Application\r\nDim wdDoc As Word.Document, wdDocDummy As Word.Document\r\nDim tDoc As String\r\ntDoc = "Pfad\\und\\Name.doc"\r\nSet wdDocDummy = CreateObject("Word.Document")\r\nSet wdApp = wdDocDummy.Application\r\nSet wdDoc = wdApp.Documents.Add(tDoc)\r\nwdDocDummy.Close<\/pre>\n<\/p><\/div>\nActiveWindow.View.ShowBookmarks = [True|False]<\/pre>\n
With wdDoc.Bookmarks("Test")\r\n .Range.Text = "Erstens"\r\n .Range.Text = "Zweitens"\r\n .Range.Text = "Drittens"\r\nEnd With<\/pre>\nI Erstens\r\nI ZweitensErstens\r\nI DrittensZweitensErstens<\/pre>\n
.Range.Text = "Erstens"<\/pre>\n
Erstens<\/pre>\n
.Range.Text = "Zweitens"<\/pre>\n
'[]-Bookmark retten\r\nSet wdRng = _\r\nwdDoc.Bookmarks("Test").Range\r\nwdRng.Text = "Irgendwas"\r\nwdDoc.Bookmarks.Add "Test", wdRng<\/pre>\nIf wdDoc.Bookmarks.Exists("Test") _\r\n Then ...<\/pre>\n\n\n\n
\n \n \n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n<\/td>\n<\/tr>\n \n \n<\/td>\n \n <\/td>\n<\/tr>\n \n \n \n ![\"Briefkopf.tif\"](\"..\/fileadmin\/_temp_\/2007_04\/WordAutomation_3-web-images\/Briefkopf_opt.jpeg\")
\n <\/div>\n\n\n ![\"Textmarken.tif\"](\"..\/fileadmin\/_temp_\/2007_04\/WordAutomation_3-web-images\/Textmarken_opt.jpeg\")
\n <\/div>\n\n\n ![\"TabelleGanz.tif\"](\"..\/fileadmin\/_temp_\/2007_04\/WordAutomation_3-web-images\/TabelleGanz_opt.jpeg\")
\n <\/div>\n\n\n ![\"Rest.tif\"](\"..\/fileadmin\/_temp_\/2007_04\/WordAutomation_3-web-images\/Rest_opt.jpeg\")
\n <\/div>\n\nSet wdRng = _\r\nwdDoc.Bookmarks("Anschrift").Range\r\nwdRng.Text = PLZOrt\r\nwdRng.Font.Bold = True\r\nSet wdRng = _\r\nwdDoc.Bookmarks("Anschrift").Range\r\nwdRng.Text = Adresse\r\nwdRng.Font.Bold = False<\/pre>\nwdDoc. _\r\nBookmarks("Betreff").Range.Text = _\r\n"Rechnung Nr. 2007\/12345"<\/pre>\n\nSet wdRng = .Bookmarks("Nachtext").Range\r\nwdRng.Text = _\r\n "Bitte überweisen Sie den Endbetrag auf das Ihnen bekannte Konto." & _\r\n vbCrLf & _\r\n "Beachten Sie hierbei die vereinbarten Zahlungsbedingungen für Skonti."\r\nwdRng.Paragraphs(1).Range.ParagraphFormat.SpaceBefore = 6<\/pre>\n<\/p><\/div>\nSet wdTab = wdDoc.Tables(2)<\/pre>\n
Set wdTab = .Bookmarks("Tabelle").Range.Tables(1)<\/pre>\n\nSet rst = CurrentDb.OpenRecordset(SQL)\r\nrst.MoveLast\r\nn = rst.RecordCount\r\nrst.MoveFirst\r\nWith wdTab\r\n For i = 2 To n + 1\r\n .Cell(i, 1).Range.Text = "" & rst.Fields("Bezeichnung"). _
Value\r\n Anzahl = Nz(rst.Fields("Anzahl").Value, 0)\r\n .Cell(i, 2).Range.Text = Anzahl\r\n Einzelpreis = Nz(rst.Fields("Preis").Value, 0)\r\n .Cell(i, 3).Range.Text = Format$(Einzelpreis, "#,##0.00 €")\r\n Gesamtpreis = Anzahl * Einzelpreis\r\n .Cell(i, 4).Range.Text = Format$(Gesamtpreis, "#,##0.00 €")\r\n Summe = Summe + Gesamtpreis\r\n rst.MoveNext\r\n .Rows.Add\r\n Next i\r\n .Cell(n + 2, 1).Range.Text = "Zwischensumme"\r\n .Cell(n + 2, 4).Range.Text = Format$(Summe, "#,##0.00 €")\r\n .Rows(n + 2).Range.Font.Italic = True\r\n .Rows.Add\r\n .Cell(n + 3, 1).Range.Text = "Mehrwertsteuer 19 %"\r\n .Cell(n + 3, 4).Range.Text = Format$(Summe * 0.19, "#,##0.00 ")\r\n .Rows.Add\r\n .Cell(n + 4, 1).Range.Text = "Endsumme"\r\n .Cell(n + 4, 4).Range.Text = Format$(Summe * 1.19, "#,##0.00 €")\r\n .Rows(n + 4).Range.Font.Italic = False\r\n .Rows(n + 4).Range.Font.Bold = True\r\nEnd With<\/pre>\n<\/p><\/div>\nSet wdTab = _\r\n wdDoc.Tables.Add(wdRng, 12, 3)<\/pre>\n
\nWith wdTab\r\n With .Rows(1)\r\n With .Borders(wdBorderBottom)\r\n .LineStyle = wdLineStyleDouble\r\n .Color = wdColorBlack\r\n End With\r\n With .Shading\r\n .BackgroundPatternColor = wdColorGray50\r\n End With\r\n .Cells(3).Range.ParagraphFormat.Alignment = wdAlignParagraphRight\r\n End With\r\n For i = 2 To 12\r\n With .Rows(i)\r\n With .Borders(wdBorderBottom)\r\n .LineStyle = wdLineStyleSingle\r\n .LineWidth = wdLine-Width100pt\r\n .Color = wdColor-Gray50\r\n End With\r\n .Cells(3).Range.ParagraphFormat.Alignment = wdAlignParagraphRight\r\n End With\r\n Next i\r\n With .Columns(1)\r\n With .Borders(wdBorderLeft)\r\n .LineStyle = wdLineStyleSingle\r\n .LineWidth = wdLine-Width100pt\r\n .Color = wdColorGray50\r\n End With\r\n End With\r\n With .Columns(3)\r\n With .Borders(wdBorderRight)\r\n .LineStyle = wdLineStyleSingle\r\n .LineWidth = wdLine-Width100pt\r\n .Color = wdColorGray50\r\n End With\r\n End With\r\nEnd With<\/pre>\n<\/p><\/div>\n
Dim wdDot As Word.Template\r\nSet wdDot = wdDoc.AttachedTemplate\r\n'für mit dem Dokument verbundene Vorlage\r\nSet wdDot = wdApp.NormalTemplate \r\n'für Standard-Vorlage Normal.dot<\/pre>\n
wdDot.AutoTextEntries("Vortext").Insert _
wdDoc.Bookmarks("Vortext").Range\r\nwdDot.AutoTextEntries("Nachtext").Insert _
wdDoc.Bookmarks("Nachtext").Range<\/pre>\nDownloads zu diesem Beitrag<\/h3>\n