作者：乔山办公网日期：
返回目录：excel表格制作
没明白 什么是 磁盘下启动EXCEL
如果是 用窗体交互 预览的话，建议把预览的 代码卸载 窗体加载事件中，或者在窗体上放一个按钮，把代码放在按钮 点击事件中
在EXCEL窗体，CommandButton1中输入代知码：
Private Sub CommandButton1_Click()
Dim wordapp As New Word.Application
Dim worddoc As New Word.Document
Set wordapp = CreateObject("Word.Application")
wordapp.Visible = True
Set worddoc = wordapp.Documents.Open(ThisWorkbook.Path & "\123.docx")
MsgBox "文件已打开，名字为道：" & worddoc
End Sub
如果打开会提示专“文件已打开，名字为123.doc”
操作前把这个引用起属：
有测试附件，你可以试一下；
'首先来要在源vba中引zhidao用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
其他的你应该知道百吧，建个宏，中度间输知入代码
ActiveWindow.SelectedSheets.PrintPreview'打印预览
Activeworkbooks.printout'打印
就OK了，其道实内很多都可以从录制宏学容到的。