🚀 go-pugleaf

Phil--

Huh--I hadn't noticed that you were a guilty party. Bad, bad Phil!<g>

I'm having no luck uploading things to the site at present, anyway--the upload mechanism seems to be broken.

You need a VB version of SplitSelectedStory? There's one here, somewhere, but I'll post it again:



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 




Thanks,

Ole