tell application "Pages"
repeat with achar in characters of body text of front document
if contents of achar = return then
display dialog (character offset of achar as integer)
end if
end repeat
end tell
tell application "Pages"Note that the font name may not be what you expect. The script above searches for the font "Times", even though the name in the script is "Times-Roman". If you type just "Times", it will not work.
select (every character of body text of front document whose font name is "Times-Roman")
end tell
tell application "Pages"
display dialog (font name of word 1 of body text of front document as string)
end tell
on open theImages repeat with anImage in theImages tell application "Image Events" --Set the maximum dimension of the picture. -- If it is in landscape mode, it is the width. -- If it is in portrait mode, it is the height. set the targetSize to 240 set currentImage to open anImage set imageType to currentImage's file type scale currentImage to size targetSize tell application "Finder" to set newImage to (container of anImage as string) & "scaled " & (name of anImage) save currentImage in newImage as imageType end tell end repeat end open3. Save the script as an "Application".
on open theImages repeat with anImage in theImages tell application "Image Events" -- Set the variable targetSize to the scale factor. 0.5 means 50%. set the targetSize to 0.5 set currentImage to open anImage set imageType to currentImage's file type scale currentImage by factor targetSize tell application "Finder" to set newImage to (container of anImage as string) & "scaled " & (name of anImage) save currentImage in newImage as imageType end tell end repeat end open
(*
Export pages documents as Word ones in the folder where the original docs where.
Assuming that we start with:
AppleScript & Office.pages
it will be exported as:
AppleScript & Office.doc
If a file already exist with the short name
it may be saved as:
AppleScript & Office#20080128T221639.doc (if withSeconds is defined as true)
AppleScript & Office#20080128T2219.doc (if withSeconds is defined as false)
the serial number is a packed version of the date/time of the save process:
2008/01/28T22:16:39 or 2008/01/28T22:16
Thanks to Dale GILLARD who teach me the way to export without using GUI scripting.
Yvan KOENIG
28 janvier 2008
29 janvier 2008
*)
property withSeconds : false (* you may set it to true if you wish *)
property typeNum : 1 (* 1 = WORD, 2 = PDF, 3 = Txt, 4 = rtf, 5 = rtfd *)
property newExt : ""
property newType : ""
property types : {{"doc", "SLDocumentTypeMSWord"}, {"pdf", "SLDocumentTypePDF"}, {"txt", "SLDocumentTypePlainText"}, {"rtf", "SLDocumentTypeRichText"}, {"rtfd", "SLDocumentTypeRichTextBundle"}}
tell application "Finder" to set listeFichiers to every item in (choose folder) (*
dans un bloc Finder pour avoir un titre de dialogue "localisé"
• in a Finder block to get a localized dialog title. *)
if (count of listeFichiers) = 0 then return
open listeFichiers
-- ===========
on open (sel)
repeat with elem in sel
my exploreTraite(elem as alias, "")
end repeat
end open
-- ===========
on exploreTraite(elem, ptree) (*
elem est un alias
elem is an alias *)
local elem_, cl_, typeId_
set elem_ to elem as text
tell application "System Events"
set cl_ to class of item elem_
set typeId_ to type identifier of elem
end tell
set cl_ to cl_ as Unicode text
if cl_ is "file package" then
if typeId_ is "com.apple.iwork.pages.pages" then my TraiteUnPackage(elem_, ptree)
else if cl_ is "folder" then
my ExploreUnDossier(elem_, ptree)
else
-- not for us
end if -- cl_ is …
end exploreTraite
-- ===========
on ExploreUnDossier(dossier, ptree)
local nomElement, cheminElement, c
repeat with nomElement in list folder dossier without invisibles
set cheminElement to dossier & nomElement
tell application "Finder" to set c to name of (dossier as alias)
my exploreTraite(cheminElement as alias, ptree & c & ":")
end repeat
end ExploreUnDossier
-- ===========
on TraiteUnPackage(aPackage, ptree)
local docPathAndName, oldName, docName, newExt, newType
(* aPackage always ends with a colon, we must remove it *)
set aPackage to (text 1 thru -2 of (aPackage as Unicode text)) as alias
set {newExt, newType} to types's item typeNum
tell application "Finder"
set sourceFolder to (container of aPackage) as Unicode text
set oldName to name of aPackage as Unicode text
end tell -- Finder
set docName to (text 1 thru -6 of oldName) & newExt
set docPathAndName to sourceFolder & docName
tell application "System Events"
if exists file docPathAndName then
set docName to (text 1 thru -7 of oldName) & my serialize() & "." & newExt
set docPathAndName to sourceFolder & docName
end if
end tell -- system events
tell application "Pages"
open aPackage
save front document as newType in docPathAndName
close front document
end tell -- Pages
end TraiteUnPackage
-- =============
on serialize()
local cd, serial
set cd to current date
set serial to (year of cd as text) & text -2 thru -1 of ("0" & (month of cd as number)) & text -2 thru -1 of ("0" & day of cd) & "T" & text -2 thru -1 of ("0" & hours of cd) & text -2 thru -1 of ("0" & minutes of cd)
if withSeconds then
return "#" & serial & text -2 thru -1 of ("0" & seconds of cd)
else
return "#" & serial
end if
end serialize
tell window 1 of application "Pages" set view scale to 99 end tell
defaults write com.apple.iWork.Pages SLDefaultsPageScale 0.99
Follow these steps:
Follow these steps:
Font Book is an important tool for at least two purposes. One - display what your fonts look like. Two - organise your fonts.
tell application "Pages"
tell front document
set S to selection
tell body text
set C to color of character before S
display dialog (((item 1 of C) as text) & ", " & ((item 2 of C) as text) & ", " & ((item 3 of C) as text))
end tell
end tell
end tell
tell application "Pages"
repeat with achar in characters of body text of front document
if color of achar = {53355, 23, 54} then
set color of achar to {23, 54, 53355}
end if
end repeat
end tell
on open theFiles
tell application "Pages"
repeat with aFile in theFiles
open aFile
set docName to name of front document
-- Remove .pages extension.
set prevTIDs to AppleScript's text item delimiters
set AppleScript's text item delimiters to ".pages"
-- Add .doc extension.
set docName to first text item of docName & ".doc"
set AppleScript's text item delimiters to prevTIDs
-- Save file to Desktop.
set docPathAndName to (path to desktop as string) & docName
save front document as "SLDocumentTypeMSWord" in docPathAndName
close front document
end repeat
end tell
end open
on open theFiles
tell application "Pages"
repeat with aFile in theFiles
open aFile
set docName to name of front document
-- Remove .pages extension.
set prevTIDs to AppleScript's text item delimiters
set AppleScript's text item delimiters to ".pages"
-- Add .doc extension.
set docName to first text item of docName & ".doc"
set AppleScript's text item delimiters to prevTIDs
-- Save file to Desktop.
set docPathAndName to (path to desktop as string) & docName
save front document as ".doc" in docPathAndName
close front document
end repeat
end tell
end open