set myWord to the clipboard存成Script檔(Speak En.scpt)。如法炮製，把Alex改為Julie Infovox iVox HQ然後存成另外一個Speak Fr.scpt檔。
say myWord using "Alex"
set clip_saver to the clipboard as record
set the clipboard to ""
set front_app to (path to frontmost application as Unicode text)
try
set app_name to name of application front_app
on error
set app_name to my extract_name(front_app)
end try
set menu_check to do_menu(app_name, "Edit", "Copy")
delay 0.5
set the_selection to the clipboard
if menu_check then
if the_selection is not "" then
try
set the_selection to the_selection as string
on error
set the_selection to ""
end try
end if
end if
set the clipboard to clip_saver
tell application (path to frontmost application as Unicode text)
if the_selection = "" then
--display dialog "No text selected"
say "No text selected" using "Alex"
else
--display dialog the_selection
say the_selection using "Vicki"
end if
end tell
on do_menu(app_name, menu_name, menu_item)
try
tell application app_name
activate
end tell
tell application "System Events"
tell process app_name
tell menu bar 1
tell menu bar item menu_name
tell menu menu_name
click menu item menu_item
end tell
end tell
end tell
end tell
end tell
return true
on error error_message
return false
end try
end do_menu
on extract_name(app_path)
if app_path ends with ":" then set app_path to (text 1 through -2 of app_path)
set {old_delims, AppleScript's text item delimiters} to {AppleScript's text item delimiters, ":"}
set app_name to text item -1 of app_path
if app_name ends with ".app" then set app_name to (text 1 through -5 of app_name)
set AppleScript's text item delimiters to old_delims
return app_name
end extract_name
糊塗兄 wrote:
整段程式可以改為純擷取文字的Script，只需把(1)(2)砍掉，去除(3)(4)兩段程式前的「--」記號、存檔即可。...(恕刪)
糊塗兄 wrote:
對不起，我交代不清，你要發聲的script，所以只需要把方框裡的程式碼全部複製、貼成新的script來使用就好了。 ^^...(恕刪)
