vbscript - 我们如何使用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"