我想设计一个按钮,一按就能运行一个指定的WORD文件,这怎么实现啊,请高手指教.

Private Sub Command1_Click()
   Shell "要打开的 WORD 文件名(包括路径)", vbNormalFocus
End Sub

不行啊,不能运行.

Private Sub Command1_Click()
   Shell "要打开的 WORD 文件名(包括路径)"
End Sub
这样可以吗?
如果还是不行就要用 API 函数 ShellExecute。这个函数要用 VB6 自带的 API 浏览器才能看到。

此代码在窗体中使用，之前在vb的“工程”菜单“引用”里一定要选择
Microsoft Word 9.0 Object Library这个exe控件前面复选打勾即可。
注E:\w.doc为文件路径这里是作为例子写的，把这个换成你要打开的doc文档的路径。
Dim wdapp As Word.Application '应用程序word
Dim wddoc As Word.Document '文档
'按钮代码
Private Sub Command1_Click()
  '进入word窗口
  wdapp.Visible = True
  wdapp.Activate
  '在上述窗体中打开word文档
  Set wddoc = wdapp.Documents.Open("E:\w.doc")
End Sub
'窗体Load事件代码。
Private Sub Form_Load()
  Set wdapp = New Word.Application
  '设置word窗体的标题、大小、状态
  wdapp.Caption = "my word"
  wdapp.StatusBar = "how are you......"
  wdapp.Width = 500
  wdapp.Height = 300
End Sub

[此贴子已经被作者于2005-3-19 22:22:08编辑过]

这个是基本上现在少有人用的VBA编程（也就是Word中宏病毒的编程方法），现在这种编程就是编病毒也基本上用处不大。（毕竟这样的宏病毒只有在打开Word文档时才发作，而且现在的杀毒软件基本都能扼杀宏病毒)而且现在平常的程序也很少会有用到这个编程的。

这就可以看出，其实微软的Office不仅是个办公软件，还是个超大型的ActiveX(exe)的控件可以在Vb中引用并使用。

真是感谢啊!!!!