vb如何打开文件word文件

Question

我现在C盘下有个a.doc。我想通过按钮点击事件把这个word文件打开！请问怎么实现？

Answer 1

引用microsoft word 9.0
通用部分声明 Dim doc As DocumentsPrivate Sub Command2_Click()
    Set doc = Documents
    doc.Open "c:\123.doc"
    doc.Application.Visible = True  '将Word 变为可见
    AppActivate doc.Application.Caption  '激活Word
   ' doc.Range.Text = Ctext
End Sub

Answer 2

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
                "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _
                String, ByVal lpszFile As String, ByVal lpszParams As String, _
                ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Command1_Click()
StartDoc = ShellExecute(Scr_hDC, "Open","c:\a.doc", "", "C:\", SW_SHOWNORMAL)
End Sub

Answer 3

Private Sub cmdWord_Click()
    '打开指定的WORD文档
    Dim objApp As Object
    
    Set objApp = CreateObject("Word.Application")
    objApp.Documents.Open "c:/a.doc"
    objApp.Visible = True
End Sub

Answer 4

怎么打开当前文件下的word呢？？
上面的程序代码好象不行

Answer 5

郁闷，你不是说是C盘吗？
当前文件夹的话，改路径呀把"c:\a.doc"改为app.path & "\a.doc"