Don’t have an account yet? Register yourself now and be a part of our community!
John, (Excel string search in a PDF)
I've seen your work on a couple of forums. I have a need to do multiple searches of text strings(unique names) in an excel spreadsheet for an entire column. Currently, I select the cell, copy the contents of the cell into the “acrobat find” window and search. Once I find it, I do some quick analysis then repeat.
Can a vba script be written so that, copy the cell(G3), paste in the PDF find window, search's. Once found and analyzed, I repeat by going back to excel, copying cell(G4) paste to PDF window and hit the search button. I have to do this up to 1500 times for each document I analyze. I would like a script where I hit ctrl-z, it automatically goes to the next cell down and copies the unique name to "find Acrobat" window and does the search, presenting the PDF page. (saving multiple keystrokes and errors.)
I will have both excel and the pdf active on my desktop because I analyze each page found.
I'm new here and posted full thread
VERTICAL Sorting Order for SUB-FOLDERS
I’m trying to sort out your VBA code that is working in VERTICAL Sorting Order of SUB-FOLDERS
Please help me to work this VBA code to work in HORIZONTAL Sorting Order of SUB-FOLDERS. I attached two photos please someone help me I really appreciate your great efforts and time.
Thank You Sir John,
Public Sub Hierarchical_Folders_and_Files_Listing2()
Dim startFolderPath As String
Dim startCell As Range
Dim n As Long
startFolderPath = "Z:\Central Region (Riyadh)"
Set startCell = .Range("A1")
n = List_Folders_and_Files2(startFolderPath, startCell)
Private Function List_Folders_and_Files2(folderPath As String, destCell As Range) As Long
Static FSO As Object
Dim thisFolder As Object, subfolder As Object
Dim fileItem As Object
If FSO Is Nothing Then Set FSO = CreateObject("Scripting.FileSystemObject")
Set thisFolder = FSO.GetFolder(folderPath)
'Add hyperlink for this folder
destCell.Parent.Hyperlinks.Add Anchor:=destCell, Address:=thisFolder.Path, TextToDisplay:=thisFolder.Name
'List subfolders in this folder
n = 0
For Each subfolder In thisFolder.Subfolders
n = n + 1 + List_Folders_and_Files2(subfolder.Path, destCell.Offset(n + 1, 1))
List_Folders_and_Files2 = n