Speeking - read back

B

benlawrence

We have MAC 10.4.8 and using Word 2004.

We want to be able to read back before sending email.

We have read back with word wend sending letters or reviewing books we
have written.

TLG,inc

Ben
 
B

Barry Wainwright [MVP]

We have MAC 10.4.8 and using Word 2004.

We want to be able to read back before sending email.

We have read back with word wend sending letters or reviewing books we
have written.

TLG,inc

Ben

Do you mean 'read back' by using the computer's 'text to speech' functions?

Here's a very quick & dirty script to do it.

Save the script as a compiled script & put it in the ŒEntourage Script Menu
Items¹ folder in your ŒMicrosoft User Data¹ folder. The script can be
manually run from the menu or called as an action in a mail rule.


tell application "Microsoft Entourage"
if class of window 1 is not in {draft window, draft news window} then
beep
return
end if
set windowText to paragraphs of (get content of window 1)
set {oldDelims, AppleScript's text item delimiters} to {AppleScript's
text item delimiters, {" "}}

set newText to {}
repeat with x from 1 to count windowText
try
set aLine to text items of item x of windowText
set firstWord to item 1 of aLine
if firstWord starts with ">" then
if (count aLine) > 2 then
copy "Quote level " & (count firstWord) & ":" to item 1
of aLine
else
set aLine to ""
end if
end if
copy aLine as text to end of newText
on error
copy return to end of newText
end try
end repeat
say (newText as text)
set AppleScript's text item delimiters to oldDelims
end tell
 
Top