🚀 go-pugleaf

in article 1de668d0.4@WebX.la2eafNXanI, Jay Fraser wrote:

> It's my secondary machine, a Powerbook G3 running at 266 ... so I cut it some
> slack. <g> But the script is a bear, too: for some reason I haven't figured
> out yet, some spaces had character styling
> different than the surrounding text. I.e. in the name "John Doe", the words
> "John" and "Doe" would have character styling "Name", but the space between
> them would be styled "Address".
> 
> That totally screwed up my various scripts. The only way I could think do fix
> that was to choose every space and give it the same style as the character
> before it. That's a lot of grinding.

Too much grinding. This might be a bit quicker:

tell application "InDesign 2.0.1"
 tell document 1
  repeat with i from 1 to count of stories
   set theSpaces to (index of every text style range of story i whose
contents = " ")
   repeat with j from 1 to (count of theSpaces)
    set theNum to item j of theSpaces
    if theNum > 1 then
     set newText to contents of characters (theNum - 1) thru theNum of story
i
     delete character theNum of story i
     set contents of character (theNum - 1) of story i to newText
    end if
   end repeat
  end repeat
 end tell
en d tell

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