VBA effectuer une recherche d'un mot sur un pdf ouvert avec un navigateur i

Bonjour,

je cherche un code VBA une fonction qui permet de lui donné le lien du PDF ainsi que le mot a chercher dans le PDF, elle me renvoi Oui si elle trouve le mot ou Non si elle trouve pas le mot

Le PDF s'ouvre avec un navigateur web

pour donner un exemple concret:

voici le mort a chercher : Danois

voici le lien du PDF : http://www.edu.xunta.gal/centros/iesnumero1estrada/system/files/LES%20NATIONALIT%C3%89S%20AU%20MASCULIN%20ET%20AU%20F%C3%89MININ_0.pdf

PS: je tiens a ce que ça soit une fonction avec deux paramètre en entrée le lien PDf et le mot a cherché et une valeur retour True or False

je vous remercie d’avance pour votre aide car je suis vraiment dans la galère j'ai jamais fait un recherche sur un PDF en VBA ouvert avec un navigateur intrnet

cordialement

Edit de mon poste:

ci-dessous la fonction que j'ai faite mais elle me renvoi faux alors que le mot recherché est trouvé c'est pas normal j'ai besoin que la fonction me renvoi frai si le mot est trouvé sinon faux

Function findtxt() As Boolean
Set objIE = CreateObject("InternetExplorer.Application")
    PreRegList = "http://www.edu.xunta.gal/centros/iesnumero1estrada/system/files/LES%20NATIONALIT%C3%89S%20AU%20MASCULIN%20ET%20AU%20F%C3%89MININ_0.pdf"
    'sText = Interface.txtBPName.Value ' Interface - Userform, txtBPName - TextBox
       sText = "danois"
        With objIE
        .silent = True
        .Visible = True
        .navigate PreRegList
        End With

        Application.Wait (Now + TimeValue("0:00:02"))
        AppActivate objIE
        SendKeys ("^F")
        Application.Wait (Now + TimeValue("0:00:01"))
        SendKeys (sText)

        Application.Wait (Now + TimeValue("0:00:02"))
        SendKeys ("{ENTER}")

End Function