Re: Word Dokument aus Excel mit Schaltfläche starten?
12.05.2003 10:34:43
Stefan
Hi, kopier einfach mal die Sub in dein Projekt und probiers aus.... du musst aber noch den Zugriffspfad auf deine Datei anpassen.Sub test_open_worddoc()
' Word-Objekt Variable definieren
Dim wApp As Object
' Word-Objekt erzeugen
Set wApp = CreateObject("Word.Application.8")
With wApp
' Word anzeigen
.Application.Visible = True
.Application.Activate
' Word-Dokument laden und anzeigen
sWordFilename = "D:\DATEN_IWM\DOKUMENTE\WORD\Stdbfg17.doc"
.Documents.Open sWordFilename
''' '...
'''
''' ' nach getaner Arbeit, Word wieder beenden
''' .Application.Quit
End With
'''Set wApp = Nothing
End Sub