VB6调用OFFICE，生成EXE文件运行后提示安装OFFIEC组件

VB6中用SHELL调用WORD（及EXCEL）打开一个文件。 在VB环境中运行时，正常打开文件；VB编译生成的EXE文件，每次调用WORD（及EXCEL）时，在打开OFFICE界面后提示安装（WORD或EXCEL）功能，取消安装功能或安装完成均能打开文件。请问什么原因造成的，如何解决？
（重新安装过OFFICE及VB，重装事重新生成EXE文件，问题未能解决）
VB代码：
path$ = "d:\Program Files\Microsoft Office\OFFICE11" （OFFICE2013的安装路径）

Shell path$ & "\" & "winword.exe D:\A\1.doc", 3
谢谢！

以上问题出现在重新安装XP系统之后。
重新系统前，编译后的软件可正常调用（称为“原编译文件”）。重新安装XP后，使用原编译文件也正常，后由于杀毒，破坏了原编译文件。进入VB，打开源程序，未做任何修改，重新生成新编译文件。新编译文件就产生了上面的问题。
pivotstar提供的方法，由于本人水平有限，未能解决问题。

没办法，重新做了XP系统。

遇到过相同的问题，真正原因我没去探讨，但是介绍你另外一个可行的开启方法。

在工程里添加 引用 Microsoft Word 11.0 Objects Library 对象
然后VB建立该对象的引用。
Dim WordApp As New Word.Application
Dim WordDoc As New Word.Document
使用
WordApp.Visible = True '少了这行，word开启后，是隐藏窗口的
Set WordDoc = WordApp.Documents.Open("D:\A\1.doc") '就能正常开启文件
如果不再从代码里控制开启的文件内容，那么记得最后的代码要填上
Set WordDoc = Nothing '释放物件对象
Set WordApp = Nothing '释放物件对象
代码修改一下，Excel也是一样的方法。

没看懂什么意思？