打开Word文档

何保辛　发表于：2012-08-23 07:04:15 　

继彪 2012/8/23 0:37:13
你好。请教个问题。还望有空指教。

就是ACCESS里有字段为“编号”的一项，文件夹里存有和编号对应的WORD文档，如：（d:\word\1.doc）在ACCESS的窗体中添加命令按钮，如何编代码，打开对应编号的WORD文档？如：在第一条记录中打开对应的1.doc，在第二条记录中打开对应的2.doc文件。谢谢！

Top

叶海峰发表于：2012-08-23 08:25:38

Sub OpenDoc()

Dim obj As Object
Dim filename As String

On Error Resume Next
filename = me.编号

Set obj = CreateObject("word.application")

obj.Visible = True
obj.Documents.Open (filename)

End Sub

Top

心态哥发表于：2012-08-23 11:56:04

学习了！

Top

dbaseIIIer 发表于：2012-08-23 19:41:30

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

Sub OpenAnyDoc(n)
Call ShellExecute(Application.hwnd, "Open", n, vbNullString, vbNullString, 5)
End Sub

我就习惯这个方法多一点，因为我们尊重用户有自己喜欢的 office 软件，或者根本就没安装 MS Office，只有 OpenOffice, KMS Office 等！

Top

wyh99999 发表于：2012-08-23 21:06:15

示例供你参考：点击下载此附件

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

打开Word文档