🚀 go-pugleaf

Eric --

This one's a bit better: it skips the para if there aren't any parens; it turns the para blue if there is no open pare, green if there is no close paren, and pink if there is some other problem.



tell application "InDesign 2.0.2"
 
   set myDocument to active document
 
   tell myDocument
 
      set myPink to swatch "C=0 M=100 Y=0 K=0"
 
      set myBlue to swatch "C=100 M=0 Y=0 K=0"
 
      set myGreen to swatch "C=75 M=5 Y=100 K=0"
 
      set myStyle to character style "Emphasis"
 
      set myOpenParen to ""
 
      set myCloseParen to ""
 
      set myStory to object reference of parent story of selection
 
     
 
      tell myStory
 
         repeat with i from (count paragraphs) to 1 by -1
 
            try
 
               try
 
                  set myOpenParen to index of (character 1 whose contents = "(") of paragraph i
 
               on error
 
                  set myOpenParen to ""
 
               end try
 
              
 
               try
 
                  set myCloseParen to index of (character 1 whose contents = ")") of paragraph i
 
               on error
 
                  set myCloseParen to ""
 
               end try
 
              
 
               if myOpenParen is not equal to "" and myCloseParen is not equal to "" then
 
                  set applied character style of characters myOpenParen thru myCloseParen to myStyle
 
                  set contents of character myCloseParen to ""
 
                  set contents of character myOpenParen to ""
 
               end if
 
              
 
               if myOpenParen is equal to "" and myCloseParen is not equal to "" then
 
                  set fill color of text of paragraph i to myBlue -- error w/ Open Paren
 
               end if
 
              
 
               if myOpenParen is not equal to "" and myCloseParen is equal to "" then
 
                  set fill color of text of paragraph i to myGreen -- error w/ Close Paren
 
               end if
 
              
 
            on error
 
               set fill color of text of paragraph i to myPink -- general error w/ para
 
            end try
 
         end repeat
 
      end tell
 
   end tell
 
end tell