Bu örneğimizde yeni belge açma, kaydetme, kapatma olaylarını yapalım ve hata kontrolünü de ekleyelim. Çünkü eğer bir belge açılamadı ise kayıt ya da kapatma olayını yapmaya kalktığımızda hata verecektir. Form üzerine 3 adet button nesnesi ekleyelim. Kod olarak da aşağıdaki satırları yazalım.
Public Class Form1
Dim objWord As Object 'word programı
Dim objDocument As Object
Private Sub cmdyenibelge_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdyenibelge.Click
objDocument = objWord.Documents.Add 'yeni word belgesi açıyoruz.
objWord.Visible = True 'word programını görünür hale getiriyoruz.
End Sub
Private Sub cmdbelgekapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbelgekapa.Click
Try
objDocument.Close() 'word belgesini kapat
objWord.Quit() 'word uygulamasını kapat
objDocument = Nothing 'word belgesini bellekten sil
objWord = Nothing 'word uygulamasını bellekten sil
Catch ‘oluşan hatayı yakalıyoruz
MsgBox("Önce belge açmanız gerekiyor")
Exit Sub ‘hata durumunda alt programdan çıkıyoruz
End Try
End Sub
Private Sub cmdkaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkaydet.Click
Try
objDocument.save() 'belgeyi kaydet
Catch
MsgBox("Önce belge açmanız gerekiyor")
Exit Sub
End Try
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
objWord = CreateObject("Word.Application") 'yeni word uygulaması oluşturuyoruz.
End Sub
End Class