Microsoft Word Kontrolü

public class form1


Dim objdocument As Object


    Dim objword As Object 'word programı





    


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        objdocument = objword.documents.add()


        objword.visible = True





    End Sub





    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


        Try


            objdocument.close()


            objword.quit()


            objdocument = Nothing


            objword = Nothing


        Catch


            MsgBox("Önce belge açmanız gerekiyor!")


            Exit Sub


        End Try


    End Sub





    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click


        Try


            objdocument.save()





        Catch


            MsgBox("Önce belge açmanız gerekiyor!")


        End Try


    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        objword = CreateObject("Word.Application")





    End Sub