vbscript 将 word doc 转换为 pdf

Question

我写了一个简短的 vbscript，它可以打开一个 word 文档，编辑一些书签并保存到一个新的 .doc 文件。

我现在需要将其转换为 pdf 文件，这非常简单，可以使用 cutePDF 之类的东西(通过将其发送到虚拟打印机)，但我想自动执行该步骤。

任何人都可以提供关于该过程所需的 vbscript 的任何想法，无论是自动化打印步骤，还是其他方法。

非常感谢

戴夫

Answer 1

我曾经写过一个blog article on this matter .转换可以按如下方式完成:

Function DocToPdf( docInputFile, pdfOutputFile )

  Dim fileSystemObject
  Dim wordApplication
  Dim wordDocument
  Dim wordDocuments
  Dim baseFolder

  Set fileSystemObject = CreateObject("Scripting.FileSystemObject")
  Set wordApplication = CreateObject("Word.Application")
  Set wordDocuments = wordApplication.Documents

  docInputFile = fileSystemObject.GetAbsolutePathName(docInputFile)
  baseFolder = fileSystemObject.GetParentFolderName(docInputFile)

  If Len(pdfOutputFile) = 0 Then
    pdfOutputFile = fileSystemObject.GetBaseName(docInputFile) + ".pdf"
  End If

  If Len(fileSystemObject.GetParentFolderName(pdfOutputFile)) = 0 Then
    pdfOutputFile = baseFolder + "\" + pdfOutputFile
  End If

  ' Disable any potential macros of the word document.
  wordApplication.WordBasic.DisableAutoMacros

  Set wordDocument = wordDocuments.Open(docInputFile)

  ' See http://msdn2.microsoft.com/en-us/library/bb221597.aspx
  wordDocument.SaveAs pdfOutputFile, wdFormatPDF

  wordDocument.Close WdDoNotSaveChanges
  wordApplication.Quit WdDoNotSaveChanges

  Set wordApplication = Nothing
  Set fileSystemObject = Nothing

End Function

不过关闭文件很重要。请注意，您需要带有 PDF 插件的 Word 2007 或 Word 2010+ 才能执行此操作。