Applescript for address book

Question

Is there a way to click on a contact name, have apple script capture first name, last name, address, then print these in a document? I know I can use mail merge in Pages, but can't in other text editors

Answer 1

OK, sorry. So I dictate medical reports in Macspeech Dictate. I do a bunch at a time. I have to dictate a report to Dr. Jones, so I want to insert using address book:
Joe Jones, M.D.
1234 1st St.
Kansas City, KS 66111
then I dictate the letter to Dr. Jones, then I dictate the next letter to Dr. Smith, etc.
at the end of the day's dictation I have a single document that has ~20 medical reports. I have a macro that I've used for 8 yrs in MS Word to split the letters up, save them in individual files, print them properly formatted on letterhead. I recently have switched to Pages & have developed an applescript to do the same thing. I could dictate, save, print letters one at a time, then I could use the script the way you originally wrote it, but my workflow is more efficient to do it all at once. I guess I'm stuck in my ways, but, again, I think it works better to finish the dictation for the whole day and let my macro save, format, and print all the reports at once. So that's why I want to put the addresses in an already made document.
So here's the code I'm using:
(I added in 2 lines of code to save the selected addresses in a group "envelope" so I can drag & drop them into a Pages mail-merge document to print out the envelopes for the day's dictation)
tell application "Address Book"
--the next 2 lines are to store selected addresses in group envelope that I can drag and drop into a pages merge document to print out all the envelopes for the day's dictation
add the selection to the group "envelope"
save addressbook
set theContacts to the selection
repeat with thisPerson in theContacts
set theName to name of thisPerson
set theStreet to street of first address of thisPerson
set theCity to city of first address of thisPerson
set theState to state of first address of thisPerson
set theZip to zip of first address of thisPerson
end repeat
end tell
set CSZ to theCity & ", " & theState & " " & theZip
activate application "Macspeech Dictate Medical"
tell application "System Events"
keystroke theName
key code 36
keystroke theStreet
key code 36
keystroke CSZ
end tell
I ran this code on my macbook pro running 10.5.8 and my imac running 10.5.8. I made a brand new entry in the address book using a multiline street address and it doesn't put the line breaks. Otherwise, this macro works great. Weird, huh!
Thanks for your help & patience.