如何用VB打开word文档

C盘里有一个test.doc文件


我要实现按下一个按纽就能打开这个文档

请问代码该怎么写 谢谢

---

SHELL

---

除了shell呢?

---

学习中~

---

COM

dim wApp as new wordapplication
wapp.open ...
不过，也需要要本机安装word的。

---

wapp.open 好象没有这个方法

楼上是不是写错了

---

Private Sub Command1_Click()
    Dim OWork As Object
    Dim oDoc As Object
   
    Set OWork = CreateObject("Word.Application")
    Set oDoc = OWork.Documents
    oDoc.Open ("g:\erp.doc")
    OWork.Visible = True
    Set OWork = Nothing
End Sub
不过电脑上要装Office任一版本Word软件。

---

VB code:
Option Explicit

Public Sub Main()

Dim strFile$, objShell As Object
strFile = "X:\Temp\文档A.doc"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run strFile

End Sub

调用系统中默认的关联程序打开文档 X:\Temp\文档A.doc 。