如何在VB中用代码打开WINDOWS应用程序，比如WORD

Question

shell "word.exe 你要打开的文件"
比如shell "notepad d:\1"就是用记事本打开d:\1.txt

Answer 1

太简单了,在VB中引用Word8.0"microsoft word 8.0 object library"(word97的对象库,安装office后就有了)
Dim wordApp As Word.Application
Dim wordDocument As Word.Document
Set wordApp = CreateObject("word.application")
Set wordDocument = wordApp.Documents.Open(文件名, , True) '只读打开
wordApp.ActiveWindow.WindowState = wdWindowStateMaximize
wordApp.Application.Visible = True
你还可以用代码来画表格等,可用Word的宏来变成VB代码

Answer 2

用shell函数可以实现的。具体可参见msdn

Answer 3

"没有MSDN的猴"回答正确，应该加分，另外可使用ShellExecute这个API函数！！

Answer 4

同意，用shell，用ShellExecute应该也可以，不过我没用过

Answer 5

代码如下(此段代码只能打开WORD，不用管WORD的安装路径）：Private Sub Command1_Click()
Dim Hay As Object    '打开WORD
    Set Hay = CreateObject("Word.Application")
    '没有下面一句，就是打开了也看不到    
    Hay.Visible = TrueEnd Sub说明：在VB6、WORD2000环境下调试通过。代码用法：新建一个工程，在窗体上添加一个命令按钮（command1),把上面的代码复制到窗体的代码窗口，编译运行，按窗体上的“command1”即可。

Answer 6

sorry,上面代码少了一句，完整代码如下：Private Sub Command1_Click()
Dim Hay As Object    '打开WORD
    Set Hay = CreateObject("Word.Application")    '没有下面一句，就是打开了也看不到    
    Hay.Visible = True    '让WORD打开你想看的文件
    Hay.Documents.Open FileName:="此处换成你想打开的DOC文件的路径和文件名，如：C：\A.DOC", ReadOnly:=FalseEnd Sub

Answer 7

主　　题：VB应用，请求帮助！！！！（关于文件调用的）
作　　者：lovepk
所属论坛：Visual Basic
问题点数：20
回复次数：3
发表时间：2001-7-5 8:43:18
 
  
  如何在VB中，将要打开的文件，通过文件后缀名关联进行注册表操作，调用已安装的应用程序将文件打开例如：
txtFilename="f:\a.doc"
cmdOK_click()OK命令按钮的click事件如何编写，才能调用系统中的WORD程序将其直接打开请大虾指点，回帖子！！！！ 
回复贴子： 
　回复人：Firing_Sky(火的天空)　(2001-7-5 9:01:22)  得0分 
调用已安装的应用程序打开用api函数ShellExecutePublic 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 LongPublic Const SW_SHOWNORMAL = 1ShellExecute(form1.HWnd,"Open","http://flysocket.163.net","","",SW_SHOWNORMAL )  
　回复人：Firing_Sky(火的天空)　(2001-7-5 9:01:55)  得0分 
Public 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 LongPublic Const SW_SHOWNORMAL = 1ShellExecute(form1.HWnd,"Open","f:\a.doc","","",SW_SHOWNORMAL )  
　回复人：xxlroad(土八路)　(2001-7-5 12:43:03)  得20分 
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 LongConst SW_SHOWNORMAL = 1Private Sub Command1_Click()
    
    ShellExecute Form1.hwnd, "Open", "f:\a.doc", "", "", SW_SHOWNORMALEnd Sub