AutoIt Français

#include <File.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

#include <WindowsConstants.au3>
#include <Word.au3>

Global $Dossiertmp, $ObjWord

If FileExists($Dossiertmp) Then DirRemove($Dossiertmp, 1)

$pdf_info = @TempDir & '\pdfinfo.exe'
$pdf_png = @TempDir & '\pdftopng.exe'
FileInstall('pdfinfo.exe', $pdf_info)
FileInstall('pdftopng.exe', $pdf_png)

Global $Form1 = GUICreate("Form1", 542.5, 31, 192, 124, $ws_popupwindow, $WS_EX_ACCEPTFILES)
GUISetFont(9, 400, 0, "comic sans ms")

$lbl = GUICtrlCreateLabel("Glissez/Déposez le fichier PDF afin de le convertir en un seul un fichier Texte", 5, 5.5, 450, -1)

GUICtrlCreateGraphic(460, 5, 20, 20)
GUICtrlSetColor(-1, 0x123123)
GUICtrlSetBkColor(-1, 0xA0A0A0)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)

$Red = GUICtrlCreateButton("-", 490, 4.5, 23, 23)
$Quit = GUICtrlCreateButton("X", 515, 4.5, 23, 23)


GUISetState(@SW_SHOW)


While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE, $Quit
         _Word_Quit($ObjWord)
         FileDelete($pdf_info)
         FileDelete($pdf_png)
         DirRemove($Dossiertmp, 1)
         Exit
      Case $Red
         GUISetState(@SW_MINIMIZE)

      Case $GUI_EVENT_DROPPED
         Local $sDrive, $sDir, $sFileName, $sExtension

         $FichierPDF = @GUI_DragFile
         _PathSplit($FichierPDF, $sDrive, $sDir, $sFileName, $sExtension)
         $Dossier = @DesktopDir & '\pdf_vdoc'
         $FichierDoc = $Dossier & '\' & $sFileName & ".doc"

         While 1

            If StringRight($FichierPDF, 4) = '.pdf' Then

               $Progress = GUICtrlCreateProgress(460, 5, 20, 20, $PBS_MARQUEE)
               GUICtrlSendMsg($Progress, 0x0400 + 10, 1, Number(30)) ; on envoie la barre de progressiob

               $Dossiertmp = @TempDir & '\pdf_vdoc_png'
               DirRemove($Dossiertmp, 1)
               DirCreate($Dossiertmp)

               $command = $pdf_info & ' "' & $FichierPDF & '"|find "Pages"'
               Local $nPid = Run(@ComSpec & " /c " & $command, "", @SW_HIDE, 8), $pagett = ""
               ProcessWait($nPid)
               While 1
                  $pagett &= StdoutRead($nPid)
                  If @error Or (Not ProcessExists($nPid)) Then ExitLoop
               WEnd
               $var = StringSplit($pagett, @CRLF, 1)
               $pagett = StringStripWS(StringReplace($var[$var[0] - 1], 'pages:', ''), 8)

               $command = $pdf_png & ' -f 1 -l ' & $pagett & ' "' & $FichierPDF & '" "' & $Dossiertmp & '\png"'
               RunWait(@ComSpec & " /c " & $command, "", @SW_HIDE)

               $Dossier = @DesktopDir & '\pdf_vdoc'
               $FichierDoc = $Dossier & '\' & $sFileName & ".doc"
               DirCreate($Dossier)
               FileDelete($FichierDoc)

               $PngFile = _FileListToArray($Dossiertmp, '*.png', 1, True)
               If @error Then ExitLoop

               $FDOC = FileOpen($FichierDoc, 2)
               FileClose($FDOC)

               Local $oWord = _Word_Create(False, True)
               Local $oDocPart = _Word_DocOpen($oWord, $FichierDoc)

               For $a = $PngFile[0] To 1 Step -1
                  _Word_DocPictureAdd($oDocPart, $PngFile[$a])
               Next
               _Word_DocSaveAs($oDocPart, $FichierDoc)
               _Word_DocClose($oDocPart)
               _Word_Quit($oWord)

               GUICtrlDelete($Progress)
               
               DirRemove($Dossiertmp, 1)
               ShellExecute($FichierDoc)

            EndIf

            ExitLoop
         WEnd





   EndSwitch
WEnd