Question

我在WORD里面新建了一个BUTTON控件，想实现点击它就打开指定的excel文档。请问怎么实现。

我在WORD里面新建了一个BUTTON控件，想实现点击它就打开指定的excel文档。请问怎么实现。

Answer 1

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 'API ShellExecute的声明

Private Sub CommandButton1_Click()
ShellExecute 0&, "open", "D:\ddr.xls", vbNullString, vbNullString, 1
End Sub
D:\ddr.xls就是你要打开的文件，你改一下。
此方法可以打开任何文件。

追问

在调试的时候可以，为什么回到WORD里面点击控件不能打开文档呢？谢谢

追答

我已测试过才发上来的没有问题
你在仔细看看哪里有错没
全复制，粘贴啊
如果按扭是在设计模式下点击是没有用的。你必须在退出退计模式。

Answer 2

将BUTTON控件建立超链接吧！链接到你要打开的EXECL文档...