Beitrag aus SmartTools Access Weekly
Text per VBA in Word-Dokument einfügen
Access 365 2024 2021 2019 2016 2013 2010s
FRAGE Es gibt immer wieder Situationen, in denen ich Informationen aus meiner Access-Datenbank nach Word übernehmen möchte. In einem Formular soll nun zum Beispiel per Klick auf eine Schaltfläche der Text aus dem Memofeld des aktuellen Datensatzes an der aktuellen Cursor-Position in das gerade geöffnete Word-Dokumente eingefügt werden können. Wie lässt sich seine solche Funktion per VBA realisieren?
Diverse Anfragen
ANTWORT Richten Sie zunächst in der VBA-Entwicklungsumgebung unter Extras-Verweise eine Referenz auf "Microsoft Word x.x Object Library ein. Um Text in das aktuell in Word geöffnete Dokument an der momentanen Cursor-Position einzufügen, verwenden Sie folgende Anweisungen:
Dim objWord As Word.Application
Set objWord = GetObject(, "Word.Application")
objWord.Selection.TypeText strVariableMitDemText
Um den Text hingegen in ein neues, leeres Dokument zu schreiben, verwenden Sie folgende Anweisungen:
Dim objWord As Word.Application
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Add
objWord.Selection.TypeText strVariableMitDemText
Mit "GetObject()" wird eine Referenz auf die aktuelle Word-Instanz ermittelt bzw. mit "CreateObject()" Word gestartet, "TypeText <Variable>" fügt den Text an der aktuellen Cursor-Position ein. "Documents.Add" legt ein neues Dokument an und mit "Visible = True" wird Word angezeigt, damit der Text bearbeitet werden kann.