' ...
' Word-Objekt Variable definieren
' Dim wApp As Object
Dim wApp As Word.Application
' Word-Objekt erzeugen
'Set wApp = CreateObject("Word.Application.9")
On Error Resume Next
 
   ' Get existing instance of Word if it exists.
  Set wApp = GetObject(",Word.Application")
 
   If Err <> 0 Then
      ' If GetObject fails, then use CreateObject instead.
      Set wApp = CreateObject("Word.Application")
   End If
 
 
With wApp
  ' Word anzeigen
  wApp.Application.Visible = True
  wApp.Application.Activate
 
' ...
 
     wApp.ActiveDocument.FormFields("xyz").Result = "Text"
 
' ...
 
     wApp.Application.PrintOut (Background), Range:=wdPrintCurrentPage
 
' ...
wApp.Application.Quit
End With
Set wApp = Nothing