Sub PdfSearch()

    Dim acroApp As Object, acroDoc As Object

    PdfFilePath = "C:\test.pdf"
    SearchingWord = "Searching text"

    Set acroApp = CreateObject("AcroExch.App")
    Set acroDoc = CreateObject("AcroExch.AVDoc")

    If acroDoc.Open(PdfFilePath, "") = True Then
        acroDoc.BringToFront
        If acroDoc.FindText(SearchingWord, False, True, False) = True Then
            'какая-то команда выделения цветом ...
            '???
        End If
        acroDoc.Close True
    End If

    Set acroDoc = Nothing
    Set acroApp = Nothing

End Sub

let
    Источник = Excel.CurrentWorkbook(){[Name="Table_1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Name", type text}, {"Remaining", Int64.Type}}),
    #"Вычисленное минимальное значение" = List.Min(#"Измененный тип"[Remaining]),
    #"Преобразовано в таблицу" = #table(1, {{#"Вычисленное минимальное значение"}}),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Преобразовано в таблицу",{{"Column1", Int64.Type}})
in
    #"Измененный тип1"

let
    Источник = Table.Combine({Table_1, Table_2, Table_3, Table_4}),
    #"Вычисленное минимальное значение" = List.Min(Источник[Column1]),
    #"Преобразовано в таблицу" = #table(1, {{#"Вычисленное минимальное значение"}}),
    #"Переименованные столбцы" = Table.RenameColumns(#"Преобразовано в таблицу",{{"Column1", "MinValue"}}),
    #"Измененный тип" = Table.TransformColumnTypes(#"Переименованные столбцы",{{"MinValue", Int64.Type}})
in
    #"Измененный тип"

Set WshShell = CreateObject("WScript.Shell").Run("MyScript", 0, True)

Function test1(MyNumber As Long)
    MsgBox MyNumber + 3
End Function
Sub test2()
    On Error GoTo Errorcatch
    Set WshShell = CreateObject("WScript.Shell").Run(test1(7), 0, True)
    Set WshShell = Nothing
Errorcatch:
    MsgBox Err.Description
End Sub