Microsoft Access Programmierrezepte

R11.5 Ein Word-Dokument per OLE öffnen

Aufgabe

Eine bestehendes Word-Dokument soll per OLE geöffnet werden, um gegebenenfalls per OLE-Automation weitere Daten zu übergeben.

Lösung

Verwenden Sie die GetObject-Methode und übergeben Sie den vollständigen Dateinamen.

Oberfläche

Lediglich ein Textfeld und eine Befehlsschaltfläche sind für den Test erforderlich.

Quellcode

Option Explicit

Initialisieren des Textfeldes:

Private Sub Form_Load()
  Text2.value = Application.CurrentProject.Path & "\Test.doc"
End Sub

Öffnen eines Word-Dokuments per OLE-Automation:

Private Sub Befehl9_Click() Dim Word As Object Set Word = GetObject(Text2.value) If Not Word Is Nothing Then ' Arbeiten mit dem Word-Objekt ... Word.Application.Visible = True Set Word = Nothing End If End Sub ...