![]() ![]() If (InStrB(j 1, Contents, "%%EOF") > 0) Then j = InStrB(j 1, Contents, "%%EOF") Open FileNameBin For Binary Access Read As #hFileĬontents = String(LOF(hFile), vbNullChar) If LCase$(Right$(objFile.Name, 4)) = ".bin" ThenįileNameIndex = Left$(objFile.Name, Len(objFile.Name) - Len(".bin"))įileNameBin = BinFolderPath "\" FileNameIndex ".bin"įileNamePDF = BinFolderPath "\" FileNameIndex ".pdf" Set objFolder = objFSO.GetFolder(BinFolderPath) If objFSO.FolderExists(BinFolderPath) = True Then ' There are embedded objects Set objFSO = CreateObject("Scripting.FileSystemObject") ![]() ' ExtractedZippedDocxFolder = (1)īinFolderPath = ExtractedZippedDocxFolder "\word\embeddings" Title = "Select the unzipped docx folder to extract PDF file(s) from" ' FileDialogType:=msoFileDialogFolderPicker) ' Set dlgOpen = Application.FileDialog( _ 'DoFolder SubFolder ' Uncomment this for recursiveĭim ExtractedZippedDocxFolder, FileNameBin, FileNamePDF, BinFolderPath, FileNameNew, FolderUp As String Set FileSystem = CreateObject("Scripting.FileSystemObject")ĭoFolder FileSystem.GetFolder(HostFolder) Title = "Select the folder containing all the unzipped docx folders to extract PDF file(s) from" ![]() ![]() ' To use, unzip all the Word Files in a single folder, then run this macro.įileDialogType:=msoFileDialogFolderPicker) ' Extracts embedded PDFs from multiple folders within a folder. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |