Dim tempPath As String = System.Environment.GetEnvironmentVariable("TEMP")
Dim fileName As String = Path.Combine(tempPath, "推理01.doc")
Dim winwordPath As String = ""
' 判断系统中是否已经有 Word 实例在运行。
Dim wordProcesses As Process() = Process.GetProcessesByName("winword")
For Each process__1 As Process In wordProcesses
Debug.WriteLine(process__1.MainWindowTitle)
winwordPath = process__1.MainModule.FileName
' 如果有的话获得 Winword.exe 的完全限定名称。
Exit For
Next
Dim wordProcess As New Process()
If winwordPath.Length > 0 Then
' 如果有 Word 实例在运行，使用 /w 参数来强制启动新实例，并将文件名作为参数传递。
wordProcess.StartInfo.FileName = winwordPath
wordProcess.StartInfo.UseShellExecute = False
wordProcess.StartInfo.Arguments = fileName & " /w"
Else
' 如果没有 Word 实例在运行，还是
wordProcess.StartInfo.FileName = fileName
wordProcess.StartInfo.UseShellExecute = True
End If
wordProcess.Start()
wordProcess.WaitForExit()
' 当前进程一直在等待，直到该 Word 实例退出。
wordProcess.Close()
新浪微博
QQ空间
人人网
腾讯微博
Facebook
Google+
Plurk
Twitter
Line