🚀 go-pugleaf

OK, I give up...

I got this far:



set thePath to (path to startup disk as string)

tell application "InDesign 2.0.2" 
   set myDocument to active document 
   tell myDocument 
      set mySelection to selection 
      if (count of items of mySelection) is not equal to 1 then 
         activate 
         display dialog "Please select 1 (and only 1) text frame." buttons {"Cancel"} default button 1 
      end if 
      if class of item 1 of mySelection is not text frame then 
         activate 
         display dialog "Please select text frame using" & return & "Selection Tool (Black Arrow)." buttons {"Cancel"} default button 1 
      end if 
      set myTextFrame to item 1 of selection

      set myStory to object reference of parent story of myTextFrame 
      set myFrameCount to (count of text frames in myStory) 
   end tell

   repeat with i from myFrameCount to 1 by -1

      tell myDocument 
         set myCurrentFrame to text frame i in myStory 
         set myCurrentPage to parent of myCurrentFrame 
         set myGeoBounds to geometric bounds of myCurrentFrame 
         set myPageNumber to name of myCurrentPage 
         set myCurrentStuff to contents of object reference of myCurrentFrame 
      end tell

      set myNewDocument to make document

      tell myNewDocument 
         tell page 1 
            set myNewFrame to make text frame with properties {geometric bounds:myGeoBounds} 
            set contents of myNewFrame to myCurrentStuff 
         end tell 
      end tell

      set myNewDocName to "Table_Page" & myPageNumber & ".indd" 
      save myNewDocument to (thePath & myNewDocName)

   end repeat

end tell



This works OK with flowed text, but it removes all styling from the text. It doesn't work at all w/ tables. I've tried a bunch of different combinations in the set myCurrentStuff and set myNewFrame lines, but just can't get it to work.

help?