' 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
  .Documents.Open sWordFilename
 
  ...
 
  ' nach getaner Arbeit, Word wieder beenden
  .Application.Quit
End with
Set wApp = Nothing