vb.net 启动word

[alqutcom]

设计了几个按钮，每个按钮单击时候启动指定的程序
如何启动Word空白文档，InternetExplor、画图等

[X-i-n]

如果需要运行的exe所在目录在环境变量PATH中，或者和你自己的程序在同一目录，可以直接用exe的名字来启动 Process.Start("mspaint.exe") Process.Start("notepad.exe") 否则，用全路径来启动 Process.Start("C:\Program Files\Microsoft Office\Office16\excel.exe")

[horizon82]

直接用shell 然后跟程序路径
Shell(Application.StartupPath & "\abc.exe", vbNormalFocus)

[清晨曦月]

Shell("C:\Program Files (x86)\Internet Explorer\iexplore.exe http://www.baidu.com", Wait:=True)
Dim tp As String = My.Application.Info.DirectoryPath & "\test.text"
IO.File.WriteAllBytes(tp, {48, 49, 51})
Process.Start("notepad.exe", tp)

[threenewbee]

Shell("winword.exe")

[无涯大者]

引用 2 楼 X-i-n 的回复:

如果需要运行的exe所在目录在环境变量PATH中，或者和你自己的程序在同一目录，可以直接用exe的名字来启动
Process.Start("mspaint.exe")
Process.Start("notepad.exe")

否则，用全路径来启动
Process.Start("C:\Program Files\Microsoft Office\Office16\excel.exe")

正解！

[kshengster]

import windows.office.interop dim oWordApp as word.application dim oWordDoc as word.document privat sub button_click (........).... oWordApp = new word.application oWordDoc = oWordApp.add([readonly]:=false,visible = true) oWordApp.visible = true end sub

[lylkr]

引用 6 楼 kshengster 的回复:

import windows.office.interop

dim oWordApp as word.application
dim oWordDoc as word.document

privat sub button_click (........)....

oWordApp = new word.application
oWordDoc = oWordApp.add([readonly]:=false,visible = true)
oWordApp.visible = true

end sub

office建议用这种

[luzhipeng81]

1.打开word
引用:microsoft word 12.0 object library
dim wordobj as microsoft.office.interop.word.application
dim word as microsoft.office.interop.word.document
wordobj=new microsoft.office.interop.word.application
word=wordobj.document.add
wordobj.visible=true

2.打开ie
dim ie as object=createobject("InternetExplorer.Application")
dim url as string="www.baidu.com"
ie.visible=true
ie.navigate(url)

3.打开画图
shell("c:\windows\system32\mspaint.exe",appwinstyle.normalfocus)