Creating Search-able PDFs?

Question

I recently was sent a number of scanned articles that I would like to turn into a searchable pdf using Adobe Acrobat Professional for Mac. The files I was sent are all saved as .tiff and jpeg files. Can someone tell me the best way to create a searchable document?

thanks

Answer 1

Hi. The PDF files are searchable. You would need to 'Scan to application' and copy to PDF.

Answer 2

Give this a try. It finds all files listed in column A starting at A2... Sub FIND_DRAWING_version2() Dim FindText As String Dim MyFolder As String Dim MyFileCount As Integer Dim MyFileName As String Dim MyFileType As String Dim f As Integer Dim WS As Worksheet Dim MyRange As Range 'NEW A2 to Last used cell in column A '-------------------------------------... '- SET VARIABLES Set WS = ActiveSheet MyFolder = "F:\CUMMINS\SCANS\Invoices\" MyFileCount = 0 Set MyRange = Range("A2:" & Range("A65536").End(xlUp).Address) 'NEW '-------------------------------------... '- CHECK FILE NAMES With Application.FileSearch For Each cell In MyRange If Not IsEmpty(cell.Value) Then FindText = cell.Value 'Moved and changed MyFileType = "*" & FindText & "*.*" ' = "*Test*.*" Moved .NewSearch .LookIn = MyFolder .Filename = MyFileType .SearchSubFolders = True ' True to search subfolders '-------------------------------------... '- RESULTS If .Execute() > 0 Then For f = 1 To .FoundFiles.Count MyFileCount = MyFileCount + 1 FoundRow = FoundRow + 1 MyFileName = .FoundFiles(f) WS.Cells(FoundRow, 3).Value = WS.Cells(FoundRow, 3).Value & " " & MyFileName WS.Hyperlinks.Add Anchor:=WS.Cells(FoundRow, 3), Address:=MyFileName, TextToDisplay:=MyFileName Next f 'Else 'MsgBox ("Search for file names containing : " & FindText & vbCr _ '& "No matches found") 'Exit Sub End If End If Next cell End With '-------------------------------------... '- finish MsgBox ("Found " & MyFileCount & " file names.") End Sub