Automator/Applescript to Create New Pages Doc in Selected Folder

Question

When working in Finder I'd like to be able to create a folder, and then (still within Finder) create a number of Pages documents inside that folder. This would help in organizing complex projects, and would be preferable to creating the documents (from the bottom up) in Pages and then laboriously assigning each document to a different folder.
I've tried various solutions in Automator and Applescript but nothing has worked.
For example:
try
tell application "finder" to set myFolder to (folder of the front window)
on error -- no open folder windows
set myFolder to path to desktop folder
end try
tell application "Pages"
activate
set myDocument to make new document with properties {path:myFolder}
end tell
But this gets an error "Can't make [the selected folder] of application "Finder" into the expected type. (-1700).
In automator, I've tried to do the following:
1. Get Selected Finder Items (which will be the folder I want)
2. (Create new variable "path" and drag onto 1., which creates "Get Value of variable)
3. (ignoring input) Get Specified Finder Item (specifying a blank Pages document)
4. (accepting input) Copy Finder Item to variable "path"
The problem with this is that step 2 returns both the desired folder AND the desktop. The result of the entire process, moreover, is that the blank Pages file is created (or rather copied to) the desktop ONLY, and not to the desired folder.
Anyway, I hope someone can help me with this. It would really speed up my organizing process.
Wes

Answer 1

Taking care of true window's properties is often useful
on run
try
tell application "Finder" to set myFolder to (target of the front window) as alias
on error -- no open folder windows
set myFolder to path to desktop folder
end try
set myNewDoc to my makeNewIworkDoc("Pages", "myNewDocument" & my dateTimeStamp() & ".pages", myFolder as text)
end run
--=====
Creates a new iWork document from Blank.template,
saves it and returns its pathname.
example:
set myNewDoc to my makeNewIworkDoc(theApp, docName, folderPath)
on makeNewIworkDoc(a, n, d)
local t, c
if a is "Pages" then
set t to ((path to applications folder as text) & "iWork '09:Pages.app:Contents:Resources:Templates:Blank.template:") as alias
else if a is "Numbers" then
set t to ((path to applications folder as text) & "iWork '09:Numbers.app:Contents:Resources:Templates:Blank.nmbtemplate:") as alias
else
if my parleAnglais(theApp) then
error "The application “" & a & "“ is not accepted !"
else
error "l’application « " & a & " » n’est pas gérée !"
end if
end if
set f to d & n
tell application a
set c to count of documents
open t
repeat
if (count of documents) > c then
exit repeat
else
delay 0.1
end if
end repeat
save document 1 in file f
end tell -- theApp
return f as alias
end makeNewIworkDoc
--=====
on parleAnglais()
local z
try
tell application "Numbers" to set z to localized string "Cancel"
on error
set z to "Cancel"
end try
return (z is not "Annuler")
end parleAnglais
--=====
on dateTimeStamp()
return (do shell script "date +P%Y%m%d-%H%M%S")
end dateTimeStamp
--=====
Yvan KOENIG (VALLAURIS, France) vendredi 4 septembre 2009 20:51:02