[求助]在Excel指定打開Word文件的宏寫法(問題以解決)

joyark

1.在Excel文件的宏打開Excel文件的

Sub 職位文字()

On Error Resume Next

Dim i%

Dim sh As Worksheet

  Application.ScreenUpdating = False

Workbooks.Open Filename:="D:\常用文字\職位文字.xls"

Windows("職位文字.xls").Activate

Sheets("Sheet1").Select

End Sub

2.在Excel文件的宏打開Word文件如何寫法(請幫忙一寫)

在謝謝各位高手幫忙

3.問題以解決如下

Sub Macro1()

Dim wd As New Word.Application

    wd.Documents.Open ("D:\常用文字\保护文件夹.doc")

    wd.Visible = True

End Sub

需要引用Microsoft word 10.0 object library



如果不引用 Microsoft word 10.0 object library 的话，也可用ollowHyperlink 方法：

ActiveWorkbook.FollowHyperlink "D:\常用文字\保护文件夹.doc", , True

[此贴子已经被作者于2005-10-23 18:54:31编辑过]