🚀 go-pugleaf

I used XML tag, for auto pricing items inside pages from SQL server.

In your case you have a Text Frame with

'bla bla bla bla DATE bla bla bla'

so you need to tag this text frame and after tag the word "DATE"
doing this you can change after any word inside this tag
for one or more words and tag remain for future use even after
user "save"

This is the "GLOBAL IDEA" you need to tuning
for your needs

I hope this code will be usefull

Roberto

Private Sub Command1_Click()
Dim myXMLStory As InDesign.XMLElement
Dim myXMLDate As InDesign.XMLElement
Dim myXMLStoryTag As InDesign.XMLTag
Dim myXMLDateTag As InDesign.XMLTag

Set myInDesign = CreateObject("InDesign.Application.2.0")

Set myDocument = myInDesign.Documents.Add

Set myTextFrame = myDocument.TextFrames.Add
    myTextFrame.GeometricBounds = Array(5, 4, 18, 22)
    myTextFrame.TextContents = "bla bla bla DATE bla bla"

Set myXMLStoryTag = myDocument.XMLTags.Add("TextFrame1")
    Set myXMLStory = myDocument.XMLElements.Add(myXMLStoryTag, myTextFrame)

Set myStory = myTextFrame.ParentStory
    Set myWord = myStory.Search("DATE")

myTag = "Tag1"
    Set myXMLDateTag = myDocument.XMLTags.Add(myTag)
    Set myXMLDate = myXMLStory.XMLElements.Add(myXMLDateTag, myWord.Item(1))

'Here you will have the Text Frame, with some text and word "DATE" marked with a tag
    'You can see all of this clicking CTR+ALT+1 (you need the last version InDesign 2.0.2)
    'Click view - show tag markers (to see the tag in the text)
    'Click window - tags (to see the windows tag markers)

'Now you can use this tag and record information from the database to update the information
    'UNCOMMENT TO USE

' Set myElement = myDocument.XMLElements.Item(1)
' Set myTagElement = myElement.XMLElements.Item(1)
'
' myTagElement.AssociatedObject.TextContents = "HELLO INDESING"
End Sub