[..] Compression Image word

[jcaspar]

B onjour à tous !

Je souhaiterai automatiser la compression des images sur les documents word existants
j'ai bien trouvé une petite macro vba mais elle n'est pas optimale ...

pensez vous qu'il soit possible de réaliser la chose en autoit ?

En vous remerciant d'avance pour vos conseils et astuces

Code : Tout sélectionner

Sub CompressImages()
CommandBars("Picture").FindControl(ID:=6382).Execute
SendKeys "a"
SendKeys "w"
SendKeys "{enter}"
SendKeys "a"
End Sub
 

[ZDS]

Bonjour,

C'est tout à fait possible à mon avis. Voici le genre de fonction qui devrait correspondre :

Code : Tout sélectionner

Func CompressImages()
    ControlClick("Titre fenetre", "", "[ID:6382]") ; Pas sûr pour ça, apparemment tu veux plutot toucher à une toolbar
    Sleep(100)
    Send("a")
    Sleep(100)
    Send("w")
    Sleep(100)
    Send("{ENTER}")
    Sleep(100)
    Send("a")
EndFunc

Pas facile de te donner un code fonctionnel, je ne sais même pas sur quelle version de Word tu travailles (perso, j'ai pas été foutu de trouver ton bouton 6382 sur Word 2010 Extended, ni sur 2007).

A bientôt.

[mikell]

C'est parce qu'il faut faire Affichage => barres d'outils => image
Sur la toolbar 'Image' produite il y a un bouton 'compresser les images', par contre Au3info ne donne pas d'ID pour ce bouton... est-ce lui ?

[jcaspar]

Merci pour vos réponses précédentes !

Je pense qu'il est possible d'utiliser conjointement le code VBA et autoit et parvenir à mes fins !
dans autoit il est possible de lancer une macro en VBA voici grosso modo la syntaxe ...

Maintenant il reste à peaufinner cela ...
peut être avez vous des idées ?

Merci d'avance pour vos conseils et suggestions !

Code : Tout sélectionner

#NoTrayIcon
#include <word.au3>

local $oWordApp,$oDoc


$oWordApp = _WordCreate ("")
$oDoc = _WordDocOpen ($oWordApp, @ScriptDir & "\Test.doc")

_WordMacroRun($oDoc,"compression_a_la_noix")

WinActivate("[CLASS:bosa_sdm_Microsoft Office Word 11.0]")
send("{ENTER}")
send("A")