Re: search and replace in tex-edit
Re: search and replace in tex-edit
- Subject: Re: search and replace in tex-edit
- From: John Delacour <email@hidden>
- Date: Wed, 12 Feb 2003 13:47:07 +0000
- Mac-eudora-version: 6.0a5
At 12:08 pm +0000 12/2/03, fabrice wrote:
could you tell me what's wrong with that script
It's too long and repetitive. All you seem to need is:
tell app "Tex-Edit Plus F"
activate
set s to "le"
set newCol to blue
tell the text in the front document
set color to black
replace it looking for s replacing with s replacing with styles
{color:newCol}
end
end
tell application "Tex-Edit Plus F"
activate
set color of text of window 1 to black
set motClef to "le"
set newCol to blue
set sFont to font of text of window 1
set sOnS to style of text of window 1
set sSz to size of text of window 1
set sCol to color of text of window 1
replace looking for motClef ,
replacing with motClef ,
looking for styles ,
{font:sFont, style:sOnS, size:sSz, color:sCol} ,
replacing with styles ,
{font:sFont, style:sOnS, size:sSz, color:newCol} ,
--with cases matching
end tell
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.