在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 【打印此页】【关闭】

上一条：自动填充系统当月的月初日期与月末日期下一条：在指定的分区中搜索某个文件并获得文件路径的函数