DB Feature – Word Übergabe
- Ramftel
- 4 Sep, 2013
Datentransfer nach Word
Die Idee
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 ändern. Besteht die Notwendigkeit, die Texte variabel zu halten, so ist die Idee nett, die Daten der Datenbank an eine Word Vorlage zu übergeben.
Die Umsetzung
Im Rahmen einer VBA Lösung erzeugen wir eine Variable in Form eines Objektes.
Dim objWordApp As Object
Diese Variable füllen wir mit einer Word Instanz
Set objWordApp = CreateObject("Word.Application")
Die Vorlage, die verwendet werden soll, wir in eine String Variable gepackt.
vVorlagenPfad = "H:\RAMSES\Vorlagen\Rechnung.dotx"
Wir erzeugen nun eine neue Datei auf Basis der Vorlage
objWordApp.Documents.Add Template:=vVorlagenPfad
Bedingung für die Datenübergabe ist nun, das es in der Worddatei Textmarken gibt, die wir mit der Methode GoTo anspringen können.
Set Bereich = objWordApp.ActiveDocument.GoTo(What:=GotoBookmark, Name:="Strasse") Bereich.InsertAfter vStrasse Set Bereich = objWordApp.ActiveDocument.GoTo(What:=GotoBookmark, Name:="Ort") Bereich.InsertAfter vOrt
In diesem Fall springen wir zum einen die Textmarke Strasse sowie die Textmarke Ort an und übergeben den Inhalt entsprechender
Variablen.
Somit steht einer flexiblen Nutzung der Daten aus der Datenbank nichts mehr im Wege.
Fragen?
Das könnte auch Sie interessieren? Dann schauen Sie doch einmal hier ?