🚀 go-pugleaf

On 12/2/03 6:29 PM +1000, Richard Ronnback, richard.ronnback@telia.com,
wrote:

> I made a script to change the applied language of every story on a layer and
> it works, but only if the selected language has been applied somewhere in the
> document before I run the script. I assume it is the same bug that prevents
> you from making a paragraph style with a different language (unless the
> language is already applied somewhere in the document)
> 
> Any ideas how to work around this bug?

I played around with this a while ago, and the only workaround I could come
up with was to make a tagged file that uses the language, place it, do your
search, and then delete the file.

Here's the code, which I never got around to testing:

tell application "InDesign 2.0.2"
 set theStory to my forceLanguage(newLangname)
 -- do stuff
 delete parent of insertion point 1 of theStory
end tell

on forceLanguage(newLangname)
 set thePath to path to startup disk as string
 set theData to "<ASCII-MAC>
<Version:2.000000><FeatureSet:InDesign-Roman><ColorTable:=<Black:COLOR:CMYK:
Process:0.000000,0.000000,0.000000,1.000000>>
<ParaStyle:>x <cLanguage:" & newLangname & ">y<cLanguage:> z"
 set fileRef to (open for access file (thePath & "Temptag.txt") with write
permission)
 set eof fileRef to 0
 write theData to fileRef
 close access fileRef
 tell application "InDesign 2.0.2"
  set theStory to place (thePath & "Temptag.txt") on page 1 of document 1
 end tell
 tell application "Finder"
  delete file (thePath & "Temptag.txt")
 end tell
 return theStory
end forceLanguage

-- 
Shane Stanley,  sstanley@myriad-com.com.au