Enhanced AppleScript - New Document with AppleWorks 6

It has become abundantly clear to me that there is still a lot of interest in AppleScripts for AppleWorks 6 and questions on implementation of scripts that my previous posts on this topic have not addressed to the satisfaction of those who use AppleWorks 6 and, since it is an application that is still fairly universal in the Mac OS, I guess it is worth further examination. So, here’s an enhancement of an earlier script that I hope will be useful:

set theDocName to text returned of (display dialog "Enter new document name:" default answer "" buttons {"Set"} default button {"Set"})
set paragraph1 to text returned of (display dialog "Enter text for first paragraph of document '" & theDocName & "':" default answer "" buttons {"OK"} default button {"OK"})
-->Given this entered text: Notes on AppleScript and AppleWorks 6:
set paragraph2 to text returned of (display dialog "Enter text for second paragraph of document '" & theDocName & "':" default answer "" buttons {"OK"} default button {"OK"})
-->Given this entered text: As it appears in this document, this is the second paragraph but, to AppleScript,this is the third paragraph, because even an empty return is a paragraph in AppleScript.
set paragraph3 to text returned of (display dialog "Enter text for third paragraph of document '" & theDocName & "':" default answer "" buttons {"OK"} default button {"OK"})
-->Given this entered text: This, it would seem is the fourth paragraph but, it is actually the fifth to AppleScript.
set theData to paragraph1 & return & return & paragraph2 & return & return & paragraph3
tell application "AppleWorks 6"
activate
make new document with data theData with properties {name:theDocName}
tell front document
select paragraph 1
set the properties of the selection to {font:"Lucida Grande", size:18}
set color of the selection to {9960, 12194, 65535} --blue, an RGB value
select (paragraphs 3 thru 5)
set the properties of the selection to {font:"Monaco", size:9}
select word 14 of paragraph 3
set the properties of the selection to {size:12}
set size of the selection to 12
--Two ways to express things (look above)
set colorPref to choose color default color {65535, 5195, 6617} --red, an RGB value
set color of the selection to colorPref
select (text 1 thru -1 of last word of paragraph 3)
set size of the selection to 12
set color of the selection to colorPref --red, an RGB value
select (text 1 thru -1 of last word of last paragraph)
set size of the selection to 12
set color of the selection to colorPref --red, an RGB value
save document theDocName in alias (path to desktop folder) as file type {"CWWP"}
end tell
end tell

Most of this is pretty straightforward if you have seen my previous post on AppleWorks 6. Take note of my use of negative indexes to groups of text above.

This could be used to change the color of a number of words in the initial script all at once:

tell application "AppleWorks 6"
tell front document
try
set everyWord to (every text)
set textCount to (count everyWord)
repeat with x from 7 to textCount
if word x = "AppleScript" then
select word x
set color of the selection to {65535, 5195, 6617} --red
end if
end repeat
on error
return
end try
end tell
end tell

This is how the initial script would appear:

AppleWorks Text

To change the text style is a bit more complicated, something like this would work:

tell paragraph 1
select (words 3 thru 4)
set size of the selection to 14
set style of the selection to {class:text style info, on styles:{bold, italic}}
select word 6
set size of the selection to 14
set style of the selection to {class:text style info, on styles:{bold, outline}}
end tell

Which would look something like this:

If you run this script in the Script editor with our document in front…

tell application "AppleWorks 6"
activate
tell front document
select paragraph 1
get properties of the selection
end tell
end tell

The result for the text below (our first line), gives us some idea of the kinds of information we have at our disposal for writing scripts:

Out of this, we can see that we have these styles available:

{plain, bold, italic, underline, outline, shadow, condensed, expanded, strikethrough, superscript, subscript, superior, inferior, double underline}

Subscribe to Learning AppleScript for Beginners by Email

Related posts, that may be of interest:
New Document with Microsoft Word 2004 | Formatting and Editing Text Objects with Word 2008 | New Document with AppleWorks 6

Give me your opinion on my site: hyperscripter@gmail.com or http://twitter.com/hyperscripter.

Earn Wealth on Internet
Learn Tips and Tricks to Making Money on the Internet
www.internetwealth.com

Learn How To Make Money Blogging – Blog Mastermind
Six-figure Yaro Starak Teaches You How To Set Up And Profit From A Successful Blog. Start Making Money From Blogs By Following This Step-by-step, Weekly Coaching Program
http://www.blogmastermind.com/coaching/

Turn Your Photos Into Cash
All You Need Is A Digital Camera, A Computer And An Internet Connection To Get Started Making Extra Income Every Month!
http://turnyourphotosintocash.com/