Question

vb 调用Word打开文档

我想编一个程序用vb调用word打开doc文档，
但是不同电脑的office安装的位置是不一样的比如说我的电脑是
C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE
其他的电脑就不一样了
所以代码
Private Sub Command1_Click()
Call Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE D:\1.doc", vbNormalFocus)
End Sub
在我的电脑上运行正常 其他的可能就会出现 文件找不到的错误
有没有什么办法解决这个问题
让不同安装位置的word程序可以打开指定位置的word文档
不要搜索的谢谢了

有没有什么办法

Answer 1

思路：读取注册表获得word的安装路径，然后shell命令加参数打开。
简单说一下这个思路：
首先在注册表
[hkey_classer_root]
中查找注册文件类型，我们以.doc为例，那么在[hkey_classer_root]
中可以找到.doc项，查看右边的键，有一个键名为“默认”，其对应键值是【word.document.8】。
利用这个查询结果，在[hkey_classer_root]中重新查找名为【word.document.8】的项，就会发现这项存在子项shell
-
open
-
command，在command项中存一个名为“默认”的键，其键值是【"c:\program
files\microsoft
office\office14\winword.exe"
/n
"%1"】（这里是以我的电脑为例的），这就是打开对应文件的程序路径和参数。
至于vb.net读取注册表，网上有很多示例了，这里不再赘述。

Answer 2

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()
ShellExecute Me.hwnd, "open", "http://www.baidu.com", "", "", 1
End Sub

网址替换文件地址

Answer 3

引用CommonDialog和Microsoft Word 11.0 object Libary(其他版本也行，看机器情况)
Private Sub Command1_Click()
Dim DocPath As String
Dim wApp As New Word.Application
CommonDialog1.ShowOpen
DocPath = CommonDialog1.FileName
If DocPath = "" Then wApp.Documents.Close: Set wApp = Nothing
wApp.Documents.Open DocPath
wApp.Visible = True
End Sub

Private Sub Form_Load()
CommonDialog1.Filter = "Word文档 (*.dco)|*.doc"
CommonDialog1.DialogTitle = "选择要打开的文档"
CommonDialog1.CancelError = False
End Sub