VBA选择多个文件夹里多张图合并成一个pdf

非常感谢您的提问。您可以使用VBA编写一个宏来实现这个功能。以下是一个简单的示例代码：

Sub CombinePDFs()
Dim folderPath As String
Dim outputPath As String
Dim objFSO As Object
Dim objShell As Object
Dim objFolder As Object
Dim objFile As Object
Dim objPDF As Object
Dim i As Integer

'选择文件夹路径
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "请选择要合并的PDF文件所在的文件夹"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
folderPath = .SelectedItems(1)
End With

'选择输出路径
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "请选择输出PDF文件的保存路径和文件名"
.InitialFileName = "CombinedPDFs.pdf"
.Show
If .SelectedItems.Count = 0 Then Exit Sub
outputPath = .SelectedItems(1)
End With

'创建PDF对象
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")
Set objPDF = CreateObject("AcroExch.PDDoc")

'遍历文件夹中的PDF文件
Set objFolder = objFSO.GetFolder(folderPath)
For Each objFile In objFolder.Files
If objFSO.GetExtensionName(objFile.Path) = "pdf" Then
'打开PDF文件
If objPDF.Open(objFile.Path) Then
'合并PDF文件
objShell.Namespace(outputPath).CopyHere objPDF, 4
i = i + 1
End If
End If
Next

'关闭PDF对象
objPDF.Close
Set objPDF = Nothing
Set objShell = Nothing
Set objFSO = Nothing

'提示合并完成
MsgBox "已成功合并" & i & "个PDF文件！", vbInformation, "提示"
End Sub

请注意，此代码仅适用于Windows操作系统，并且需要安装Adobe Acrobat软件。如果您使用的是Mac操作系统，则可以使用Preview应用程序来合并PDF文件。