模糊匹配文件名合并PDF文件

kangkumbong

各位大神请教一下
在同一文件夹下的PDF文件名，能否按模糊匹配同一文件名包括相同字符串即合并（只有日期时间差别）


举例：按文件名包括红色的相同字符串之间合并
ELK 127(PO 19810) EER296(GOLD MATTE) E0711A00S20_20230222171622
ELK 127(PO 19810) EER296(GOLD MATTE) E0711A00S20_20230222171625
ELK 127(PO 19810) EER296(ROSEGOLD MATTE) E0711I00S20_20230228141906
ELK 127(PO 19810) EER296(ROSEGOLD MATTE) E0711I00S20_20230228141918
OB 1160 (PO 68845) J7364 1652673_20230208162153
OB 1160 (PO 68845) J7364 1652673_20230208162159


Sub 批量合并PDF文件()
'合并一个文件夹下的所有pdf文档
'为保证顺序正确，请用数字序号命名文档，且序号位置文件名开头，如001.pdf，002.pdf，0不可省略
Dim pdfFolder As String, pdfName As String
Dim sPDdoc As New Acrobat.AcroPDDoc, tPDdoc As New Acrobat.AcroPDDoc
Dim PageNum As Long
pdfFolder = "Z:\ORDER QC REPORT" & path & "\" 'pdf文档目录
tPDdoc.Create '创建一个空白pdf文档，准备接收其他pdf文档
pdfName = Dir(pdfFolder) '读取第一个pdf文档名称
Do While pdfName <> ""
    If sPDdoc.Open(pdfFolder & pdfName) Then '打开文档
        PageNum = sPDdoc.GetNumPages '获得页数
        tPDdoc.InsertPages tPDdoc.GetNumPages - 1, sPDdoc, 0, PageNum, 0 '总是在tppdoc的最后一页的后面插入spddoc的所有页面
        sPDdoc.Close
    End If
    pdfName = Dir
Loop
tPDdoc.Save PDSaveFull, pdfFolder & pdfName & ".pdf" '保存合并文件
tPDdoc.Close '关闭合并文件
Set sPDdoc = Nothing
Set tPDdoc = Nothing
MsgBox "PDF文档合并完成！"
End Sub