--property targetFolder : "Sistema Mac Os --10.4:Usersippopippo:test:"

property extension_list : {"indd"}
property stilePDF : "[pietro-fram]"

--property targetFolder : (choose folder with prompt --"seleziona il folder che conterra' i pdf:") as string
set sourceFolder to (choose folder with prompt "Seleziona il folder contenente i folder dei cataloghi:") as string


processFolder(sourceFolder)

on processFolder(sourceFolder)
tell application "System Events"
set these_folders to every folder of folder sourceFolder
end tell
repeat with i from 1 to the count of these_folders
set theFolder to item i of these_folders
processInDesignItem(theFolder, sourceFolder)
end repeat
display dialog "end"

end processFolder

on processInDesignItem(theFolder, targetFolder)
tell application "System Events"
set these_files to every file of theFolder
end tell

repeat with i from 1 to the count of these_files
set theFile to (item i of these_files as alias)
set this_info to info for theFile

if the file type of the this_info is in the extension_list then

tell application "InDesign 2.0.2"
set myDocument to open theFile
tell active document
set rn to (random number (1000)) as text
set fname to targetFolder & rn & (the name of this_info) & ".pdf"

export format PDF type to fname using stilePDF without showing options
close myDocument saving no
end tell
--close active document saving no
end tell
end if
end repeat
end processInDesignItem

tell document 1

using terms from application "InDesign 2.0.2"
--qui va il codice che hai scritto tu
end using terms from

tell myDocument

tell app "InDesign"
    tell active document
        export format PDF type to (choose file name) using "[pietro-fram]" without showing options
    end tell
end tell

export active document format PDF type ...

tell app "InDesign"
    tell active document
        export format PDF type to (choose file name) using "[pietro-fram]" without showing options
    end tell
end tell

tell app "InDesign"
    open (choose file)
    tell active document
        export format PDF type to (choose file name) using "[pietro-fram]" without showing options
    end tell
end tell

set myDocument to open theFile
delay 5
tell active document

set rn to (random number (1000)) as text
set fname to targetFolder & rn & (the name of this_info) & ".pdf"

export active document format PDF type to fname using stilePDF without showing options