技巧

热门文章

最新文章

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

VBA基础

在VB应用程序中单击按钮打开word文档

Option Explicit 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top>Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _ 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _ 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top>Private Sub Command1_Click() 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> ShellExecute Me.hwnd, "open", "c:a.doc", vbNullString, vbNullString, 3 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top>End Sub 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top>Private Sub Command2_Click() 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> Dim WordApp As Word.Application 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> Set WordApp = New Word.Application 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> WordApp.Documents.Add ("c:a.doc") 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> WordApp.Visible = True 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top> Set WordApp = Nothing 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top>End Sub 500)this.width=500}" alt="" src="/upload/old/allimg/101019/1305052951-0.gif" align=top>
发布人:郑家龙-网络  
分享到：
点击次数：  更新时间：2009-02-09 08:41:48  【打印此页】  【关闭】
上一条：自动填充系统当月的月初日期与月末日期  下一条：在指定的分区中搜索某个文件并获得文件路径的函数


相关文章

热门文章

热门产品