在现代办公环境中，经常需要将各种格式的文件转换为PDF格式，以便于文件的分享和存档。本文将介绍一个使用VBScript编写的自动化文件转换脚本，该脚本能够将Excel、Word、PowerPoint和图片文件转换为PDF格式。
要使用这个脚本，只需将文件或文件夹拖放到脚本文件上。如果文件夹包含子文件夹，子文件夹中的文件也会被转换。
脚本使用Microsoft Office组件来转换Excel、Word和PowerPoint文档。对于图片文件，脚本使用Google提供的免费Tesseract库来转换为PDF。
脚本中定义了Tesseract的路径，需要确保该路径正确指向了Tesseract的可执行文件。此外，脚本会在输出的PDF文件名后添加一个后缀，这个后缀可以在脚本的第二行进行修改。
脚本首先创建了文件系统对象和Shell对象，然后检查是否有文件或文件夹被拖放。对于每个文件或文件夹，脚本会调用相应的处理函数。
如果拖放的是文件夹，脚本会遍历文件夹中的所有文件和子文件夹，并对每个文件调用处理文件的函数。
对于每个文件，脚本会根据文件的扩展名调用不同的转换函数。例如，Excel文件会调用ExcelToPdf函数，图片文件会调用ImgToPdf函数。
脚本中定义了三个转换函数：ExcelToPdf、WordToPdf和PowerPointToPdf。这些函数使用相应的Office应用程序对象来打开文件并将其保存为PDF格式。
在所有文件处理完成后，脚本会关闭所有打开的Office应用程序，以释放资源。
脚本还提供了日志记录功能，如果转换过程中有任何消息，都会被记录到日志文件中。
除了基本的文件转换功能，脚本还提供了一个额外的功能，可以将所有带有特定前缀的PDF文件移动到一个新的文件夹中。
这个功能通过遍历指定文件夹中的所有文件，并将带有特定前缀的PDF文件移动到目标文件夹来实现。
这个脚本是一个强大的工具，可以帮助自动化文件转换的过程。如果需要将大量文件转换为PDF格式，这个脚本将非常有用。
以下是脚本中一些关键部分的代码示例：
Const sTesseractPath = "C:\Program Files (x86)\Tesseract-OCR\tesseract.exe"
Const sFileSuffix = "_out"
Set fso = CreateObject("Scripting.FileSystemObject")
Set oShell = WScript.CreateObject("WSCript.shell")
Dim iCount: iCount = 0
Dim oLog
Dim bLogUsed: bLogUsed = False
Dim sFolderPath: sFolderPath = GetFolderPath()
Dim excel, word, powerPoint
Set excel = Nothing
Set word = Nothing
Set powerPoint = Nothing