'首先要在vba中引用Microsoft Word 11.0 Object Library
Dim Wdapp As Word.Application
Dim WdDocument As Word.Document
Dim UserFile As String
Private Sub CommandButton1_Click()
Set Wdapp = New Word.Application
UserFile = Wdapp.Path & "\1.doc"
Set WdDocument = Wdapp.Documents.Open("c:\1.doc")
Wdapp.Visible = True
End Sub