如何创建 打开其他格式文档的按钮

求成

本人在Excel中建立了一个工具栏("优秀文档"),在该工具栏上增加了一个按扭("小屋"),如何实现单击该("小屋")按钮,就可以打开"小屋"文档(已存在的word文档),且以word形式打开

[此贴子已经被作者于2005-1-1 8:22:07编辑过]

老鬼

Private Sub Workbook_Open()

    Application.CommandBars("优秀文档").Controls("小屋").OnAction = "aa"

End Sub

Sub aa()

Set wd = CreateObject("word.application")

    wd.Visible = True

    wd.Documents.Open "D:\小屋.doc"

End Sub