Sorting paragraph, apply style then next and (maybe) placing images...

Question

Hi everybody,
I have to set a layout on several pages for a magazine, arranging pictures along with some text related.
I have a text file of this kind:
Text a/1 (should apply Heading style)
Text b/1 (should apply Bodytext style)
Text a/2 (should apply Heading style)
Text b/2 (should apply Bodytext style)
+ Photo
Text a/3 (should apply Heading style)
Text b/3 (should apply Bodytext style)
+ Photo
Text a/1 (should apply Heading style)
Text b/4 (should apply Bodytext style)
etc...
I wish to sort the paragraphs, keep note of those where an image is needed, strip them out into a new frame on the pasteboard with the picture reference and apply to the main text column the styles in order.
Let me explain better with some pictures...
a) b) c)
d) final)
Is it possible, in your opinion?
Thanks,
Guido

Answer 1

Okay, I created a small file with the text
title
subtitle
body
body
body
and the title style applied to the first line. I then ran your new 
script, which I had to fix up a little because it got slightly messed up
in the translation to e-mail text. And now it works!
Let's see if I can get it into AppleScript...
First of all, hmm, it's interesting that the script text in the forum
has
var style_name = "h1"
with "h1" red, while the e-mail version I received has
var style_name = "title"
Maybe you changed your message after posting it? No matter, I carry on
and here's the result:
tell application "Adobe InDesign CS4"
   tell document 1
     set theStyle to paragraph style "1.Bold Head 1"
     set applied paragraph style of paragraph 1 of selection to theStyle
     repeat with i from 2 to count of paragraphs of selection
       tell selection
         set applied paragraph style of paragraph i to ¬
           next style of applied paragraph style of paragraph (i - 1)
       end tell
     end repeat
   end tell
end tell
This works the same as yours with the "title" style, but let's go
one more:
tell application "Adobe InDesign CS4"
   tell document 1
     set theStyle to paragraph style "1.Bold Head 1"
     set applied paragraph style of paragraph 1 of selection to theStyle
     repeat with i from 2 to count of paragraphs of selection
       tell selection
         set applied paragraph style of paragraph i to ¬
           next style of applied paragraph style of paragraph (i - 1)
       end tell
     end repeat
   end tell
end tell
This works for any style, so I only need one script! Option-n is 
available as a QuicKeys trigger and I use option for other paragraph 
style assignments, so I'll assign it to that. Thanks!
Roy