Я использую VBA для l oop через около 1000 PDF-файлов и извлекаю указанный c элемент данных. У меня есть код, который может найти указанную строку, но мне нужно скопировать число, которое идет после искомой строки. см. изображение ниже текста, который уже выделен в результате поиска, но теперь мне нужно выделить текст, который идет после.
Я использую метод sendkeys для навигации по документам PDF, я пытался использовать Sendkey "+{Right}" или Sendkey "^+{Right}", чтобы выделить элемент данных, но проблема, с которой я столкнулся, заключается в том, что, как только поиск завершен, файл PDF застрял как тип состояния блокировки прокрутки, где Sendkey "+{Right}" просто отправляет документ следующему страница вместо выделения текста справа.
Кто-нибудь знает способ выделения элемента данных и его копирования в буфер обмена для вставки в лист Excel?
Ниже приведен фрагмент моего подхода к получению данных из pdf файл.
ActiveWorkbook.FollowHyperlink MyFolder & "\" & MyFile
waitTime = Now
While DateDiff("s", waitTime, Now)
DoEvents
Wend
''send ctrl+f to open find function in pdf
SendKeys "^f", True
''insert our search string
SendKeys searchstring, True
''press enter to search
SendKeys "{Enter}", True
''escape to exit the search function
SendKeys "{ESC}", True
''attempt to highlight data element to right of search string
SendKeys "^+{Right}", True
''copy highlighted text
SendKeys "^c", True
Application.Wait Now + TimeValue("0:00:05")
''close pdf
SendKeys "^{F4}", True
thiswb.Activate
lrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & lrow).Select
Selection.Value = MyFile
''paste data from clipboard
ClipboardToCell Range("B" & lrow)
спасибо!