Imports Word 
 
' 
'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html
' /output/F1/D4/S5A916.asp 
'http://support.microsoft.com/default.aspx?scid=kb;de;306682 
'http://www.galileocomputing.de/openbook/vb_net/msvb080004.htm#Rxxmsvb080004464
' WordFormularesteuern 
' 
Dim ReportLocation As String = "C:\Dokumente und Einstellungen\Admin\Eigene" & _
  "Dateien\Dr.doc" 
' 
Dim m_wdApp As New Word.ApplicationClass 
m_wdApp = CreateObject("Word.Application") 
' 
Dim m_wdDatei As Word.Document 
' 
m_wdDatei = m_wdApp.Documents.Open(ReportLocation) 
' 
m_wdDatei.Select() 
' 
Dim Name As String 
' 
Name = "Besitzer_Anrede" 
If m_wdDatei.Bookmarks.Exists(Name) = True Then 
m_wdDatei.FormFields().Item(Name).Result = "TesTexT (Herr / Zauberer ...)" 
End If 
' 
Name = "Besitzer_Name" 
If m_wdDatei.Bookmarks.Exists(Name) = True Then 
m_wdDatei.FormFields().Item(Name).Result = "TesTexT (Potter Harry)" 
End If 
' 
Name = "Besitzer_AdresseStra" 
If m_wdDatei.Bookmarks.Exists(Name) = True Then 
m_wdDatei.FormFields().Item(Name).Result = "TesTexT (Gryffindor 111)" 
End If 
' 
Name = "Besitzer_AdresseOrt" 
If m_wdDatei.Bookmarks.Exists(Name) = True Then 
m_wdDatei.FormFields().Item(Name).Result = "TesTexT (11111 Hogwards)" 
End If 
' 
m_wdApp.Visible = False 
'm_wdDatei.SaveAs(NewReportLocation ) 
' 
m_wdDatei.PrintOut(False) 
m_wdApp.Documents.Close(Word.WdSaveOptions.wdDoNotSaveChanges) 
' 
m_wdApp.Quit() 
'