Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Prog] Word --> PDF
Auteur Message
Répondre en citant
Message [Prog] Word --> PDF 
Bonjour !

Voici mon premier programme AutoIt : Word --> PDF

A quoi sert-il ?
Il sert à convertir un fichier .doc ou .docx en fichier .pdf

Comment l'utiliser ?
Il vous suffit de mettre un dossier où sont les fichiers word dans le premier input puis de rafraichir la liste des fichiers. Enfin, définir un fichier de destination et un nom pour le pdf.
Normalement, le programme va vous ouvrir le fichier word et va vous dire si la conversion s'est bien passé où si il y a eu une erreur.

Que faut-il pour l'utiliser ?
Il vous suffit d'avoir Word.

A quoi il ressemble ?
Screenshot du logiciel à l'ouverture :


Screenshot du logiciel remplis :


Quel est le code ?
Le voici :

Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\AutoIt3\Icons\au3.ico
#AutoIt3Wrapper_Outfile=C:\Users\LavaPower\Desktop\Word - PDF\Word - PDF.Exe
#AutoIt3Wrapper_Outfile_x64=C:\Users\LavaPower\Desktop\Word - PDF\Word - PDF64bits.Exe
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_Res_Comment=Par LavaPower
#AutoIt3Wrapper_Res_Description=Convertisseur Word --> PDF
#AutoIt3Wrapper_Res_Fileversion=1.0
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Word.au3>
#include <MsgBoxConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <GuiComboBox.au3>

#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Word --> PDF", 430, 279, 192, 124)
Global $Label1 = GUICtrlCreateLabel("Convertisseur Word ----> PDF", 0, 16, 428, 41)
GUICtrlSetFont(-1, 25, 400, 0, "MS Sans Serif")
Global $Input1 = GUICtrlCreateInput("", 192, 72, 225, 21)
Global $Label2 = GUICtrlCreateLabel("Dossier des fichiers words :", 24, 72, 132, 17)
Global $Combo1 = GUICtrlCreateCombo("", 192, 112, 145, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
Global $Label3 = GUICtrlCreateLabel("Choix du fichier word :", 24, 112, 108, 17)
Global $Button1 = GUICtrlCreateButton("Rafraichir", 344, 112, 75, 25)
Global $Input2 = GUICtrlCreateInput("", 192, 152, 225, 21)
Global $Label4 = GUICtrlCreateLabel("Dossier de destination des pdfs :", 24, 152, 157, 17)
Global $Input3 = GUICtrlCreateInput("", 192, 192, 225, 21)
Global $Label5 = GUICtrlCreateLabel("Nom du fichier pdf :", 24, 192, 96, 17)
Global $Button2 = GUICtrlCreateButton("Convertir", 160, 232, 115, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

GUICtrlSetData($Input1, @ScriptDir & "")
GUICtrlSetData($Input2, @ScriptDir & "\PDF")

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Button1
         _GUICtrlComboBox_ResetContent($Combo1)
         $dossier = GUICtrlRead($Input1)
         $listeFichiers = _FileListToArrayRec($dossier, "*.docx;*.doc", 1, 0, 1, 0)
         If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word --> PDF", "ERREUR : " & @error & @CRLF & "Il n'y a peut être pas de fichier .docx ou .doc")

         For $i = 1 To $listeFichiers[0]
            GUICtrlSetData($Combo1, $listeFichiers[$i])
         Next
         MsgBox(1, "Word --> PDF", "Rafraichissement fait !")
      Case $Button2
         $VCombo = GUICtrlRead($Combo1)
         $VInput1 = GUICtrlRead($Input1)
         $VInput2 = GUICtrlRead($Input2)
         $VInput3 = GUICtrlRead($Input3)
         If $VCombo = "" Then
            MsgBox($MB_SYSTEMMODAL, "Word --> PDF", "ERREUR : Vous n'avez rien sélectionné")
         ElseIf $VInput1 = "" Then
            MsgBox($MB_SYSTEMMODAL, "Word --> PDF", "ERREUR : Vous n'avez pas de dossier d'expédition")
         ElseIf $VInput2 = "" Then
            MsgBox($MB_SYSTEMMODAL, "Word --> PDF", "ERREUR : Vous n'avez pas de dossier de destination")
         ElseIf $VInput3 = "" Then
            MsgBox($MB_SYSTEMMODAL, "Word --> PDF", "ERREUR : Vous n'avez pas de nom de fichier")
         ElseIf FileExists($VInput2) = 0 Then
            DirCreate($VInput2)
         Else
            $sFileName = $VInput2& "\"& $VInput3&".pdf"
            if @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word --> PDF","ERREUR : erreur au nom du fichier final ("&@error&")")

            $oWocal = _Word_Create()
            If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word --> PDF", _
                  "ERREUR : Erreur à la création du word ("&@error&")")

            $oLocal = _Word_DocOpen($oWocal, $VInput1 & "\" & $VCombo, Default, Default, True)
            If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word --> PDF", _
                  "ERREUR : Impossible d'ouvrir le fichier dossier ("&@error&")")

            _Word_DocExport($oLocal, $sFileName)
            If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word --> PDF", "ERREUR : Erreur à l'exportation ("&@error&")")

            MsgBox(0, "Word --> PDF", "Conversion faite !")

            _Word_DocClose($oWocal)
         EndIf
   EndSwitch
WEnd



Un lien pour le télécharger ?
Bien sur,
32bits : http://www.mediafire.com/download/2cb74avu963upih/WordPDF.Exe
64bits : http://www.mediafire.com/download/5a5lcjyve6m7y3k/WordPDF64bits.Exe

Bonne journée




______________________________________________________
Je ne suis pas ce que je suis. Mais si j'étais ce que je suis alors je ne serais pas ce que je suis actuellement (vous avez 2 heures).

Python : 90%
Batch : 65%
AutoIt : 20%

Site : http://lavapower.890m.com
Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch