Gruppe
Extern
Problem
Wie kann ich aus Excel heraus Word mit einem bestimmten Dokument laden und ein dort befindliches Makro starten?
ClassModule: Tabelle1
Private Sub cmdWordMakro_Click()
Call WDTest
End Sub
StandardModule: basMain
Sub WordTest()
Dim appWord As Object
Dim sFile As String
sFile = Range("B1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Word-Dokument wurde nicht gefunden!"
Else
Set appWord = CreateObject("Word.Application")
appWord.Documents.Open sFile
appWord.Run "Project.Modul1." & Range("B2").Value
appWord.Quit
Set appWord = Nothing
End If
End Sub