如何創(chuàng)建 打開其他格式文檔的按鈕

求成

本人在Excel中建立了一個(gè)工具欄("優(yōu)秀文檔"),在該工具欄上增加了一個(gè)按扭("小屋"),如何實(shí)現(xiàn)單擊該("小屋")按鈕,就可以打開"小屋"文檔(已存在的word文檔),且以word形式打開

[此貼子已經(jīng)被作者于2005-1-1 8:22:07編輯過]

老鬼

Private Sub Workbook_Open()

    Application.CommandBars("優(yōu)秀文檔").Controls("小屋").OnAction = "aa"

End Sub

Sub aa()

Set wd = CreateObject("word.application")

    wd.Visible = True

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

End Sub