收录日期:2018/10/22 22:45:51 时间: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

如何将字符串分割成数组? form认证,怎样设置才可以让指定用户...... Delphi使用formula One6 出现大麻烦了! 关于按CTRL—ENTER和ENTER提交表单的问题 请大家推荐个磁盘碎片清理的软件吧~ 请教:有没有办法不用iframe能达到iframe的效果 100分求一个排列组合的方案?多谢! 紧急求助~谁会用vb编写一元线性回归模拟 不管怎样都启动不了系统,安全模式也进入不了,然后就是重新启动。如此循环 对一个十六位的数组求绝对值后平均值的问题?请高手指教? 招聘php程序员(上海,4.5k) 本人初学C++,做一个C++primer的课后习题,搞了半天还是不能通过测试,好心的帮我看一下原因。 请问如何使用itext向已有pdf模版中写入数据呢 smarty 上传时的问题,急!!! 急.我取出了一个记录集,RS怎么样循环输出每行四个td. 只有450K的搜索软件,完全基于javascript,支持无刷新.欢迎大家测试,同时也希望和大家一起讨论 网页打开word文件 Url里“%”、“$”是作什么用的 初学JAVA,关于JDBC连接MYSQL的问题,请帮忙看看 求助!如何决断记录是否已经存在? 如何安装第三方控件 简单问题 求助 入门及题目 JBuilder 9 调试jsp出错,请大家帮忙解决。谢谢! 有关谁用过Mbedthis AppWeb?进来一下好吧 请版主过来看看,我一项遵纪守法,不知道为什么扣我两点信誉分。这对我来说非常的委屈。我不服! ::::::::::::::::::::::::::::南方舞厅:::::::::::::::::::::::::::: 关于RadioButtonList 的问题,大哥们请进,帮帮我吧 奇怪的问题 某大学BBS上的迷语。