[..] Ouvrir tous les fichiers word d'un dossier

[jcaspar]

B onjour à tous !

Je voudrais ouvrir tous les fichiers word situés dans un dossier pour leur appliquer une macro
l'idéal serait d'ouvrir le premier fichier, appliquer la macro,
le fermer , passer au suivant etc ...

Comment faire pour ouvrir un fichier , le fermer et ainsi de suite
voici mon code de départ ...

Je vous remercie d'avance pour vos conseils !

Code : Tout sélectionner

#include <word.au3>

$dossier=FileChangeDir("c:\appli")
$search = FileFindFirstFile("*.*")  


while 1
$file = FileFindNextFile($search) 

$oWordApp = _WordCreate (@ScriptDir & "\Test.doc")
_WordMacroRun($oWordApp,"CompressImages")
 _WordDocClose($oWordApp)
wend







 

[moi]

pour ouvrir écrire puis fermer tu peut faire :

Code : Tout sélectionner

If FileExists($file) = 1 then
  fileopen($file, 1)
  filewrite('macro utilisé')
  fileclose($file) 
elseIf FileExists($file) = 0 then
  _filecreate($file)
  fileopen($file, 2)
  filewrite('macro utilisé')
  fileclose($file)
 endif
 

tu dis si ça marche pas ou si ce n'est pas ce que tu cherche.
(je n'ai pas eu le temps de le tester)...

EDIT : pour que _filecreate fonctionne tu dois :
#include <File.au3>

[mikell]

ça devrait marcher

Code : Tout sélectionner

#include <word.au3>

$search = FileFindFirstFile("c:\appli\*.doc")  

While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$oWordApp = _WordCreate($file)
_WordMacroRun($oWordApp,"CompressImages")
_WordQuit ($oWordApp, -1)
Wend

FileClose($search)
 

Après, pour la macro, chépa