🚀 go-pugleaf

Oli--

Here's something I wrote/posted a while ago--does this do what your friend wants to do?



Rem SplitSelectedStory.vbs 
rem An InDesign 2.x script 
Rem Splits the selected story into separate (i.e., unthreaded) text frames. 
Rem To use this script, select a text frame, then run the script. 
Rem Note: Any overset text at the end of the story will be deleted. 
Rem Note: Hyphenation points between text frames will not be retained. 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
Set mySelection = myInDesign.Selection 
Rem Process the selection. If text or a text frame is selected, 
Rem do something; otherwise, do nothing. 
If mySelection.Count > 0 Then 
    Select Case TypeName(mySelection.Item(1)) 
        Case "Text" 
            Set myStory = mySelection.Item(1).ParentTextFrame.ParentStory 
            mySplitStory = True 
        Case "TextFrame" 
            Set myStory = mySelection.Item(1).ParentStory 
            mySplitStory = True 
        Case Else 
            mySplitStory = False 
    End Select 
    If mySplitStory = True Then 
        Rem Duplicate each text frame in the story. 
        For myCounter = myStory.TextFrames.Count To 1 Step -1 
            Set myTextFrame = myStory.TextFrames.Item(myCounter) 
            myTextFrame.Duplicate 
            myTextFrame.Delete 
        Next 
    End If 
End If 




This one is a VBScript, so all you need to do is paste it into a text editor and save it with the file extension ".vbs" to your ~/InDesign/Scripts folder. At that point, you can run it from the Scripts palette.

Thanks,

Ole