You can save any document of any type and select it using the "Add new..." option when prompted for a document to place. For example, you can set-up and save an Illustrator, Photoshop, HTML, plain text, etc. document to use as a template with this script. Add it to the list (which is really just adding a duplicate of the template to a folder named "NewHere" in your Application Support folder), enter a name for the duplicate that will be placed in the folder of the Finder's frontmost window. Then, it will open. You can now choose that file whenever you run this script by selecting it from the list.
This has not been tested extensively, so there may be some unexpected behavior if your list gets very big. Or there may not, I really don't know. There are however issues of "Replacing." This will not replace a file if you pick the same name as a file already in the folder you use it on without prompting! So please be aware of what you are doing because the older file will be opened as if it were new. I do plan to change this behavior, however. Someday...
Download - 14.2kB zip file
Source:
set doc_list to {"Add new..."} tell application "Finder" set app_sup to folder (path to application support from user domain) if not (exists folder "NewHere" of app_sup) then display dialog "This is the first time you've run NewHere." & return & return & "Files added to the list are located at" & ¬ return & "~/Library/Application Support/NewHere" & return & "Removing a file from this folder removes it from the list." make new folder at app_sup with properties {name:"NewHere"} else try set doc_list to doc_list & name of every file of folder "NewHere" of app_sup as list end try end if set my_file to choose from list doc_list with prompt "Choose a document to place here" if result is not false then set my_file to item 1 of my_file as string if my_file is "Add new..." then set new_file to choose file without invisibles duplicate file new_file to folder "NewHere" of app_sup with replacing set my_name to text returned of (display dialog "Enter a name for the new file." default answer (name of new_file as text)) my do_it((name of new_file as text), my_name) else set my_name to text returned of (display dialog "Enter a name for the new file." default answer my_file) my do_it(my_file, my_name) end if end if end tell on do_it(my_file, my_name) tell application "Finder" to set my_dest to (folder of the front window) as text set my_dest to my_dest & my_name as text set my_origin to (path to application support from user domain) & "NewHere:" & my_file as text do shell script "cp -n " & quoted form of (POSIX path of my_origin) & " " & quoted form of (POSIX path of my_dest) tell application "Finder" to open my_dest as alias end do_it
