Paramètres pour accrord32.exe

Version imprimable

11/02/2015, 09h47
pc75

Paramètres pour accrord32.exe
Bonjour,

J'utilise cette commande pour faire une recherche dans un fichier PDF :
Code:

1 2 3 Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.run "AcroRd32.exe /A ""zoom=50&navpanes=1=OpenActions&search=serveur"" Fichier.pdf"
Le PDF s'ouvre bien et la fenêtre des résultats de la recherche également.

Je ne trouve nulle part une option qui permettrait de lancer cette recherche sur tous les PDFs d'un répertoire.

Si quelqu'un connait l'astuce ?

Merci.

:salut:
Testez comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Dim KeyWord,WshShell,fso,PDFFile
KeyWord = "serveur"
Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
 
For each PDFFile in FSO.GetFolder(Parcourir_Dossier()).Files
    If (UCase(fso.GetExtensionName(PDFFile.Name))) = UCase("PDF") Then
        WshShell.run "AcroRd32.exe /A ""zoom=50&navpanes=1=OpenActions&search="& KeyWord &" "" "& PDFFile &""
    end if
Next
 
'****************************************************************************************************
Function Parcourir_Dossier()
    Dim objShell,objFolder
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0, "Veuillez choisir un dossier pour rechercher dans les fichiers en PDF  ",1,"c:\Programs")
    If objFolder Is Nothing Then Wscript.Quit
    Parcourir_Dossier = objFolder.self.path
end Function
'****************************************************************************************************

12/02/2015, 13h43
pc75

1 pièce(s) jointe(s)

Bonjour et merci de ta réponse,

Mais ça ne répond pas à mon besoin.
Boucler sur les fichiers d'un répertoire n'est pas un problème, je sais faire.
Avec cette méthode, je vais me retrouver avec tous mes PDFs ouverts.
Mon but, c'est de proposer à l'utilisateur l'affichage du résultat de la recherche, comme quand on fait une recherche avancée avec Acrobat en choisissant l'option "dans tous les documents PDF dans" + le répertoire à explorer.

C'est la partie dans le cadre rouge que je cherche à récupérer pour afficher des liens sur une page.
Pièce jointe 168861

Je dois réaliser ça sur un intranet en asp 3.
15/02/2015, 05h51
kiki29

Salut, juste par curiosité, ce n'est pas du VBS mais du VBA ( "Acrobatique" via des Sendkeys ) : ici.
16/02/2015, 09h57
pc75

Merci, c'est effectivement "Acrobatique" !

Mais ça ne répond pas à mon besoin, car le but est d'afficher des liens sur une page dans un environnement intranet.
19/03/2015, 14h33
kiki29

Salut, depuis les choses se sont très largement améliorées, grâce à un travail remarquable de Davido84 : voir Acrobat Reader : Recherche dans tous les PDFs d'un dossier (via APIs), peut-être transposable ?