[AS] Problem with exporting all pages individually

Question

Hi, I ain't found any solutions by my self or on the web, so I hope, someone can help here.
I wrote this piece of AS code. I wish it exports all the pages as separate PDFs.
Alas, it crashes saying that the script ca't understand the page range.
Could you please telle me where I do bad ?
set Fpath to (choose folder with prompt "pick") as string
tell application "Adobe InDesign CS3"
set mydoc to active document
set pcount to count pages of mydoc
repeat with p from 1 to pcount
tell PDF export preferences
set page range to p as string
end tell
set docname to "toto" & "_" & p & ".pdf"
set pdfname to Fpath & docname
export to file (pdfname) format PDF type using "[PDF/X-1a:2001]" without showing options
end repeat
end tell
thanks in advance,
Loic

Answer 1

Hi Loic,
Here is a little altered version of the ExportEachPageAsPDF script from the examples provided by Adobe. I assume, from the script you posted, that you want exported files to be named in the following way: toto + _ + page number + .pdf. But in my judgement, it would be more reasonable to use the name of active document without extension instead of "toto".
Why are you trying to reinvent the wheel? Isn't it better to take a ready-made script and remake it to your needs?
Kasyan
tell application "Adobe InDesign CS3"
if (count documents) is not equal to 0 then
my myChooseFolder()
else
display dialog "Please open a document and try again."
end if
end tell
on myChooseFolder()
set myFolder to choose folder with prompt "Choose a Folder"
--Get the folder name (it'll be returned as a Unicode string)
set myFolder to myFolder as string
--Unofficial technique for changing Unicode folder name to plain text string.
set myFolder to "class ktxt" of (myFolder as record)
if myFolder is not equal to "" then
my myExportPages(myFolder)
end if
end myChooseFolder
on myExportPages(myFolder)
tell application "Adobe InDesign CS3"
set myDocument to active document
--set myDocumentName to name of myDocument
repeat with myCounter from 1 to (count pages in myDocument)
set myPageName to name of page myCounter of myDocument
set page range of PDF export preferences to name of page myCounter of myDocument
--Generate a file path from the folder name, the base document name, and the page name.
--Replace any colons in the page name (e.g., "Sec1:1") so that they don't cause
--problems with file naming.
set myPageName to my myReplace(myPageName, ":", "_")
set myFilePath to myFolder & "toto" & "_" & myPageName & ".pdf"
tell myDocument
--The export command will fail if you provide the file path
--as Unicode text--that's why we had to convert the folder name
--to plain text.
export format PDF type to myFilePath using "[PDF/X-1a:2001]"
end tell
end repeat
end tell
end myExportPages
on myReplace(myString, myFindString, myChangeString)
set AppleScript's text item delimiters to myFindString
set myTextList to every text item of (myString as text)
set AppleScript's text item delimiters to myChangeString
set myString to myTextList as string
set AppleScript's text item delimiters to ""
return myString
end myReplace