收录日期:2018/05/22 09:18:50 时间:2016/05/20 18:28:23 标签:数据库(包含打印,安装,报表)
我想实现的功能是:在菜单上点击一下,可以跳出一个存放在指定目录下的word文档,可以实现吗?谢谢!
象这样:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long




ShellExecute Me.hWnd, "open", "C:\User.doc", vbNullString, vbNullString, SW_SHOW

这样就可以打开一个Word 文档
     Dim Word As Object
     Dim WorkBook As Object
     Set Word = CreateObject("word.application")
     Set WorkBook = Word.Documents.Open(App.Path & "\" & "help.doc")
     Word.Visible = True
Option Explicit
Private Sub Command1_Click()
    Dim x As Object, xdoc As Object, mytable As Object, c As Object
    Dim i%
    Set x = CreateObject("word.application")   '启动WORD应用程序
    Set xdoc = x.documents.Add                 '新建WORD文档
    x.Visible = True                           '让WORD应用程序可见
    End Sub