[求助]在Excel指定打開(kāi)Word文件的宏寫(xiě)法(問(wèn)題以解決)

joyark

1.在Excel文件的宏打開(kāi)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文件的宏打開(kāi)Word文件如何寫(xiě)法(請(qǐng)幫忙一寫(xiě))

在謝謝各位高手幫忙

3.問(wèn)題以解決如下

Sub Macro1()

Dim wd As New Word.Application

    wd.Documents.Open ("D:\常用文字\保護(hù)文件夾.doc")

    wd.Visible = True

End Sub

需要引用Microsoft word 10.0 object library



如果不引用 Microsoft word 10.0 object library 的話(huà)，也可用ollowHyperlink 方法：

ActiveWorkbook.FollowHyperlink "D:\常用文字\保護(hù)文件夾.doc", , True

[此貼子已經(jīng)被作者于2005-10-23 18:54:31編輯過(guò)]