提取PDF文件中有用文字并重新命名原PDF文件名

mcy318

一个文件夹后面有许多PDF文件，一个一个，那么我要通过编好这个程序来逐个打开每一个PDF文件。然后读取有用的信息有三个，（比如：第一条 合同时间，第二条乙方姓名，第三条合同金额 ）把提取出这三个有用的信息变成新的文件名，把这个PDF文件替换掉，文件名替换掉。就挨个这样执行下来。



这样的代码如何编写

mcy318

Sub RenamePDFs()     Dim objFSO As Object     Dim objFolder As Object     Dim objFile As Object     Dim objPDFReader As Object ' 假设的PDF阅读器对象     Dim strContractTime As String     Dim strPartyBName As String     Dim strContractAmount As String     Dim strNewFileName As String          ' 创建文件系统对象     Set objFSO = CreateObject("Scripting.FileSystemObject")          ' 设置文件夹路径     Dim strFolderPath As String     strFolderPath = "C:\Your\PDF\Folder\" ' 请替换为您的文件夹路径          ' 获取文件夹对象     Set objFolder = objFSO.GetFolder(strFolderPath)          ' 遍历文件夹中的PDF文件     For Each objFile In objFolder.Files         If LCase(objFSO.GetExtensionName(objFile.Name)) = "pdf" Then             ' 初始化PDF阅读器对象             Set objPDFReader = CreateObject("YourPDFReaderObjectModel.Object") ' 请替换为您的PDF阅读器对象                          ' 打开PDF文件             objPDFReader.Open objFile.Path                          ' 读取PDF文件中的信息             ' 注意：以下方法需要根据您的PDF阅读器API进行调整             strContractTime = objPDFReader.GetInfo("合同时间")             strPartyBName = objPDFReader.GetInfo("乙方姓名")             strContractAmount = objPDFReader.GetInfo("合同金额")                          ' 构建新的文件名             strNewFileName = strPartyBName & "-" & strContractTime & "-" & strContractAmount & ".pdf"                          ' 重命名文件             Name objFile.Path As strFolderPath & strNewFileName                          ' 关闭PDF阅读器对象             objPDFReader.Close             Set objPDFReader = Nothing         End If     Next objFile          ' 清理     Set objFile = Nothing     Set objFolder = Nothing     Set objFSO = Nothing End Sub

HANERBABA

应该可用DO loop 配合dir 循环 ，用Word打开，正则提取数据， name 改名字

mcy318

Sub RenamePDFs()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objPDFReader As Object ' 假设的PDF阅读器对象
    Dim strContractTime As String
    Dim strPartyBName As String
    Dim strContractAmount As String
    Dim strNewFileName As String
   
    ' 创建文件系统对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")
   
    ' 设置文件夹路径
    Dim strFolderPath As String
    strFolderPath = "C:\Your\PDF\Folder\" ' 请替换为您的文件夹路径
   
    ' 获取文件夹对象
    Set objFolder = objFSO.GetFolder(strFolderPath)
   
    ' 遍历文件夹中的PDF文件
    For Each objFile In objFolder.Files
        If LCase(objFSO.GetExtensionName(objFile.Name)) = "pdf" Then
            ' 初始化PDF阅读器对象
            Set objPDFReader = CreateObject("YourPDFReaderObjectModel.Object") ' 请替换为您的PDF阅读器对象
            
            ' 打开PDF文件
            objPDFReader.Open objFile.Path
            
            ' 读取PDF文件中的信息
            ' 注意：以下方法需要根据您的PDF阅读器API进行调整
            strContractTime = objPDFReader.GetInfo("合同时间")
            strPartyBName = objPDFReader.GetInfo("乙方姓名")
            strContractAmount = objPDFReader.GetInfo("合同金额")
            
            ' 构建新的文件名
            strNewFileName = strPartyBName & "-" & strContractTime & "-" & strContractAmount & ".pdf"
            
            ' 重命名文件
            Name objFile.Path As strFolderPath & strNewFileName
            
            ' 关闭PDF阅读器对象
            objPDFReader.Close
            Set objPDFReader = Nothing
        End If
    Next objFile
   
    ' 清理
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
End Sub   这样不知行不

mcy318

HANERBABA 发表于 2024-9-29 13:06
应该可用DO loop 配合dir 循环 ，用Word打开，正则提取数据， name 改名字

能写一下代码吗

mcy318

Sub RenamePDFFiles()
    Dim ws As Worksheet
    Dim targetFolder As String
    Dim fileName As String
    Dim合同时间 As String
    Dim乙方姓名 As String
    Dim合同金额 As String
    Dim newFileName As String
   
    ' 设置包含PDF文件的文件夹路径
    targetFolder = "C:\Path\To\Your\Pdf\Folder\"
   
    ' 确保路径以反斜杠结束
    If Right(targetFolder, 1) <> "\" Then targetFolder = targetFolder & "\"
   
    ' 获取第一个PDF文件的文件名
    fileName = Dir(targetFolder & "*.pdf")
   
    ' 循环遍历所有PDF文件
    Do While fileName <> ""
        ' 提取PDF文件中的信息（这里需要您自行实现ExtractPDFInfo函数）
        合同时间 = ExtractPDFInfo(targetFolder & fileName, "合同时间")
        乙方姓名 = ExtractPDFInfo(targetFolder & fileName, "乙方姓名")
        合同金额 = ExtractPDFInfo(targetFolder & fileName, "合同金额")
        
        ' 构建新的文件名
        newFileName = 合同时间 & " " & 乙方姓名 & " " & 合同金额 & ".pdf"
        
        ' 重命名文件
        Name targetFolder & fileName As targetFolder & newFileName
        
        ' 获取下一个PDF文件的文件名
        fileName = Dir
    Loop
End Sub

' 以下函数是示例，您需要根据实际情况实现PDF内容提取
Function ExtractPDFInfo(pdfPath As String, infoType As String) As String
    ' 这里是伪代码，需要您根据实际情况使用ActiveX控件或其他方法来实现
    ' 例如使用Adobe Acrobat SDK, PDFtk服务器或其他PDF处理库
    Dim info As String
    ' ... PDF内容提取逻辑 ...
    ' 基于infoType返回相应的信息
    ExtractPDFInfo = info
End Function

HANERBABA

mcy318 发表于 2024-9-29 13:10
能写一下代码吗

我也是小白，

约定的童话

借用addobe识别提取出信息然后重命名

mcy318

约定的童话 发表于 2024-9-29 15:02
借用addobe识别提取出信息然后重命名

有好几千个文件

ykcbf1100

mcy318 发表于 2024-9-29 15:49
有好几千个文件

摸拟一个附件上传，也许有会的老师会出手解决。