Beitrag aus SmartTools Access Weekly
Text per VBA in ein Word-Dokument einfügen
Access 365 2024 2021 2019 2016 2013 2010
FRAGE In einem Formular meiner Access-Datenbank soll per Mausklick auf eine Schaltfläche der Text aus dem Memofeld des aktuellen Datensatzes in ein Word-Dokument an der aktuellen Cursorposition eingefügt werden können. Am besten wahlweise an der aktuellen Cursorposition eines bereits geöffneten Dokuments oder in ein neues Word-Dokument. Wie lässt sich seine solche Funktion per VBA in Access 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.