=========VB如何调用Word=================

[alj]

如何获得Word的安装路径呢，通过注册表怎么方法，最好给出源代码！！

多谢！！

[sonicdater]

直接 用 shell "Word.exe"
如果没安装，则 调不出来。

[alj]

提示文件未找到错误！！

我的系统：Windows2000 Server+Office XP,没有理由的吧？

[sonicdater]

Word 的执行文件 名是什么 ？ 是 Word.exe 吗？

[dxj221]

use word object 9.0

[alj]

winword.exe!

如果要打开某个目录，我可以这么写：
Shell Environ("WinDir") & "\explorer.exe " & FolderPathName, vbNormalFocus
但是我如何得到Winword的路径，各位大侠快快伸手救一救啦，小弟真实急死了！！！

[fishboyok]

还是使用object吧。不用查找路径了。

[uguess]

一般来说，像EXCEL这样的程序，都会在注册表的下面键之中记录路径：
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\winword.exe
取这个键的“默认”值就是你要的拉。

[icy_csdn]

Dim myWord As Word.Application
Set myWord = New Word.Application '创建 Word 对象
myWord.Visible = False
myWord.Documents.Open "test.doc"
这个方法不行吗？

[jienao]

RegQueryValueEx

VB声明
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
说明
获取一个项的设置值
返回值
Long，零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
参数表
参数 类型及说明
hKey Long，一个已打开项的句柄，或者指定一个标准项名
lpValueName String，要获取值的名字
lpReserved Long，未用，设为零
lpType Long，用于装载取回数据类型的一个变量
lpData Any，用于装载指定值的一个缓冲区
lpcbData Long，用于装载lpData缓冲区长度的一个变量。一旦返回，它会设为实际装载到缓冲区的字节数

word.exe 的注册表路径如uguess所说在
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\winword.exe

[xxlroad]

Option Explicit

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 Command1_Click()
Open "调用Microsoft Word 文档.doc" For Binary As #1
Close #1
ShellExecute Me.hwnd, "Open", "调用Microsoft Word 文档.doc", "", App.Path, 1
End Sub

[leonnet]

可以在工程 部件下选可插入对象，再选word就好了！