🚀 go-pugleaf

Hi pjredman

I am not sure what you wanna do, but I open my example, take a look.

Dim myInDesign As InDesign.Application
        Dim myDocument As InDesign.Document
        Dim myPage As InDesign.Page
        Dim myTextFrame As InDesign.TextFrame
        Dim myBounds() As Double = {10, 10, 20, 20}

Dim myTagName As String
        Dim myXMLTag As InDesign.XMLTag
        Dim myXMLElement As InDesign.XMLElement

myInDesign = CreateObject("InDesign.Application.CS")

If myInDesign.Documents.Count > 0 Then
            myDocument = myInDesign.ActiveDocument
            myPage = myDocument.Pages.Item(1)
            myTextFrame = myPage.TextFrames.Add
            myTextFrame.GeometricBounds = myBounds
            myTextFrame.Contents = "This is a first paragraph" + vbCr
            myTextFrame.Contents = myTextFrame.Contents & "This is a second paragraph"

myTagName = "TextFrame_1"
            myXMLTag = myDocument.XMLTags.Add(myTagName)
            myXMLElement = myDocument.XMLElements.Item("Root").XMLElements.Add(myXMLTag, myTextFrame)

myTagName = "Paragraph_1"
            myXMLTag = myDocument.XMLTags.Add(myTagName)
            myXMLElement = myDocument.XMLElements.Item("Root").XMLElements.Add(myXMLTag, myTextFrame.Paragraphs.Item(1))

myTagName = "Word_4_Paragraph_1"
            myXMLTag = myDocument.XMLTags.Add(myTagName)
            myXMLElement = myDocument.XMLElements.Item("Root").XMLElements.Add(myXMLTag, myTextFrame.Paragraphs.Item(1).words.item(4))

myTagName = "Word_5_Paragraph_1"
            myXMLTag = myDocument.XMLTags.Add(myTagName)
            myXMLElement = myDocument.XMLElements.Item("Root").XMLElements.Add(myXMLTag, myTextFrame.Paragraphs.Item(1).words.item(5))

Dim myParagraph As InDesign.Paragraph
            myParagraph = myTextFrame.Paragraphs.Item(1)

Dim i As Integer
            For i = 1 To myParagraph.AssociatedXMLElements.Count ' will be 2 items
                MsgBox(myParagraph.AssociatedXMLElements.Item(i).contents)
                ' i=1 -> all text
                ' i=2 -> text for the first paragraph
            Next

' If you need a reference to the tagged words inside the paragraph
            MsgBox(myParagraph.AssociatedXMLElements.Item(2).XMLElements.item(1).contents())
            MsgBox(myParagraph.AssociatedXMLElements.Item(2).XMLElements.item(2).contents())

Else
            MsgBox("No Document Found")
        End If

Roberto