Dim strText As String=Textbox1.Text
 
Dim word As New Microsoft.Office.Interop.Word.Application
 
        word.Visible = False
 
        Dim doc As Microsoft.Office.Interop.Word.Document
 
        doc = word.Documents.Open("D:\bookmarktest.docx")
 
        doc.Bookmarks("Textmarke1").Range.Text = strText 
 
        doc.PrintOut()
 
        doc.Close(False)
 
        doc = Nothing
        word.Quit()
        word = Nothing

EALA FREYA FRESENA