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





پاسخ با نقل قول