نقل قول نوشته شده توسط Mbt925 مشاهده تاپیک
یه نمونه ی ساده براتون نوشتم.

برای استفاده از نمونه ابتدا تیک گزینه ی 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


Microsoft Object Libary پيدا نشد ... نيست