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 :
► Afficher le texte
► Afficher le texte
Le voici :
#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
#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
Bien sur,
32bits : http://www.mediafire.com/download/2cb74avu963upih/WordPDF.Exe
64bits : http://www.mediafire.com/download/5a5lcjyve6m7y3k/WordPDF64bits.Exe
Bonne journée