Проблемы после третьего цикла, ищу альтернативы для отправки ключей

Поэтому я хочу автоматически добавить PDF-файл в закладки. Я успешно выполняю несколько первых циклов, но затем возникают сбои и не добавляет в закладки правильное место. Также я хотел бы знать, есть ли лучшие альтернативы ^f и ^b. Вот код, который у меня есть:


    ActiveWorkbook.FollowHyperlink "C:\Test.pdf"

    Dim searchString As String
    'Create loop using variable i
    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
    For I = 1 To FinalRow



    searchString = Cells(I, 3).Value



    'Send "CTRL + F" keys to the opened PDF to invoke find within that file
    'The second argument "true" implies that Excel will wait for the keys to be processed before returning control to the macro.
    SendKeys "^f", True

    'Type the search string in the find box that opens
    SendKeys searchString, True

    'Hit enter to perform the search
    SendKeys "{Enter}", True

    'Bookmark highlighted text
    SendKeys "^b", True

    'Hit enter to perform the bookmark
    SendKeys "{Enter}", True
        Next I

    Application.DisplayAlerts = True


End Sub ``` 


0 ответов

Другие вопросы по тегам