🚀 go-pugleaf

Ole,

While looking over your script I came accross a line of code that made be realize what I had done wrong in my previous attempts. The problem relates to how text frames are referenced. I fixed up my original code and now it works with multiple stories. This is clearly a blunt instrument approach but it does what I need to do for now. I'm sure I will encorporate more of your script as I begin to understand it better.

Here's my current code:

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)
    Rem Set myTextFrame = myDocument.TextFrames.Item(myStoryCount)
    myXMLTag = "Story"
    Rem Set myXMLStory = myDocument.XMLElements.Add(myXMLTag, myTextFrame)
    Set myXMLStory = myDocument.XMLElements.Add(myXMLTag, myStory.TextFrames.Item(1))
        For myParaCount = 1 To myStory.Paragraphs.Count
            Set myPara = myStory.Paragraphs.Item(myParaCount)
            Select Case myPara.ParagraphStyle
                Case "Body Text"
                myXMLTag = "bodytext"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "Heading 1"
                myXMLTag = "heading1"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "Heading 2"
                myXMLTag = "heading2"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "Reference"
                myXMLTag = "reference"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "FigureCaption"
                myXMLTag = "figurecaption"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "List Bullet"
                myXMLTag = "listbullet"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "Table Title"
                myXMLTag = "tabletitle"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "[No paragraph style]"
                myXMLTag = "undefined"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "Title"
                myXMLTag = "title"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "Heading 3"
                myXMLTag = "heading3"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "Heading 4"
                myXMLTag = "heading4"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "Heading 5"
                myXMLTag = "heading5"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "Authors"
                myXMLTag = "authors"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "SectionHeading"
                myXMLTag = "sectionheading"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "BodyNoIndent"
                myXMLTag = "BodyNoIndent"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "Colophon"
                myXMLTag = "colophon"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "Footnote Text"
                myXMLTag = "footnotetext"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "List Bullet 2"
                myXMLTag = "listbullet2"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "List Bullet 3"
                myXMLTag = "listbullet3"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "Outline"
                myXMLTag = "outline"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "PhotoCredit"
                myXMLTag = "photocredit"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
                Case "Quotation"
                myXMLTag = "quotation"
                Set myXMLPara = myXMLStory.XMLElements.Add(myXMLTag, myPara)
            End Select
        Next
Next
Beep
End Sub

Thanks again for the help,
Phil Redman