Die meisten Druckerzeugnisse werden im Access in Form der Berichte erzeugt. Die Berichte weisen aber einen Nachteil auf, der Anwender kann in der Regel die Texte in den Berichten nicht \u00e4ndern. Besteht die Notwendigkeit, die Texte variabel zu halten, so ist die Idee nett, die Daten der Datenbank an eine Word Vorlage zu \u00fcbergeben.<\/p>\n
Im Rahmen einer VBA L\u00f6sung erzeugen wir eine Variable in Form eines Objektes.<\/p>\n
Dim objWordApp As Object<\/pre>\nDiese Variable f\u00fcllen wir mit einer Word Instanz<\/p>\n
Set objWordApp = CreateObject(\"Word.Application\")<\/pre>\nDie Vorlage, die verwendet werden soll, wir in eine String Variable gepackt.<\/p>\n
vVorlagenPfad = \"H:\\RAMSES\\Vorlagen\\Rechnung.dotx\"<\/pre>\nWir erzeugen nun eine neue Datei auf Basis der Vorlage<\/p>\n
objWordApp.Documents.Add Template:=vVorlagenPfad<\/pre>\nBedingung f\u00fcr die Daten\u00fcbergabe ist nun, das es in der Worddatei Textmarken gibt, die wir mit der Methode GoTo anspringen k\u00f6nnen.<\/p>\n
Set Bereich = objWordApp.ActiveDocument.GoTo(What:=GotoBookmark, Name:=\"Strasse\")\r\nBereich.InsertAfter vStrasse\r\n\r\nSet Bereich = objWordApp.ActiveDocument.GoTo(What:=GotoBookmark, Name:=\"Ort\")\r\nBereich.InsertAfter vOrt<\/pre>\nIn diesem Fall springen wir zum einen die Textmarke Strasse sowie die Textmarke Ort an und \u00fcbergeben den Inhalt entsprechender
\nVariablen.<\/p>\nSomit steht einer flexiblen Nutzung der Daten aus der Datenbank nichts mehr im Wege.<\/p>\n
Fragen?<\/h3>\n
Das k\u00f6nnte auch Sie interessieren? Dann schauen Sie doch einmal hier ?<\/p>\n