Imports Microsoft.Office.Interop
Public Class Window3
Private Property PrintDialog As PrintDialog
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click
Dim W As New Word.Application()
My.Computer.FileSystem.WriteAllText("C:test.docx" , String.Empty, False)
Dim dokuman As Word.Document = W.Documents.Open("C:test.docx")
dokuman.Range(0, 0).Text = TextBlock1.Text
W.Visible = True
End Sub

__________________