' Word-Objekt Variable definieren
Dim wApp As Object
 
' Word-Objekt erzeugen
Set wApp = CreateObject("Word.Application.8")
 
With wApp 
  ' Word anzeigen
  .Application.Visible = false
  .Application.Activate 
 
  ' Word-Dokument laden und anzeigen
  .Documents.Open c:\temp.doc
  .Application.Saveas(c:\temp.doc)
  .Application.Quit
End with
Set wApp = Nothing