Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim FilePath As String
Dim WA As New Word.Application
Dim WF As Word.Document
FilePath = "G:\a001.doc"
WF = WA.Documents.Open(FilePath)
WF.Close()
WA.Quit()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim objWord = CreateObject("Word.Application")
Dim strFileName As String = "G:\b001.doc"
Debug.Write(objWord.Version)
objWord.Documents.Open(strFileName)
End Sub