Public Sub wordrufen()
  ' Word-Objekt Variable definieren
  Dim wApp As Object
  ' Word-Objekt erzeugen
  Set wApp = CreateObject("Word.Application")
  With wApp
    ' Word anzeigen
    .Application.Visible = True
    .Application.Activate
  End With
End Sub