Tag,
ich möchte aus Access heraus, Word öffnen (Fernsteuerung).
Beim untenstehenden Code wird dieser Fehler ausgegeben:
Fehler beim Kompilieren: Methode oder Datenobjekt nicht gefunden
Dabei wird die Methode Test() in gelb markiert und der Bereich ".GetOpenFilename" wird blau makiert. Das Problem liegt also an der GetOpenFilename-Methode. Kann jemand den Fehler entdecken?
Sub test()
Dim strDocFile As String
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = CreateObject("Word.Application")
strDocFile = Application.GetOpenFilename(FileFilter:="Textdateien (*.docx), *.docx", Title:="Wählen Sie ein Datei")
'With-Block mit Anweisungen für Verhalten des Word-Programms
With wdApp
.Visible = True
.Activate
.WindowState = wdWindowStateNormal
End With
Set wdDoc = wdApp.Documents.Open(FileName:=strDocFile)
End Sub
Kann jemand den Fehler finden?
|