在VB应用程序中单击按钮打开word文档_access模块-access类模块-access函数-access VBA

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

时间：2009-02-09 08:41 来源：网络作者：郑家龙阅读：次

Option Explicit

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

Private Sub Command1_Click()

ShellExecute Me.hwnd, "open", "c:a.doc", vbNullString, vbNullString, 3

End Sub

Private Sub Command2_Click()

Dim WordApp As Word.Application

Set WordApp = New Word.Application

WordApp.Documents.Add ("c:a.doc")

WordApp.Visible = True

Set WordApp = Nothing

End Sub

(责任编辑：admin)

顶一下

(1)

100%

踩一下

(0)