AutoIt Français

Code : Tout sélectionner

#include <Array.au3>
Opt('WinTitleMatchMode',2)
$Lecteur_Pdf = 'M:\Backup\Portable\Foxit Reader.exe'
$result = 'C:\Users\Sage Pourpre\Desktop\1.pdf'
$PID = Run($Lecteur_Pdf & ' "' & $result & '"')  ; Run plutôt que ShellExecute afin de récupérer le Pid du processus
$hWnd = WinGetHandle($PID) ; Utilisation du PID pour récupérer la fenêtre associée au programme
WinWaitActive($hWnd) ; Attente d'activation de la fenêtre du lecteur
Send('^f') ; Envoi de CTRL+F
WinWaitActive('Find Text') ; Attente de la fenêtre Rechercher
Send('te') ; Envoi du terme à rechercher
Sleep(100) ; délai ... non nécessaire
Send('!f') ; Envoi de ALT+F afin de lancer la recher
Sleep(100)
; Besoin d'ajouter une vérification pour réagir si la fenêtre 'FoxitReader has finished searching the document' apparaît
Send('{ESC}') ; Fermeture de la fenêtre de recherche
$page = ControlGetText($hWnd,'','[CLASS:ComboBox; INSTANCE:1]') ; Récupération du texte contenu dans la fenêtre d'identification de la page en cours
ConsoleWrite($page & @CRLF)
$page = StringRegExp($page,'(.*) of',1) ; Permet de changer le format '3 of 10' (3eme page sur 10) pour ne garder que le 3
$page = $page[0]

ConsoleWrite($page & @CRLF)

; Et voilà... on a le numéro de page qu'on va pouvoir insérer dans la fenêtre d'impression plus tard.

; Il est possible d'inserer une boucle for next qui cherchera chaque instances de notre terme pour les
; stocker dans un tableau et ensuite lancer l'impression de plusieurs page contenant ce terme. 


 

Code : Tout sélectionner

ShellExecute('AcroRd32.exe', ' /A "toolbar=0&navpanes=0&search=”toto”" "C:\AutoitDev\PDFOpenParameters.pdf"')

Code : Tout sélectionner

ShellExecute('AcroRd32.exe', ' /A "toolbar=0&navpanes=0&scrollbar=0&page=4&view=FitB" "C:\AutoitDev\PDFOpenParameters.pdf"')

Code : Tout sélectionner

#include <Array.au3>

Global $text,$Tab
Global $Rechercher = 'word1' ; reference a rechercher
Global $Path = 'C:\AutoitDev\' ; chemin du fichier PDF
Global $PDFfile = 'PDFOpenParameters.pdf' ; nom du fichier PDF
Global $OpenParameters = ' /A "toolbar=0&navpanes=0&search=”'
Global $Command = $OpenParameters & $Rechercher & '”" "'&$Path&$PDFfile&'"'

AutoItSetOption("WinDetectHiddenText", 1) ; affiche le texte caché

ShellExecute('AcroRd32.exe',$Command) ; execute la commande de recherche
WinWaitActive("[CLASS:AVL_AVWindow]","Search"); attendre la recherche...

$text = WinGetText("[CLASS:AcrobatSDIWindow]", "") ; recupere partielement le texte de la fenetre
$Tab = StringSplit ($text,@LF) ; on transforme la chaine en tableau
;_ArrayDisplay($Tab, "text caché : ") ; Afficher le text cacher
MsgBox(0, "Text read was:", "imprimer la page : " &$Tab[4])