绝对路径（假设在d盘）:
Dim wordApp As Object
Set wordApp=CreateObject("Word.Application")
wordApp.Documents.Open "d:\xxxx.doc"
相对路径（假设与此excel在同一路径下）:
Dim wordApp As Object
Set wordApp=CreateObject("Word.Application")
wordApp.Documents.Open ActiveWorkbook.Path & "\xxxx.doc"
wdApp.Visible = True
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024