🚀 go-pugleaf

Ole,

For some reason I was inspired to try again. Here's what I've come up with. This is for a document that has a predifined set of tags so it's sort of "hard wired". It works great when there's only one story but fails when there are more than one. Any advice?

Private Sub Command1_Click()
Dim myInDesign As InDesign.Application
Set myInDesign = CreateObject("InDesign.Application.2.0")
Set myDocument = myInDesign.ActiveDocument
For myStoryCount = 1 To myDocument.Stories.Count
    Set myStory = myDocument.Stories.Item(myStoryCount)
    Set myTextFrame = myDocument.TextFrames.Item(myStoryCount)
    myXMLTag = "Story"
    Set myXMLStory = myDocument.XMLElements.Add(myXMLTag, myTextFrame)
        For myParaCount = 1 To myStory.Paragraphs.Count
            Set myPara = myStory.Paragraphs.Item(myParaCount)
            Select Case myPara.ParagraphStyle
                Case "First Style"
                myXMLTag = "firststyle"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "Second Style"
                myXMLTag = "secondstyle"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
            End Select
        Next
Next
End Sub

Thanks,
Phil