یه نمونه ی ساده براتون نوشتم.

برای استفاده از نمونه ابتدا تیک گزینه ی Microsoft Object Libary رو از قسمت Refrences ها بزنید.


Dim objWord As New Word.Application

Private Sub Form_Load()

objWord.Documents.Add
objWord.ActiveDocument.Content.Text = "Mbt925 sample text"
objWord.Visible = True
objWord.Activate

End Sub