'首先要在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