Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Extern und Word