'Proje referansları arasına "Microsoft Word Object Library" eklenir.
Private Sub Command1_Click()
Dim objWord As New Word.Application ' Word nesnesi oluşturuluyor
objWord.Visible = True
objWord.********s.Add
With objWord.Selection ' Nesne özellikleri ayarlanıyor
.TypeText Text1.Text
.WholeStory
.Font.Size = 20
.Font.Underline = True
.Font.Italic = False
.Font.Bold = True
.Font.ColorIndex = wdGreen
.HomeKey Unit:=wdStory
End With
Set objWord = Nothing
End Sub
Private Sub Command1_Click()
Dim objWord As New Word.Application ' Word nesnesi oluşturuluyor
objWord.Visible = True
objWord.********s.Add
With objWord.Selection ' Nesne özellikleri ayarlanıyor
.TypeText Text1.Text
.WholeStory
.Font.Size = 20
.Font.Underline = True
.Font.Italic = False
.Font.Bold = True
.Font.ColorIndex = wdGreen
.HomeKey Unit:=wdStory
End With
Set objWord = Nothing
End Sub