如何用VB打开word文档
C盘里有一个test.doc文件
我要实现按下一个按纽就能打开这个文档
请问代码该怎么写 谢谢
SHELL
除了shell呢?
学习中~
COM
dim wApp as new wordapplication
wapp.open ...
不过，也需要要本机安装word的。
wapp.open 好象没有这个方法
楼上是不是写错了
Private Sub Command1_Click()
Dim OWork As Object
Dim oDoc As Object
Set OWork = CreateObject("Word.Application")
Set oDoc = OWork.Documents
oDoc.Open ("g:\erp.doc")
OWork.Visible = True
Set OWork = Nothing
End Sub
不过电脑上要装Office任一版本Word软件。
VB code:
Option Explicit
Public Sub Main()
Dim strFile$, objShell As Object
strFile = "X:\Temp\文档A.doc"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run strFile
End Sub
调用系统中默认的关联程序打开文档 X:\Temp\文档A.doc 。
相关问答：
一个查询某信息的ASP网页，提交采用的是post方法，查找结果的网页必须右键点击“查看源文件”才能看到真正查询结果网页的源代码，用浏览器菜单看到的是查询前的源代码
用VB有什么办法可以获取到这个查询后的源代� ......
我有自动生成序列号的程序，但是怎么跟打包后的安装程序结合在一起，在安装时提示用户输入序列号，正确后再继续安装？？？
方法1：你可以在运行程序后输入序列号注册，很多软件都是这样的。
方法2：使用Setu ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
要用vb打印一条线，长度是100毫米怎么写？
关注
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
用VB写了两句代码，实现让mapinfo运行reshow.mbx的功能。如下：
Private Sub Form_Load()
Set mapinfo = GetObject(, "MapInfo.Application")
mapinfo.do "Run Application "" ......
