vbs word批量转pdf 显示完成进度

在vbs（Visual Basic Scripting）中，要批量将Word文档转换为PDF并显示完成进度，可以采取以下步骤：

1. 首先，使用FileSystemObject对象获取指定文件夹中的所有Word文档文件。可以通过指定文件夹的路径来实现。

2. 接下来，创建一个Word.Application对象，用于打开Word文档和进行转换操作。可以使用CreateObject函数实现对象的创建。

3. 使用For Each循环遍历文件夹中的每个Word文档文件。

4. 在循环内，使用Documents.Open方法打开当前Word文档，并将其保存为PDF格式。可以通过指定另存为的文件路径及文件名来实现。

5. 在保存过程中，可以使用Application.StatusBar方法来显示转换的进度情况。可以使用计算公式（已转换文件数 / 总文件数）* 100 来表示完成进度的百分比。

6. 在循环结束后，关闭Word文档并释放对象的资源，以确保程序的正常运行和内存管理。

7. 最后，提示用户转换完成，并结束程序的运行。

以下是一个简单的示例代码：

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWord = CreateObject("Word.Application")

FolderName = "指定文件夹路径"
Set objFolder = objFSO.GetFolder(FolderName)

TotalFiles = objFolder.Files.Count
ConvertedFiles = 0

For Each objFile In objFolder.Files
    If objFSO.GetExtensionName(objFile.Path) = "doc" Then
        Set objDoc = objWord.Documents.Open(objFile.Path)
        objPdfPath = objFSO.GetParentFolderName(objFile.Path) & "\" & objFSO.GetBaseName(objFile.Name) & ".pdf"
        objDoc.SaveAs objPdfPath, 17 ' 17表示PDF格式
        objDoc.Close
        ConvertedFiles = ConvertedFiles + 1
        objWord.StatusBar = "转换进度：" & FormatNumber(ConvertedFiles / TotalFiles * 100, 0) & "%"
    End If
Next

objWord.Quit
Set objWord = Nothing

MsgBox "转换完成！"

通过以上步骤和示例代码，你可以在vbs中实现批量将Word文档转换为PDF并显示完成进度。