IPB

Bienvenue invité ( Connexion | Inscription )

 
Reply to this topicStart new topic
> Conversions fichiers Pages en Word ou PDF
Options
hugo28
posté 19 Apr 2018, 18:32
Message #1


Nouveau Membre


Groupe : Membres
Messages : 1
Inscrit : 19 Apr 2018
Membre no 204 739



Bonjour,

N'ayant pas trouvé d'application pouvant lire les documents Pages sur Android, je suis à la recherche d'une méthode pour convertir de nombreux fichiers page en word ou en pdf.
J'ai vu pas mal de scripts mais ils semblent etre trop vieux...

Merci d'avance de votre aide
Go to the top of the page
 
+Quote Post
Zeltron54
posté 20 Apr 2018, 06:38
Message #2


Adepte de Macbidouille
*

Groupe : Membres
Messages : 115
Inscrit : 15 Mar 2008
Lieu : Lorraine
Membre no 110 156



Bonjour,
Voilà un petit applecript qui demande le dossier contenant les fichiers pages à transformer, puis demande le dossier de réception ldes fichiers pdf obtenu.
Il transforme tous les fichiers "page" trouvés y compris dans les sous dossiers.


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 = "pages" 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 "Pages"
open file lefichier -- ouvre le fichier dans pages


export document nom to file sortie as PDF --exporte en PDF

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

Ce message a été modifié par Zeltron54 - 20 Apr 2018, 06:38.


--------------------
Imac 27 I7 Fusion drive fin 2013 Ram 8Go Mac OS X (10.13.6)
MacBook Pro 15 pouces mi-2012 8Go Ram Mac OS X (10.13.6)
Go to the top of the page
 
+Quote Post

Reply to this topicStart new topic
1 utilisateur(s) sur ce sujet (1 invité(s) et 0 utilisateur(s) anonyme(s))
0 membre(s) :

 



Nous sommes le : 18th August 2018 - 03:13