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