利用office办公软件中的宏（VBA）将文档批量转成PDF

可以使用以下的VBA代码实现将指定文件夹下的所有Word文档批量转换为PDF格式：

Sub ConvertDocToPDF()

Dim objWord As Object
Dim objDoc As Object
Dim objFolder As Object
Dim objFile As Object
Dim strFolder As String
Dim strFile As String

'设置Word程序对象
Set objWord = CreateObject("Word.Application")
objWord.Visible = False

'指定要转换的文件夹路径
strFolder = "C:\Test\" '需要替换为实际路径

'获取文件夹对象
Set objFolder = CreateObject("Scripting.FileSystemObject").GetFolder(strFolder)

'遍历文件夹下所有的Word文档
For Each objFile In objFolder.Files
    If Right(objFile.Name, 4) = ".doc" Or Right(objFile.Name, 5) = ".docx" Then
        strFile = objFile.Path
        
        '打开Word文档
        Set objDoc = objWord.Documents.Open(strFile)
        
        '转换为PDF
        objDoc.ExportAsFixedFormat OutputFileName:=Left(strFile, Len(strFile) - 4) & ".pdf", _
                                   ExportFormat:=17, _
                                   OpenAfterExport:=False
        
        '关闭Word文档
        objDoc.Close False
    End If
Next objFile

'关闭Word程序
objWord.Quit

End Sub

将上述代码复制到Word VBA编辑器中，并保存为宏。然后在Word中按下Alt+F8，选择该宏运行即可将指定文件夹下的所有Word文档批量转换为PDF格式。