je me suis dit que j'allais passer par word mais la suis perdu .
Avez vous des idee ?
voici le code.
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <Word.au3>
#include <WordConstants.au3>
#include <FileConstants.au3>
Local $objWord = _Word_Create()
#Region ### START Koda GUI section ### Form=C:\Users\CardeiraD\Pictures\BadgeMAF.kxf
Global $Form1_1 = GUICreate("AGO Badge", 482, 262, 566, 483)
GUISetBkColor(0xFFFFFF)
Global $Nom = GUICtrlCreateInput("Nom", 136, 152, 209, 21)
Global $Prenom = GUICtrlCreateInput("Prenom", 136, 184, 209, 21)
Global $Print = GUICtrlCreateButton("Print", 78, 227, 129, 25)
Global $Reset = GUICtrlCreateButton("Reset", 262, 227, 129, 25)
Global $Pic1 = GUICtrlCreatePic("*.jpg", 76, 32, 457, 81)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Print
if $Print Then
$oWordApp = _Word_Create (@TempDir & "c:\prive\autoit\badge.doc",0)
$oDoc = _Word_DocGet ($oWordApp, 0)
_Word_DocFindReplace($oDoc, "Nom", GUICtrlRead($Nom),$wdreplaceone)
_Word_DocFindReplace($oDoc, "Prenom", GUICtrlRead($Prenom),$wdreplaceone)
_Word_DocSaveAs($oDoc, @TempDir & "c:\prive\autoit\Facture\ " & GUICtrlRead($Nom) & ".doc")
_Word_Quit ($oWordApp, 0)
Exit
EndIf
EndSwitch
WEnd
