Sub ExportAllPDFs() Dim StrFile As String StrFile = Dir("C:\Users\jtang20\Desktop\PdfFolder\*pdf") Do While Len(StrFile) > 0 SavePDFAs "C:\Users\jtang20\Desktop\PdfFolder\" & StrFile, "jpeg" StrFile = Dir Loop End Sub上述代码改为可以选择pdf文件夹，以及可以选择图片输出文件夹

您想对上述代码进行修改，以便能够选择输入的PDF文件夹和输出的图片文件夹是吗？以下是修改后的代码示例：

Sub ExportAllPDFs()
    Dim inputFolder As String
    Dim outputFolder As String
    Dim StrFile As String
    
    ' 选择输入的PDF文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择输入的PDF文件夹"
        If .Show = -1 Then
            inputFolder = .SelectedItems(1) & "\"
        Else
            Exit Sub
        End If
    End With
    
    ' 选择输出的图片文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择输出的图片文件夹"
        If .Show = -1 Then
            outputFolder = .SelectedItems(1) & "\"
        Else
            Exit Sub
        End If
    End With
    
    StrFile = Dir(inputFolder & "*.pdf")
    
    Do While Len(StrFile) > 0
        SavePDFAs inputFolder & StrFile, outputFolder & Replace(StrFile, ".pdf", ".jpeg")
        StrFile = Dir
    Loop
    
End Sub

上述修改后的代码会使用 VBA 的 `FileDialog` 对象来让用户选择输入和输出文件夹。首先会打开一个对话框让用户选择输入的PDF文件夹，然后再打开另一个对话框让用户选择输出的图片文件夹。

请注意，这里假设您已经有一个名为 `SavePDFAs` 的子程序来将单个PDF文件保存为JPEG格式。您可能需要根据您的需求自行编写或调整这个子程序。

希望这可以帮助到您！如果您有任何其他问题，请随时提问。