1、在VB的“工程”->“引用”中引用“Microsoft Word 9.0 Object Library
Private Sub Command1_Click()'打开指定的Word文件
Dim wdApp As Word.Application
Dim aDoc As DocumentSet wdApp = New word.Application
Set aDoc = wdApp.Documents.Open(FileName:=“你要打开的Word文件路径及文件名”)
wdApp.Visible = True’设置Word对象可见
End Sub
aDoc.Close’关闭文件
wdApp.Quit’退出Word程序
Set aDoc = Nothing