🚀 go-pugleaf

DavidT--

Yes--I think I've posted this before, but here it is again (this is the VB version):



Rem Break selected story into separate text frames. 
Dim myInDesign As InDesign.Application 
Dim myStory As InDesign.Story 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
Set mySelection = myInDesign.Selection 
Set myTextFrame = mySelection.Item(1) 
Set myStory = myTextFrame.ParentStory 
Rem Duplicate each frame and tag the frame with an unique label. 
For myTextFrameCounter = 1 To myStory.TextFrames.Count 
    Set myNewTextFrame = myStory.TextFrames.Item(myTextFrameCounter).Duplicate 
    myTextFrameLabel = "StoryID:" & CStr(myStory.ID) & ":TextFrameIndex:" & CStr(myTextFrameCounter) & ":TextFrameCount:" & CStr(myStory.TextFrames.Count) 
    myNewTextFrame.Label = myTextFrameLabel 
Next 
Rem Now delete all of the text frames in the original story (scary!). 
For myTextFrameCounter = myStory.TextFrames.Count To 1 Step -1 
    myStory.TextFrames.Item(myTextFrameCounter).Delete 
Next 
MsgBox "Done!" 




Thanks,

Ole