🚀 go-pugleaf

OK, here we go:



 
tell application "InDesign 2.0.2" 
   tell active document 
      set myBlack to swatch "Black"

      set mySelection to object reference of selection

      if class of selection is text or class of selection is insertion point then 
         set myParent to parent of selection 
         set mySelection to myParent 
      end if

      if class of selection is not row then 
         set myTable to parent of item 1 of mySelection 
         set oldDelim to AppleScript's text item delimiters 
         set AppleScript's text item delimiters to {":"} 
         set cellRef to (name of item 1 of mySelection) 
         set rowRef to (text item 2 of cellRef) as integer 
         set mySelection to row rowRef of myTable 
         set AppleScript's text item delimiters to oldDelim 
      end if

      set myTable to parent of item 1 of mySelection 
      tell myTable 
         set fill color of mySelection to myBlack 
         set fill tint of mySelection to 10 
      end tell

   end tell 
end tell



The only silly thing about this is that it only changes the 1st row if you select several rows.

That was fun. Why is it so much more fun to work on somebody else's problem?

--Jay