从 VBScript 打开 Word 挂起，无法找出原因

Question

我并不是一个真正的程序员，所以如果我不知道任何标准的调试工具，请原谅我。

我有我认为是一个非常简单的VBScript（只是一个以 .vbs 扩展名保存的 txt 文件）：

Const wdDoNotSaveChanges = 0
Const wdRevisionsViewFinal = 0
Const wdFormatPDF = 17

Dim arguments
Set arguments = WScript.Arguments

Function DOC2PDF(sDocFile)

  Dim fso ' As FileSystemObject
  Dim wdo ' As Word.Application
  Dim wdoc ' As Word.Document
  Dim wdocs ' As Word.Documents

  Set fso = CreateObject("Scripting.FileSystemObject")
  sDocFile = fso.GetAbsolutePathName(sDocFile)
  sPdfFile = fso.GetParentFolderName(sDocFile) + "\" + fso.GetBaseName(sDocFile) + ".pdf"

  Set wdo = CreateObject("Word.Application")
  Set wdocs = wdo.Documents

  Set wdoc = wdocs.Open(sDocFile)

  if fso.FileExists(sPdfFile) Then
    fso.DeleteFile sPdfFile, True
  End If

  Set wview = wdoc.ActiveWindow.View
  wview.ShowRevisionsAndComments = False
  wview.RevisionsView = wdRevisionsViewFinal
  wdoc.SaveAs sPdfFile, wdFormatPDF
  wdo.Quit wdDoNotSaveChanges

  Set fso = Nothing
  Set wdo = Nothing

End Function

但是，以下行会造成巨大的痛苦：

Set wdoc = wdocs.Open(sDocFile)

有时 Word ActiveX 对象会冻结在此处 步。我通过一些超级简单的调试验证了这一点，方法是在每行后面放置一个 WriteLine 并查看它停止的位置。

Word 只是坐在那里，消耗 100% CPU，并且脚本永远不会越过该步骤。

我如何进行调试以找出 Word ActiveX 对象到底发生了什么以及为什么它只是挂起并且永远不会返回？

Answer 1

Word 可能正在等待您的提示。我将使 Word 可见，看看您是否可以直观地看到问题所在：

  Set wdo = CreateObject("Word.Application")
  'if memory serves, this should make Word visible
  wdo.Visible = true
  Set wdocs = wdo.Documents