怎样批量把PDF文档中的标题提取出来重命名文件？就是把内容标题改为文件名
发布网友
发布时间：2022-04-23 06:19
我来回答
共3个回答
热心网友
时间：2023-10-03 08:19
你的标题可以复制么，可以定位到那个标题的坐标，取出文字，最后重命名
主要是这几个步骤，以前看到过有个识别电子*的，咕嘎批量PDF电子*提取重命名
你那个应该一样的
热心网友
时间：2023-10-03 08:20
不用什么软件也可以~！你只要把图片放到文件夹里，在到上面菜单查看里；设为略图就可以这样看图了~！
热心网友
时间：2023-10-03 08:20
亲测可用，粘贴到文本文档，然后复制进去，另存为，后缀名改成vbs。要改哪的文档，就把这个复制到那个文件夹里面。好不容易找到的，希望下次搜的人也能找到：缺点就是遇到错误的情况不会跳过，不会整。如果有大神看到了，请丰富一下代码。
Dim fso,fc,f,strName
Set fso = CreateObject("scripting.filesystemobject")
Set fc=fso.GetFolder(".").Files
For Each f In fc
If LCase(fso.GetExtensionName(f))="doc" Then
f.Name=GetFileName(f.Path) & ".docx"
End If
If LCase(fso.GetExtensionName(f))="docx" Then
f.Name=GetFileName(f.Path) & ".docx"
End If
Next
Set fso=Nothing
Function GetFileName(FilePath)
Dim i,objWord,Doc
Set objWord=CreateObject("word.application")
Set Doc=objWord.Documents.Open(FilePath)
For i=1 To Doc.Paragraphs.Count
If Replace(Doc.Paragraphs(i).Range," ","")<>vbCr Then
GetFileName=Replace(Doc.Paragraphs(i).Range,vbCr,"")
Exit For
End If
Next
objWord.Quit
Set objWord=Nothing
End Function
热心网友
时间：2023-10-03 08:19
你的标题可以复制么，可以定位到那个标题的坐标，取出文字，最后重命名
主要是这几个步骤，以前看到过有个识别电子*的，咕嘎批量PDF电子*提取重命名
你那个应该一样的
热心网友
时间：2023-10-03 08:20
不用什么软件也可以~！你只要把图片放到文件夹里，在到上面菜单查看里；设为略图就可以这样看图了~！
热心网友
时间：2023-10-03 08:20
亲测可用，粘贴到文本文档，然后复制进去，另存为，后缀名改成vbs。要改哪的文档，就把这个复制到那个文件夹里面。好不容易找到的，希望下次搜的人也能找到：缺点就是遇到错误的情况不会跳过，不会整。如果有大神看到了，请丰富一下代码。
Dim fso,fc,f,strName
Set fso = CreateObject("scripting.filesystemobject")
Set fc=fso.GetFolder(".").Files
For Each f In fc
If LCase(fso.GetExtensionName(f))="doc" Then
f.Name=GetFileName(f.Path) & ".docx"
End If
If LCase(fso.GetExtensionName(f))="docx" Then
f.Name=GetFileName(f.Path) & ".docx"
End If
Next
Set fso=Nothing
Function GetFileName(FilePath)
Dim i,objWord,Doc
Set objWord=CreateObject("word.application")
Set Doc=objWord.Documents.Open(FilePath)
For i=1 To Doc.Paragraphs.Count
If Replace(Doc.Paragraphs(i).Range," ","")<>vbCr Then
GetFileName=Replace(Doc.Paragraphs(i).Range,vbCr,"")
Exit For
End If
Next
objWord.Quit
Set objWord=Nothing
End Function
