Beitrag aus SmartTools Access Weekly
Access-Daten in Word einfügen
Access 365 2021 2019 2016 2013 2010
FRAGE Meine Access-Datenbank soll mit Word zusammenarbeiten und Daten übergeben bzw. in ein Dokument einfügen. An einer Stelle setze in einem Adress-Formular zum Beispiel eine Zeichenkette mit der Adresse aus dem aktuellen Datensatz zusammen und möchte diese per Mausklick durch den Anwender in Word an der aktuellen Cursorposition des geöffneten Dokuments einfügen. Wie muss ich an die Übergabe an Word realisieren?
Diverse Anfragen
ANTWORT Setzen Sie zunächst in der VBA-Entwicklungsumgebung unter Extras-Verweise eine Referenz auf "Microsoft Word x.x Object Library. Um Text in das aktuell in Word geöffnete Dokument an der Cursorposition einzufügen, verwenden Sie folgende Anweisungen:
Dim objWord As Word.Application
Set objWord = GetObject(, "Word.Application")
objWord.Selection.TypeText strVariableMitDemText
Mit "GetObject()" ermitteln Sie eine Referenz auf die laufende Instanz von Word. Das Objekt "Selection" adressiert die aktuelle Cursorposition, an der dann mit der Methode "TypeText" der Inhalt der Variablen "strVariableMitDemText" eingefügt wird.
Soll der Text in ein neues Dokument geschrieben werden, sind folgende Anweisungen zu verwenden:
Dim objWord As Word.Application
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Add
objWord.Selection.TypeText strVariableMitDemText
"CreateObject()" startet zunächst eine neue Instanz von Word und legt darin über "Documents.Add" ein neues, leeres Dokument an. Mit der Methode "TypeText" des Objektes "Selection" wird dann wieder der Inhalt der Variablen "strVariableMitDemText" an der aktuellen Cursorposition eingefügt.