vb调用word的基本问题

Question

请问调用一个已经存在的（“帮助文档"),
dim wdApp as word.application
Set wdApp = New Word.Application
这是新打开的一个word，如何打开一个已经存在
（App.Path & "\cs.doc"),用什么语句呀，谢谢

Answer 1

'定義word引用
    Dim wordApp As New Word.Application
    Dim myDoc As Word.Document    '打開一個word文檔
    Set myDoc = wordApp.Documents.Open(App.Path & "\cs.doc")
    wordApp.Visible = True

Answer 2

到WORD里面录制宏看一下就全知道了!!

Answer 3

'新增一个word文档
    
    Dim wordApp As New Word.Application
    Dim myDoc As Word.Document
    set mydoc = wordapp.documents.add

Answer 4

set wordApp=CreateObject("Word.Application") ''创建word应用程序，这句话打开word应用程序
set wordDoc=wordApp.Documents.Add  ''在打开的应用程序中添加一个新文档With
  .visible=true
  .Active
End With

Answer 5

Dim wordApp As New Word.Application
    Dim myDoc As Word.Document    '打開一個word文檔
    Set myDoc = wordApp.Documents.Open(App.Path & "\cs.doc")
    wordApp.Visible = True
为什么报run-time error  
      automation error
      the message filter indicated that the application is busy我几乎几种方式都试过了，请高手指点，没点击一次，进程就多一各word进程。
我是把这个软件的帮助做到一个word文档里了，希望高手给以指点

Answer 6

Option Explicit
'定義word引用
Private wordApp As Word.ApplicationPrivate Sub Command1_Click()    Dim myDoc As Word.Document
    
    If wordApp Is Nothing Then Set wordApp = New Application
        
        '打開一個word文檔
        Set myDoc = wordApp.Documents.Open(App.Path & "\cs.doc")
        wordApp.Visible = True
    
    Set myDoc = Nothing
    
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)    wordApp.Quit
    Set wordApp = Nothing
    
End Sub

Answer 7

我尝试了这种方法，还是又问题，以前用excel挺方便得呀。
还是报run-time error  
      automation error
      the message filter indicated that the application is busy
然后进程多了一个word进程。
这条语句Set wordApp = New Application又问题，wordapp显示nothing
进程多了一个word后，我用GetObject(,"word.application")就能打开了。但只能打开一次，因为关掉word后，进程里就又没有了。
真是太郁闷了