Batch convert appleworks to pdf in same folder

I need a script that will work in 10.5.8 on a powerPC machine (iBook G4) that will allow me to scan the entire drive for Appleworks documents, open them in AppleWorks, print to PDF, apply the same name and save in the same folder.
A bonus would be to also delete the original AppleWorks file while it's at it.
Anyone written something like this? I see some solutions that batch convert to PDF into a default folder - all I need is to save in the original file folder and delete the original doc. Of course I will be making a clone of the afected system beforehand.
Thanks in advance for any responses,
M

Two snags with that script:
- it does not put the PDF in the folder the original file came from
- it aborts if there is a message about contents not fitting on PDF print area
ANy suggestions on either?

Similar Messages

  • Mac OS batch convert .xls to .pdf not option

    Mac OS batch convert .xls to .pdf not option....WHY NOT???? This was never issue on Windows, and the software notes it supports pdf convert from .xls format (BUT NOT IN MAC VERSION) Any work arounds? Will this becoming in update? Really not acceptable for such expensive software.

    Hi Yvan,
    Thank you, that script will be most useful.
    Sincerely,
    RicD

  • Can I use Adobe Acrobat X Pro to batch convert v1.6 PDF files to v1.3?

    Recently I have posted up a project so the contractor can read the text in the PDF and create hyperlinks from these text. These PDFs are in format of engineering drawings.
    He informed me that he was going to use PHP to read the PDF text as javascript cannot.
    He then asked me to convert the version of our current PDF files from v1.6 to a lower version: v1.3, because php cannot work with higher PDF versions.
    So I found this PDF version converter: [link removed by forum host] but it only converts one by one. I have like a few hundreds of them, so I really need something to do batch convert.
    Could anyone help me out here? We (the small business I am working at) do not have Adobe Acrobat X Pro but will buy it if it can do the job.
    Otherwise could anyone advise me of any other software that can do this?
    Thanks heaps.

    Yes, Acrobat XI Pro can do this very easily. You can create an Action that runs the PDF Optimizer tool, which can convert the file content so it's compatible with any earlier version of PDF (as well as other things). Actions can then be run against a folder of files.

  • Can you Batch convert files to pdf's Acrobat 9 standard

    i am looking through Acrobat 9 standard and can not see any batch conversion to convert all the files in a folder to PDF's not (combining them) is this something available in other versions pro or extended? or am i just doing it wrong? may a script or something?

    There are no batch processes at all in Acrobat 9 Standard. Only Pro or higher has them.

  • Trying to convert R3D to mov but have the converted file placed in the same folder as the source R3D file.

    Hay all :-)
    Had a quick search and couldn't find an answer to this so asking the question :-)
    It looks like i'm going to have to use Premier Pro to convert all my R3D files to mov because *Another Piece of Software ;-)* just doesn't recognise them :-/
    I know i can import the R3D files into Premier and then export then as mov which is fine but the problem is in the export window theres no option to place the exported file into the same folder as the original R3D file, there is only the option of choosing a folder which, doesn't pre-designate itself to be the original files folder for some reason.
    I have 100s of R3D files to convert to mov and having to find and choose the correct folder for each of them individually would be an incredible pain.
    Thx for any help :-)

    Wow ... just checked through PrPro myself and queued out to AME, and even went into Prelude to try a transcode. You're right, you have to specify a location, or have one in the preset group ... but it has to be a specific one, there's no option for "original folder".
    I'd suggest a wish be placed on this, as there's times I'd want to use it also. 
    https://www.adobe.com/cfusion/mmform/index.cfm?event=processform&name=wishform
    Neil

  • How to batch convert .pages to .pdf  with automator & applescript

    Hi all,
    As the title states, I want to drag and drop one (or a whole stack) of .pages documents onto an automator app, and have it pump out .pdfs...
    Here is my code, it crashes with an error, but I'm really new to this so I don't really know what's going wrong.
    on run {input, parameters}
      tell application "Finder"
      repeat with aFile in input
      if class of (item aFile) is not folder then
      set {tName, fileExt} to {name, name extension} of aFile
      if fileExt is not missing value and fileExt is not "" then
      set tName to "PDFs/" & (text 1 thru -((count fileExt) + 2) of tName) & ".pdf"
      tell (get container of aFile)
      if not (exists folder "PDFs") then make new folder at it with properties {name:"PDFs"}
      tell application "Pages"
      set mydoc to open file aFile -- open input file in Pages
      export mydoc to file tName as PDF --do the exporting
      close mydoc saving no -- close the original file without saving
      end tell
      end tell
      end if
      end if
      end repeat
      end tell
    end run

    mirror318 wrote:
    One more thing, is it easy to change that script so that the output is put in a subfolder called "PDFs" (the folder would go in wherever the .pages file was)?
    This should save to a subfolder called "PDFs" in the Folder where the pages file is located:
    on open fs
      my proceed:fs
    end open
    on proceed:fs
      tell application "Finder"
      repeat with i from 1 to (get count of items in fs)
      if (name extension of item i of fs) is "pages" then
      --set PDFfile to text 1 thru -7 of (item i of fs as text) & ".pdf"
      set PDFfile to name of (item i of fs)
      set PDFfile to text 1 thru -7 of PDFfile & ".pdf"
      if not (exists (parent of (item i of fs) as text) & "PDFs") then
      make new folder at (parent of (item i of fs)) with properties {name:"PDFs"}
      end if
      set PDFfile to (parent of (item i of fs) as text) & "PDFs:" & PDFfile as text
      tell application "Pages"
      set mydoc to open (item i of fs) -- open input file in Pages 
      export mydoc to file PDFfile as PDF --do the exporting 
      close mydoc saving no -- close the original file without saving 
      end tell
      end if
      end repeat
      end tell
    end proceed:

  • How to batch convert wordperfect to PDF?

    I have roughly 600 wordperfect files that I need to convert to PDF. Is there a quick way to do this.

    Corel's WP has not / does not use anything of Adobe's to create PDFs.
    With Acrobat installed you can "file - print" WP files to the Adobe PDF virtual printer that is installed with Acrobat.
    Perhaps an OS based "batch" printer job would be possible. Something for you to look into.
    As well, if you have WP installed there may be something WP can do.
    To learn of such you'd want to visit Corel's WP customer support.
    Be well...

  • How to batch convert jpgs to pdfs?

    I am trying to figure out how to convert a bunch of jpg images to a single pdf file.  I know there are some 3rd party programs that will do this but I was wondering if it is possible to do right inside Adobe Acrobat.  I am running Adobe Acrobat 5.0.  Thank you for any help.

    That's an old version so I don't remember if it has this option but you "should" be able to go to File>Create PDF>From multiple files. Again, your version is old so it may not be there. It's available in the newer versions.

  • How do I batch convert files from pdf to pdf/a

    My company is scanning a bunch of old documents and wants to store the files as both pdf and pdf/a.  Many of the files have already been scanned as pdf, is it possible to convert them en mass to pdf/a?  Or must we continue to do them one at a time?

    XI Pro is better, the algorithm that fixes a PDF so it passes the compliance check is better. Not foolproof but much more likely to succeed than the one in Acrobat X.
    As Test Screen Name says you can automate saving to the untagged versions of PDF/A (such as PDF/A-1b) using an Action, simply by creating a new 'empty' action and changing the Save step options. In most cases it'll work, but if the input file is wildly out of compliance it can still throw an error. The biggest problems tend to originate with font embedding and when the PDF has comments applied.
    PDF/A versions with tagging (e.g. PDF/A-1a) are horrendous to create after the fact as you will almost certainly be hit with a long list of things you have to manually correct. Acrobat can't automate the fixes this time as it has no way to understand the semantics of each page. It's very strongly advised that those types of file are created directly in the authoring application (though Adobe has yet to implement that idea in InDesign, you can do it in MS Office).

  • How to batch convert pdf to jpgs, crop to trim and save?

    I'm trying to figure out how to take a couple of hundred PDFs, Crop them to trim, then convert them all to JPGs using any of the adobe programs.
    In bridge I was able to Batch convert all the PDFs to JPGs but it wouldn't crop them to the trim also...
    I thought I could use the Photoshop Image Processor to batch action crop and save them again but I always get one of two errors... "There were no source files that could be opened by Photoshop." or "Please Specify a destination folder."
    I don't know why this is coming up since I have it selecting the folders with the JPGs that I converted in Bridge and saving to another folder..
    Does anyone know if I can do all of this at once? Or how I can somehow get this to work so that II don't have to open,crop and save for each individual file?

    Corel's WP has not / does not use anything of Adobe's to create PDFs.
    With Acrobat installed you can "file - print" WP files to the Adobe PDF virtual printer that is installed with Acrobat.
    Perhaps an OS based "batch" printer job would be possible. Something for you to look into.
    As well, if you have WP installed there may be something WP can do.
    To learn of such you'd want to visit Corel's WP customer support.
    Be well...

  • Convert Files to PDF (Support Batch Mode)

    In order to save time on converting files to PDF, the function, batch conversion is developed by converter developers. Spire Free PDF Converter is one good choice to batch convert files (including Word, Excel, HTML, Text and All Image Formats) to PDF.
    How to Batch Convert Files to PDF?
    Download Spire Free PDF Converter here, install and run the application. Then, follow guide to convert
    Google Spire Free PDF Convert for getting more information and downloading.

    It looks like LiveCycle PDF Generator Requires a Java Application Server. Do you know a product that meets this requirement in a Microsoft server/development tools environment such as IIS, Asp, Visual Basic, .NET, C#, etc... (A solution that does not require a Java environment.)

  • Pre-configure save location for converting files to PDF from shell context menu

    Hi all,
    I like Acrobat's integration into the Windows Explorer through the shell context menu command "Convert to PDF", which allows me to drag select a number of files (word documents et cetera) to batch convert them into PDF. It beats doing batch processing fr the Acrobat interface.
    However, it asks me for the save location of each file individually. I would like to have them saved in the same directory as the original file, as the default option so I won't have to attend to the conversion. I can't find such an option in Acrobat's preferences menu though
    Any gurus or users here know of a way around that?
    Regards,
    Jay

    Does your user have custom add-ons besides the Acrobat PDFMaker add-on?  If so, try disabling the other add-ons as a test to see if you get the same results.
    Does your user have a custom template?  Try moving it out and using the standard MS Word template as test?
    Did your user have a previous installation of Adobe Acrobat??  If so, check the Add-ons to see if an older version is still registered with MS Word.

  • Making hypertext work if things are NOT in the same folder?

    I am writing a large doc with FM (FM 8.0p277), several appendix files, 100+pages, etc. I am using hypertext to link external PNG images with the document. This is working just fine (message openfile:filename.ext). Then, I print as PDF doc, and still keeping the PNGs and the newly created PDF in same folder- the hypertext link still works fine.
    My question is: this document will be released to clients, whom we can't necessarily make keep all elements in the same folder. Is there a way, when I generate the PDF of the final version, for the hypertext link to work if things are moved out of the same folder? I'm guessing not, but I thought if anyone would know, it would be in this forum...
    Thx
    Adriana

    If everything is in the same folder when the PDFs are created, then the links should all be relative. As long as the distributed files are all kept together when distributed, then things should continue work. However, if they move some files to different folders, then all bets are off.
    Why are you making external links to the graphics files instead of importing them by reference into the FM file - especially PNGs? This doesn't make any sense to me.
    If you need to keep everything separate initially (for whatever reason), then consider creating a PDF portfolio in Acrobat, that can't be split up, as the final deliverable.

  • Batch convert Pages files to Doc and stay in the same folder?

    Hi there,
    I use iWork '09 on Mountain Lion. I recently switched to Microsoft Word and prefer it over Pages (personal preference). However, I have nearly 1000 files on my computer that are in Pages format. I have extensively searched this issue in the Apple Support Communities and it appears that there are scripts that DO EXIST that batch convert Pages files into Word files. However, it appears that many of these scripts were built for older versions of iWork and therefore I run into various errors. For example, I used the script available at http://pagesfaq.blogspot.com/2008/01/export-folder-to-word-rtf-pdf-txt-or.html and click run but nothing actually happens (the script runs for less than a second, then I can click run again). I was able to use one script successfully (pasted below), but the only reason I can't use it is because it saves ALL my converted documents in one folder on my desktop and I would like a script that can save them in the original file were the Pages document is located.
    So, is there an iWork '09 compatible script that can convert my Pages documents to Word documents and save them in the same folder as the original? Oh, and for an added bonus, it'd be cool if the script also deleted my Pages version after it was done with the conversion
    --[SCRIPT batch_exportPages2DOC] (* Enregistrer ce script en tant que script ou progiciel. Exécuter ce script ou déposer l'icône d'un dossier sur son icône. Il ouvre tout document Pages du dossier et l' enregistre en fichier DOC  dans le dossier "was_Pages_now_DOC". Celui-ci peut être sur le bureau ou dans le dossier "~/Documents". Si le GUIscripting n'est pas activé le script demande votre mot de passe pour l'activer. Le script récupère le dossier d'exportation par défaut dans le fichier de préférences de Pages. Éviter de cliquer durant l'exécution du script sauf évidemment pour sélectionner le dossier source. ************* Save the script as script or application bundle. Run it or drag and drop a folder icon on its icon. It opens every Pages's documents stored in the folder and save it as DOC file in a folder named "was_Pages_now_DOC". This one may be on the desktop or in the "~/Documents" folder. according to the property storeOnDesktop. If GUIscripting is disabled the script ask for your password to enable it. The script extract the default export path from the Pages's preferences file. Don't click when the script is running. Except, of course, to select the source folder. ************* Yvan KOENIG (VALLAURIS, France) 2008/04/20 2009/06/17 adapté pour format .doc 2009/12/13 updated for MacOs 10.6… *) property theApp : "Pages" property theExt : "pages" property nomDuRapport : "report_Pages2DOC.txt" property nom_du_dossier : "was_Pages_now_DOC" property storeOnDesktop : true (* true = dest folder will be on Desktop false = dest folder will be in "~/Documents" *) property msg1 : "" -- globale property msg90 : "" -- globale property msg91 : "" -- globale -- property msg92 : "" -- globale property msg94 : "" -- globale property msg96 : "" -- globale property msg99 : "" -- globale property rapport : "" -- globale property dossierDeStockage : "" -- globale property dossierParDefaut : "" -- globale property localExport : "" -- globale property newExt : "" -- globale property newType : "" -- globale property isOs4 : missing value -- globale property isOs5 : missing value -- globale property theMenu : missing value -- globale property menuExport : missing value -- globale property types : {{"doc", "SLDocumentTypeMSWord", 2}, {"pdf", "SLDocumentTypePDF", 1}, {"txt", "SLDocumentTypePlainText", 4}, {"rtf", "SLDocumentTypeRichText", 3}, {"rtfd", "SLDocumentTypeRichTextBundle"}, 3} --===== (* our settings *) property typeNum : 1 (* 1 = WORD, 2 = PDF, 3 = Txt, 4 = rtf, 5 = rtfd *) property theButton : missing value (* 1          button PDF 2          button Word 3          button RTF 4 button Standard *) --===== on run (* lignes exécutées si on double clique sur l'icône du script application • lines executed if one double click the application script's icon *)             tell application "System Events" to set dossier to choose folder (* dans un bloc System Events pour avoir un titre de dialogue "localisé" • in a System Events block to get a localized dialog title. *)           my commun({dossier})             --          my commun({"Macintosh HD:Users:yvan_koenig:Desktop:for_see:" as alias}) end run --===== on open (sel) (* sel contient une liste d'alias des éléments qu'on a déposés sur l'icône du script (la sélection) • sel contains a list of aliases of the items dropped on the script's icon (the selection) *)           my commun(sel) end open --===== on commun(elems)           my nettoie()           my prepareMessages()             tell application "System Events"                     if not (UI elements enabled) then set (UI elements enabled) to true (* Active le GUI scripting • Enable GUI scripting *)                     set titres to title of processes           end tell -- to System Events             if theApp is not in titres then my activateTheApp() (* Active et ferme la fenêtre du document créé à l'ouverture • Activate and close the doc's window created at opening *)           set {newExt, newType, theButton} to item typeNum of types (* item 1 = {"doc", "SLDocumentTypeMSWord",2} item 2 = {"pdf", "SLDocumentTypePDF",1} item 3 = {"txt", "SLDocumentTypePlainText",4} item 4 = {"rtf", "SLDocumentTypeRichText",3} item 5 = {"rtfd", "SLDocumentTypeRichTextBundle",3} *)           set sysAtt to (system attribute "sys2")           if 4 > sysAtt then                     if my parleAnglais() then                               error "This script requires MacOs X 10.4 or higher !"                     else                               error "Ce script requiert MacOs X 1.4 ou ultérieur !"                     end if           else if 5 > sysAtt then                     set isOs4 to true                     set isOs5 to false                     if my getVersion() < "4" then                               set theMenu to 3                               set menuExport to 13                     else                               set theMenu to 10                               set menuExport to 9                     end if           else if 6 > sysAtt then                     set isOs4 to false                     set isOs5 to true                     if my getVersion() < "4" then                               set theMenu to 3                               set menuExport to 13                     else                               set theMenu to 10                               set menuExport to 8 (* was a wrong 9 *)                     end if           else                     set isOs4 to false                     set isOs5 to false                     if my getVersion() < "4" then                               set theMenu to 3                               set menuExport to 13                     else                               set theMenu to 10                               set menuExport to 8 (* was a wrong 9 *)                     end if           end if           my fermeFenetres() (* • Close existing windows *)             my afficheLeMessage(msg1) (* Éviter de cliquer… • Don't click… *)           tell application theApp to set localExport to localized string "Export"           set dossierParDefaut to my getDefaultExport() as text           set rapport to ""           set dossierDeStockage to my creeDossierDeStockage(nom_du_dossier) (* Unicode text *)             try                     repeat with elem in elems                               try                                         my exploreTraite(elem as alias, "")                               end try                     end repeat                       if rapport = "" then set rapport to msg90                     -- crée un fichier texte sur le Bureau                     set p2d to path to desktop                     set p2r to (p2d as Unicode text) & nomDuRapport                     tell application "System Events"                               if exists (file p2r) then delete (file p2r)                               make new file at end of p2d with properties {name:nomDuRapport}                     end tell                     set rapport to rapport as text                     write rapport to (p2r as alias)             on error MsgErr number NroErr                     if NroErr is not -128 then                               beep 2                               tell application (path to frontmost application as string) to ¬                                         display dialog "" & NroErr & " : " & MsgErr with icon 0 buttons {msg99} giving up after 20                     end if -- NroErr is…                     return           end try             my nettoie()           if my parleAnglais() then                     my afficheLeMessage("Export done.")           else                     my afficheLeMessage("Traitement terminé.")           end if end commun --===== on nettoie() (* pour ne pas stocker dans le fichier script • So it will not be stored in the script file *)           set dossierDeStockage to ""           set dossierParDefaut to ""           set rapport to ""             set localExport to ""           set newExt to ""           set newType to ""           set isOs4 to missing value           set isOs5 to missing value           set theMenu to missing value           set menuExport to missing value           set theButton to missing value           set msg1 to ""           set msg90 to ""           set msg91 to ""           set msg92 to ""           --           set msg94 to ""           set msg96 to ""           set msg99 to " " end nettoie --=====  on afficheLeMessage(m)           beep 1           tell application (path to frontmost application as string)                     activate                     if my parleAnglais() then                               display dialog m buttons {" OK "} default button 1 giving up after 10                     else                               display dialog m buttons {" Vu "} default button 1 giving up after 10                     end if           end tell end afficheLeMessage --===== on creeDossierDeStockage(Nom) (* S'il n'existe pas, construit un dossier destination sur le bureau ou dans "~/Documents" • If does not exist, create a destination folder on the desktop or in "~/Documents" *)           local dd, dds           if storeOnDesktop is true then                     set dd to path to desktop as Unicode text           else                     set dd to path to documents folder as Unicode text           end if             if Nom ends with ":" then                     set dds to dd & Nom           else                     set dds to dd & Nom & ":"           end if           (* dossierDeStockage n'existe pas, on le crée • dossierDeStockage is not available, build it *)           tell application "System Events" to if not (exists item dds) then make new folder at end of folder dd with properties {name:Nom}           return dds as Unicode text end creeDossierDeStockage --===== on exploreTraite(elem, ptree) (* elem est un alias • elem is an alias *)           local elem_, cl_, type_Id           set elem_ to elem as Unicode text           tell application "System Events" to tell disk item elem_                     set cl_ to class                     if cl_ is folder then                               set type_Id to ""                     else                               set type_Id to type identifier                     end if           end tell --  "System Events"           set cl_ to cl_ as Unicode text             if type_Id is in {"com.apple.iwork.pages.pages", "com.apple.iwork.pages.sffpages"} then (* C'est un fichier Pages. • It's a Pages document *)                     my TraiteUnDocument(elem_)           else if cl_ is in {"file package", "«class cpkg»"} then                     set rapport to rapport & msg91 & elem_ & return (* "Package", Attention, un package EST un dossier "spécial". • Caution, a package IS a "special" folder. *)           else if cl_ is in {"folder", "«class cfol»"} then                     my ExploreUnDossier(elem_, ptree)           else                     set rapport to rapport & msg92 & elem_ & return (*  "Pas un document Pages". • "Not a Pages's document" *)           end if -- typeId_ is … end exploreTraite --===== on ExploreUnDossier(dossier, ptree)           local nomElement, cheminElement, c           repeat with nomElement in list folder dossier without invisibles                     set cheminElement to dossier & nomElement                     tell application "System Events" to set c to name of (dossier as alias)                     my exploreTraite(cheminElement as alias, ptree & c & ":")           end repeat end ExploreUnDossier --===== on TraiteUnDocument(leCheminOriginal_UniText)           my export2Doc(leCheminOriginal_UniText as alias, leCheminOriginal_UniText) end TraiteUnDocument --===== on export2Doc(p, leCheminOriginal_UniText) (* • here p is the path as alias *)           local flag, nom_de_p, nouveauChemin, w, bof, x, p_xport           try                     tell application theApp                               open p                               set flag to false                               repeat 300 times (* Attends que le fichier soit réellement ouvert. • Wait until the file is really open *)                                         if my getNbWindows() > 0 then                                                   set flag to true                                                   exit repeat                                         end if                               end repeat                     end tell -- to theApp                     if flag is false then error number 8888 (* Le fichier n'a pu être ouvert. • The file can't be open. *)           on error MsgErr number NroErr                     if NroErr = 8888 then                               set rapport to rapport & msg94 & leCheminOriginal_UniText & return                     else                               set rapport to rapport & "### " & MsgErr & " ### " & errNbr & return                     end if                     return (* can't do the remaining tasks *)           end try             tell application "System Events" to tell file leCheminOriginal_UniText                     set nom_de_p to name           end tell -- System Events             if nom_de_p ends with theExt then set nom_de_p to text 1 thru -(2 + (length of theExt)) of nom_de_p           set nouveauChemin to dossierParDefaut & nom_de_p & "." & newExt           --log nouveauChemin           tell application "System Events" to if exists (file nouveauChemin) then set name of file nouveauChemin to nom_de_p & my horoDateur(modification date of file nouveauChemin) & "." & newExt (* name stamped *)           try                     set {w, bof} to my getFrontWindow()                       tell application "System Events" to tell application process theApp                               click menu item menuExport of menu 1 of menu bar item theMenu of menu bar 1 (* Exporter… *)                               repeat until exists sheet 1 of window w                                         delay 0.1                               end repeat                               tell sheet 1 of window w (* sheet containing the buttons PDF, Word, RTF, Standard *)                                         --          get properties of UI elements of radio group 1                                         if isOs4 then                                                   click button theButton of radio group 1                                         else if isOs5 then                                                   click checkbox theButton of radio group 1                                         else                                                   click radio button theButton of radio group 1 (* I hope that they will no longer change it *)                                         end if -- isOs4 is true                                         (*                                         if typeNum is 2 then                                                   delay 0.2                                                   tell pop up button 1                                                             click                                                             click menu item quality of menu 1                                                   end tell                                                   delay 0.2                                         end if                                         *)                                         click button 1 (* Suivant… *)                                         repeat until exists button localExport                                                   delay 0.1                                         end repeat                                         click button localExport (* Exporter… *)                               end tell -- to sheet…                                 repeat 20 times                                         if exists sheet 1 of window w then                                                   click button 2 of sheet 1 of window w (* "Ne pas consulter " dans éventuel rapport d'anomalies • "Don't review" in sheet reporting possible export anomalies *)                                                   exit repeat                                         end if                                         delay 0.1                               end repeat                     end tell -- to process … System Events                       if dossierDeStockage is not dossierParDefaut then (* we must move the file from folder dossierParDefaut to folder dossierDeStockage *)                                 set p_xport to dossierDeStockage & nom_de_p & "." & newExt                                 tell application "System Events" to if exists (file p_xport) then set name of file p_xport to nom_de_p & my horoDateur(modification date of file p_xport) & "." & newExt                               tell application "Finder" to duplicate file nouveauChemin to folder dossierDeStockage (*                               • before 10.5, System Events is unable to move *)                                 my wait4File(p_xport)                                 tell application "System Events" to if exists file nouveauChemin then delete file nouveauChemin                     end if -- dossierDeStockage is not…                     my ferme1fenetre()             on error errMsg number errNbr                     set rapport to rapport & msg96 & p & return & errMsg & " ### " & errNbr & return           end try end export2Doc (* ===== • Build a stamp from the modification date_time *) on horoDateur(dt)           local annee, mois, jour, lHeure, lesSecondes, lesMinutes           set annee to year of dt           set mois to month of dt as number (* existe depuis 10.4 *)           set jour to day of dt           set lHeure to time of dt           set lesSecondes to (lHeure mod 60)           set lHeure to round (lHeure div 60)           set lesMinutes to (lHeure mod 60)           set lHeure to round (lHeure div 60)           return "_" & annee & text -2 thru -1 of ("00" & mois) & text -2 thru -1 of ("00" & jour) & "-" & text -2 thru -1 of ("00" & lHeure) & text -2 thru -1 of ("00" & lesMinutes) & text -2 thru -1 of ("00" & lesSecondes) (* • Here, the stamp is  "_YYYYMMDD-hhmmss" *) end horoDateur (* ===== • Take care, the front window may be an Inspector or a dialog one. *) on getFrontWindow()           local namesOfWindows, w, flag           tell application theApp to activate           set flag to false           tell application "System Events" to tell application process theApp                     set namesOfWindows to name of every window                     repeat with w in namesOfWindows                               if subrole of (get properties of window w) is "AXStandardWindow" then                                         set flag to true                                         exit repeat                               end if                     end repeat           end tell           return {w, flag} (* • w is the name of the front document's window *) end getFrontWindow (* ===== • Wait that the file is completely written on disk *) on wait4File(p) (* • p must be Unicode text *)           local oldSize, nnn, newSize           set oldSize to 0           tell application "System Events" to set nnn to name of file p             repeat                     try                               tell application "System Events" to set newSize to physical size of file p                               if oldSize < newSize then                                         set oldSize to newSize                               else                                         exit repeat                               end if                     end try           end repeat end wait4File --===== on activateTheApp()           local bof, status           tell application theApp to activate           if my getStartingStatus() is false then tell application "System Events" to tell application process theApp to keystroke return           repeat                     set {bof, status} to my getFrontWindow()                     if status is true then exit repeat           end repeat end activateTheApp (* ===== • Close existing open windows *) on fermeFenetres()           repeat while my getNbWindows() > 0                     my ferme1fenetre()           end repeat (* • Now there is no open window *) end fermeFenetres --===== on ferme1fenetre()           tell application theApp to activate           tell application "System Events" to tell application process theApp to keystroke "w" using {command down} end ferme1fenetre --===== on getPlistValue(valName, default)           local thePlist, u           set thePlist to (path to preferences folder as Unicode text) & "com.apple.iWork." & theApp & ".plist"           tell application "System Events"                     if exists file thePlist then                               tell contents of property list file thePlist                                         try                                                   set u to (value of property list item valName) (* Unicode Text *)                                         on error (* On est là si Pages n'a rien enregistré avec des préférences neuves • Here if Pages never saved with the new preferences file. *)                                                   set u to default                                         end try                               end tell -- to contents of…                     else (* On est là s'il n'y a pas de fichier de préférences • Here if there is no preferences file. *)                               set u to default                     end if           end tell -- to system events           return u end getPlistValue --===== on getStartingStatus()           return my getPlistValue("LSDefaultsUseDefaultStartingPoint", false) end getStartingStatus --===== on getDefaultExport()           local u           (* son of a *****, I forgot that they don't use the same name !! *)           if theApp contains "Pages" then                     set u to my getPlistValue("SLDocumentDefaultExportDirectory", "~/Documents")           else if theApp contains "Numbers" then                     set u to my getPlistValue("LSDocumentDefaultExportDirectory", "~/Documents")           else                     error "I didn't coded a Keynote version !"           end if             set u to (POSIX file (do shell script "echo " & u)) as text           if u ends with ":" then                     return u           else                     return (u & ":")           end if end getDefaultExport --===== on getNbWindows()           tell application "System Events" to tell application process theApp to return count of windows end getNbWindows --===== on getLocale(a, x)           tell application a to return localized string x end getLocale --===== on getVersion()           try                     tell application theApp to return version           on error                     return "1"           end try end getVersion --===== on parleAnglais()           local z           try                     tell application theApp to set z to localized string "Cancel"           on error                     set z to "Cancel"           end try           return (z is not "Annuler") end parleAnglais --===== on prepareMessages()           if my parleAnglais() then                     set msg1 to "Don’t click when the script is running." & return & "Except, of course, if it ask for."                     set msg90 to "No problem during the export process."                     set msg91 to "Package"                     set msg92 to "Not a " & theApp & "’s document"                     --                     set msg94 to theApp & " can’t read it"                     set msg96 to "Not copied."                     set msg99 to "Oops"           else                     set msg1 to "Éviter de cliquer durant l’exécution du script" & return & "sauf s’il le demande."                     set msg90 to "Exportation réussie sans incident."                     set msg91 to "Package"                     set msg92 to "Pas un document " & theApp                     --                     set msg94 to theApp & " n’a pas pu le lire"                     set msg96 to "Pas copié."                     set msg99 to " Vu "           end if           set msg91 to "### " & msg91 & " ###  "           set msg92 to "### " & msg92 & " ###  "           --           set msg94 to "### " & msg94 & " ###  "           set msg96 to "### " & msg96 & " ###  " end prepareMessages --===== --[/SCRIPT]

    Try this app: http://tyorex.com/iWorkConverter
    Batch convert Pages files to doc and pdf.

  • Need to batch convert PDF to RTF while maintaining original folder structure

    I'm using Acrobat Pro 9 and I need a way to batch convert PDF files to RTF while maintaining the original folder structure.  So for instance, I might get a set of interview transcripts that were conducted with members of 1000 randomly selected households in 3 different cities.  Something like this, where the words in all caps are folder names:
    BOSTON
           HH1001
                PERSON-1A
                        Interview1.pdf
                        Interview2.pdf
                PERSON-2A
                        Interview1.pdf
                        Interview2.pdf
           HH1002
                PERSON-1A
                        Interview1.pdf
                        Interview2.pdf
                PERSON-2A
                        Interview1.pdf
                        Interview2.pdf
                PERSON-1C
                        Interview1.pdf
                        Interview2.pdf
    DETROIT
           HH2001
                PERSON-1A
                        Interview1.pdf
                        Interview2.pdf
                PERSON-2A
                        Interview1.pdf
                        Interview2.pdf
           HH2002
                PERSON-1A
                        Interview1.pdf
                        Interview2.pdf
                PERSON-2A
                        Interview1.pdf
                        Interview2.pdf
                PERSON-1C
                        Interview1.pdf
                        Interview2.pdf
    As u can see, the folder structure can get quite complicated and it's important to keep it the same.  Is there any way I can batch convert without having to open all 1000 files at once (which would crash the computer) or without having to add each subfolder to the Export Multiple Files window?
    I also tried saving the original folders and files in a portfolio and then converting the portfolio, but that puts all the converted files in a single folder.

    Bernd Alheit wrote:
    For the output location choose 'Same Folder as Original(s)'
    Yes, I've done that many times.  It doesn't put them in the correct folder structure, it just puts all the new files in the highest-level folder.

Maybe you are looking for