如何打开Word文档？

Question

先引用word
Dim wordApp As New Word.Application
Dim wordDoc As New Word.Document
Set wordDoc = wordApp.Documents.Open("c:\file1.doc")

Answer 1

在工程－引用中加入Microsoft Word 9.0 object library(office2000是9.0)
Dim oWord As Object 
Set oWord = CreateObject("Word.Application") 
oWord.Documents.Open ("c:\file1.doc") 
oWord.Visible = True 

Answer 2

方法一:已知word路径Private Sub Command1_Click()
  Shell "winword.exe c:\file1.doc", vbNormalFocus
  Dim retval As Long
  retval = Shell("D:\Program Files\Microsoft Office\Office10\winword.exe c:\file1.doc", vbNormalFocus)
  Shell "start winword.exe c:\file1.doc"
End Sub

Answer 3

方法二:
  Shell "start winword.exe c:\file1.doc"

Answer 4

dim app as new word.application
app.document.open filename="c:\file1.doc"
app.visible=true

Answer 5

方法三:
  Shell "start c:\file1.doc"

Answer 6

方法五
ShellExecute 0, "open", "c:\file1.doc", vbNullString, vbNullString, 3

Answer 7

方法一的Shell "winword.exe c:\file1.doc", vbNormalFocus这句应删掉
Private Sub Command1_Click()
  Shell "winword.exe c:\file1.doc", vbNormalFocus
  Dim retval As Long
  retval = Shell("D:\Program Files\Microsoft Office\Office10\winword.exe c:\file1.doc", vbNormalFocus)
  Shell "start winword.exe c:\file1.doc"
End Sub