Office中国论坛/Access中国论坛

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

作者: joyark 时间: 2005-10-23 20:43
标题: [求助]在Excel指定打開Word文件的宏寫法(問題以解決)
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编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)