Bonjour,
J'avais du faire un petit script applescript qui faisait ça c'était avec word 2011, mais il devrait fonctionner avec word 2016.
Word étant ouvert, il faut lancer le script qui te demande de choisir le dossier contenant le fichiers word puis de choisir un dossier qui réceptionnera les pdf.... puis attendre le message de fin.
Je remets le script.
[CODE]tell application "Finder"
set cheminsource to choose folder with prompt "Sélectionnez le dossier contenant les fichiers à exporter en PDF"
set chemincible to choose folder with prompt "Sélectionnez le dossier cible"
my inspecter(cheminsource, chemincible)
end tell
on inspecter(source, cible)
tell application "Finder"
-- traitement des fichiers :
set les_fichiers to files of source
repeat with chaque_fichier in les_fichiers
-- traitement d'un fichier
tell application "Finder"
set lefichier to chaque_fichier
set nom to name of chaque_fichier -- recupere le nom du fichier
set extens to document file nom in source --recupere l extension du fichier
set lextension to name extension of extens
if lextension = "docx" then
set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur
set AppleScript's text item delimiters to {"."} --récupère la partie avant le dernier "."
set elements to text items of nom
set nomcourt to (items 1 thru -2 of elements) as string
set ancien_nom to nomcourt
set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur
set sortie to cible & ancien_nom & ".pdf" as string --défini le chemin de sortie
set extension hidden of lefichier to false -- force affichage de l'extension
set lefichier to chaque_fichier as string
tell application "Microsoft Word"
open file lefichier -- ouvre le fichier dans Word
set theActiveDoc to the active document
save as theActiveDoc file format format PDF file name sortie
close document nom --ferme le fichier
end tell
end if
end tell
end repeat
-- traitement des dossiers :
set les_dossiers to folders of source
repeat with chaque_dossier in les_dossiers
-- traitement d'un dossier
my inspecter(chaque_dossier)
end repeat
end tell
end inspecter
tell application "Finder"
(display dialog ("waouou ... Ca y est c'est fait !") buttons {"Salut !"})
end tell[/CODE]
