我們如何使用vb腳本打開一個word文件

Question

誰能告訴我如何使用 vbs windows 腳本打開 word 文件。

我嘗試了這兩組vbs，但是即使文件存在於指定位置，也會顯示windows腳本主機錯誤（ "The system cannot find the file specified", errorcode: 80070002 ）。

我嘗試的第一個vbs：

Dim sAppPath
Dim sPrgFolder
sPrgFolder=CreateObject("WScript.Shell").ExpandEnvironmentStrings("%ProgramFiles%") 
sAppPath =sPrgFolder + "c:\UserGuide.doc"
WScript.CreateObject("WScript.Shell").Run sAppPath)

我試過的第二個vbs：

OPTION EXPLICIT
dim fso, ws, file_to_open, OFFICE_PATH
Set ws = WScript.CreateObject("WScript.Shell")
OFFICE_PATH = "C:\Program Files\Microsoft Office\Office"
file_to_open = CHR(34) & "C:\UserGuide.doc" & CHR(34)
ws.Run CHR(34)& OFFICE_PATH & "\winword.exe" & CHR(34) & file_to_open, 0, "FALSE"

Answer 1

LittleBobbyTables 在他的評論中解釋了為什么你的第一個例子不起作用。

至於您的第二個示例，它不起作用，因為您沒有在 winword.exe 路徑和文件路徑之間插入任何空格，因此您的命令行如下所示：

"C:\Program Files\Microsoft Office\Office\winword.exe""C:\UserGuide.doc"

無論如何，像這樣硬編碼 winword.exe 路徑是不可靠的，因為此路徑在 64 位和一些本地化的 Windows 版本以及一些 MS Office 版本中是不同的。 我建議您改用 Word 自動化對象：

Set oWord = CreateObject("Word.Application")
oWord.Visible = True
oWord.Documents.Open "C:\UserGuide.doc"

Answer 2

OPTION EXPLICIT
dim fso, ws, file_to_open, OFFICE_PATH
Set ws = WScript.CreateObject("WScript.Shell")
OFFICE_PATH = "C:\Program Files\Microsoft Office\Office"
file_to_open = CHR(34) & "C:\UserGuide.doc" & CHR(34)
ws.Run CHR(34) & OFFICE_PATH & "\winword.exe " & CHR(34) & file_to_open, 0, "FALSE"

試試這個修改后的代碼，檢查最后一行的修改:)

Answer 3

謝謝哥們.....我得到了它與這些vbs一起工作。

Dim shell, quote, pgm, fname

set shell = WScript.CreateObject("WScript.Shell")
quote = Chr(34)
pgm = "WINWORD"
fname = "C:\UserGuide.doc"
shell.Run quote & pgm & quote & " " &fname

Answer 4

這個怎么樣？：

set WshShell = Wscript.createObject("WScript.Shell")
WshShell.Run "Word"
WScript.Sleep 10

WshShell.AppActivate "Word"