收录日期:2019/01/20 03:14:25 时间: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

新时代的两个凡是 求:桃心曲线轨迹方程或者方法也行,如果知道的多加分 请问这个程序输出的时候有问题是怎么回事呢? 送分了.进来接分 为什么这里64=65 求嵌入式sql开发的资料 算命的骗人 这人气高,就放这吧 程序员想提高英语水平,怎么办? ASP.NET Session存储 Disallowed Key Characters 关于__mod_timer函数(linux/kernel/timer.c中定义的)的问题 在网页上面 显示什么是个的图片最快? 在excel 2003 插入=,excel崩溃怎么办? myeclipse6.5+struts1.2+hibernate插入数据出错 Java 正则表达式问题 触控音乐------5800XM再降更实惠!! 谁详细解释下每一句代码,谢谢 请问怎样将如下Indy9的代码改为Indy10(DoRequest,ReadBuffer)重分感谢! [LaoWu_]之前的有分,大家速度哦。 标签表多对多!类似于58同城网的标签表如何去设计? JS获取当前年份出现错误??? 无限级信息查询 一个处理宝宝照片太多的好方法 cookie操作 【学习问题】-414.5223怎么转换16进制有如何转回去的,请老师高手指点下 ocx退出怎么收不到WM_Destory消息 【学习汇编问题】我们老师出的题目!-414.5223怎么转换16进制有如何转回去的,请老师高手指点下 实现百叶窗 在窗体左侧实现单击按钮 上下移动 [momonn]之前的有分,大家速度啊。