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

alj 2001-12-18 06:31:08
如何获得Word的安装路径呢,通过注册表怎么方法,最好给出源代码!!

多谢!!
...全文
131 11 打赏 收藏 举报
写回复
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
leonnet 2001-12-19
  • 打赏
  • 举报
回复
可以在工程 部件下选可插入对象,再选word就好了!
xxlroad 2001-12-18
  • 打赏
  • 举报
回复
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
jienao 2001-12-18
  • 打赏
  • 举报
回复
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
icy_csdn 2001-12-18
  • 打赏
  • 举报
回复
Dim myWord As Word.Application
Set myWord = New Word.Application '创建 Word 对象
myWord.Visible = False
myWord.Documents.Open "test.doc"
这个方法不行吗?
uguess 2001-12-18
  • 打赏
  • 举报
回复
一般来说,像EXCEL这样的程序,都会在注册表的下面键之中记录路径:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\winword.exe
取这个键的“默认”值就是你要的拉。

fishboyok 2001-12-18
  • 打赏
  • 举报
回复
还是使用object吧。不用查找路径了。
alj 2001-12-18
  • 打赏
  • 举报
回复
winword.exe!

如果要打开某个目录,我可以这么写:
Shell Environ("WinDir") & "\explorer.exe " & FolderPathName, vbNormalFocus
但是我如何得到Winword的路径,各位大侠快快伸手救一救啦,小弟真实急死了!!!
dxj221 2001-12-18
  • 打赏
  • 举报
回复
use word object 9.0
sonicdater 2001-12-18
  • 打赏
  • 举报
回复
Word 的执行文件 名是什么 ? 是 Word.exe 吗?
alj 2001-12-18
  • 打赏
  • 举报
回复
提示文件未找到错误!!

我的系统:Windows2000 Server+Office XP,没有理由的吧?
sonicdater 2001-12-18
  • 打赏
  • 举报
回复
直接 用 shell "Word.exe"
如果没安装,则 调不出来。
发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-12-18 06:31
社区公告
暂无公告