script to pdf convert all text to outline

I got a tip from somewhere else, the following should be OK, I hope it is useful to everyone

set myFolder to (((path to desktop) as text) & "thScript:temp:")

tell application "Finder"

set pdfFileName to "test.pdf"

set filePath to myFolder & pdfFileName

tell application "Adobe Acrobat"

activate

open file filePath

tell document 1

do script "var oProfile = Preflight.getProfileByName('Convert fonts to outlines');
this.preflight(oProfile);"

end tell

save document pdfFileName to file filePath

close document 1 saving no

end tell

end tell