如何用VB6.0打开已知路径下的WORD文档,谢谢,最好给出代码

我的程序界面上有一个按钮,当点击时要求打开一个WORD文档(文档路径已知),请问如何实现?谢谢!请求给出代码,本人VB新手。
我的WORD地址是用一个变量address表示的(因为我想在不同情况下打开不同的WORD)
我做独立软件,路径是相对路径,存放在数据库表中,数据库连接没有问题。
同学用OLE控件可以实现,但我复制过来就不行了。

第1个回答  2008-03-01
Shell "d:\Program Files\Microsoft Office\OFFICE11\Winword.exe d:\唐海林.doc"
其中d:\Program Files\Microsoft Office\OFFICE11\Winword.exe是启动word的路径,d:\唐海林.doc是想要打开的路径
你把路径保存在address中
address = "d:\唐海林.doc"
Shell "d:\Program Files\Microsoft Office\OFFICE11\Winword.exe " & address & ""
第2个回答  2008-02-28
'引用microsoft office object 对象
private sub command1_click()
dim wordApp As object
Set wordApp = CreateObject("Word.Application")
'打开word文档
wordApp.Visible = True
wordApp.Documents.Open fileName
wordApp.Documents(fileName).Activate
end sub

此法可通过vb来操控doc文档对象.本回答被网友采纳
第3个回答  2008-02-27
Shell "rundll32.exe url.dll,FileProtocolHandler " & "c:\1.doc"

把c:\1.doc换成你的路径就行了.
第4个回答  2008-03-02
Shell("explorer.exe /n,D:\报告.doc", AppWinStyle.NormalFocus)

...用VB6.0给设计一个能直接打开已知密码的word文档的程序! 要求点击...
ap.documents.Open(FileName:="文件路径和名称", passworddocument:="密码")注意括号里面的冒号等于 或者写 dim ap as new word.application ap.documents.Open("文件路径和名称",,,"密码")写4个西文半角逗号就可以了 另外工程必须引用word的Object lib ...

VB6.0 连接Access数据库后 如何编写代码使数据库导出到excel、word或htm...
Private Sub Command1_Click() Dim xlapp As Variant Dim xlBook As Variant Dim xlSheet As Variant Dim sum As Long Set xlapp = CreateObject("excel.application") Set xlBook = xlapp.Workbooks.Open(App.Path & "\\data\\报表.xlt") '打开EXCEL模板 'Set xlBook =...

vb6.0如何编写word或wps文档?我在vb设计窗体中添加了word控件,但一是控...
这是要做什么。首先打开一个word对word的操作进行监视? 是这个意思,我想在VB6.0中写一些事件过程,然后当我在word中进行了删除或输入操作时,VB能够监视到并自动执行那些事件过程。

如何用vb6.0编写一个程序能实现查看某个文件格式的打开方式
lpFile |String|想用关联程序打印或打开的程序名或文件名 lpParameters|String|如lpFile是可执行程序,这里输入附加参数 lpDirectory |String|使用的完整路径 nShowCmd |Long |定义了如何显示启动程序的常数值 举例:打开一个网址(Text1.Text)Private Declare Function ShellExecute Lib "shell32....

我写了一段vb6.0程序,再创建word文档后另存为指定路径时总是提示错误...
把你写的程序在VB上经过修改测试,只需要改最后一句就可以了,如下:objdoc.SaveAs path & "\\" & "mydoc.doc"注意:我VB6.0里面的SaveAs函数是SaveAs2,具体什么原因暂时不清楚,你根据自己的程序里面提示输入SaveAs函数就好。

如何用VB6.0按钮控件打开我的电脑里的桌面,代码越简单越好,请高手门...
Private Sub Command1_Click()Shell "explorer.exe 您的桌面地址如:C:\\Users\\admin\\Desktop", vbNormalFocus End Sub

VB6.0问题···很急··在线等
首先我们需要在word中录制相应的宏命令。打开word,新建一文件,手动敲入一行字,然后选择工具->宏->录制新宏命令,为新宏取一个名字如macro1,执行以上动作(14号字,加粗,居中对齐),word自动将这些动作保存以相应的vbscript命令。然后选择工具->宏->宏命令,选择刚才我们定义的宏macro1,就能查看其...

如何在VB6.0中调用程序
VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置,而当前活动的窗口仍然保持活动。VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。说明 如果 Shell 函数成功地执行了所要执行的文件,则它会返回程序的任务 ID...

vb如何打开加密码的Word文档
打开VB,新建一个VB工程,取名Proc_Word,将启动窗体命名为FrmMain,选择“工程”菜单中的“引用”,在“引用”对话框中选择 “Microsoft Word8.0 Object Library”(这一步很重要,你必须选择这一ActiveX部件,否则代码不能正确运行,顺便说一句,如果安装的是Office2000,那么应该选择“Microsoft Word9.0...

vb6.0中如何将datagrid打印到word上
先添加对word的引用,然后你可以参考以下代码:Private Sub cmdExport_Click()Dim i As Integer, j As Integer Dim ifieldcount As Integer, irecordcount As Integer Dim wdapp As Word.Application Dim wddoc As Word.Document Dim atable As Word.Table cmdFind_Click If Adodc1.Recordset....

相似回答