🚀 go-pugleaf

Sorry, the topic was truncated. This is the rest of the code.

 
Rem Add a text frame 
Set myTextFrame = myDocument.Pages.Item(1).TextFrames.Add 
Rem Size the text frame 
Set myPage = myDocument.Pages.Item(1) 
myX1 = myPage.MarginPreferences.MarginLeft 
myY1 = myPage.MarginPreferences.MarginTop 
myX2 = myDocument.DocumentPreferences.PageWidth - myPage.MarginPreferences.MarginRight 
myY2 = myDocument.DocumentPreferences.PageHeight - myPage.MarginPreferences.MarginBottom 
myTextFrame.GeometricBounds = Array(myY1, myX1, myY2, myX2) 
Rem Add text to the text frame 
rem replace from here for the second example 
myTextFrame.TextContents = "Adobe Magazine, Publish, MacUser, and ITC's U&lc are examples of magazines that have suspended publication in recent years." _ 
& vbCr & "Line2:Adobe Magazine, Publish, MacUser, and ITC's U&lc are examples of magazines that have suspended publication in recent years." 
Rem Set the change preferences to change to our new character style 
myInDesign.ChangePreferences.CharacterStyle = myDocument.CharStyles.Item("XMLCharStyle") 
Rem Search for our example magazine titles and format them with the character style 
Set myFoundItem = myDocument.Search("Adobe Magazine", False, False, "") 
Set myFoundItsem = myDocument.Search("Publish", False, False, "") 
Set myFoundItem = myDocument.Search("MacUser", False, False, "") 
Set myFoundItem = myDocument.Search("U&lc", False, False, "") 
rem replace to here for the second example 
Rem Clear change preferences 
myInDesign.ChangePreferences = idNothing 
Rem Set up the XML infrastructure. 
Set myXMLStory = myDocument.XMLElements.Add(myXMLStoryTag, myTextFrame) 
Set myXMLBodyText = myXMLStory.XMLElements.Add(myXMLBodyTextTag, myTextFrame.Paragraphs.Item(1)) 
Rem Find the words that have character style XMLCharStyle applied to them 
myInDesign.FindPreferences.CharacterStyle = myDocument.CharStyles.Item("XMLCharStyle") 
Set myFoundItems = myDocument.Search("") 
For myCounter = 1 To myFoundItems.Count 
    Set myFoundItem = myFoundItems.Item(myCounter) 
    Rem Add the XML element (this tags the text with the XML tag) 
    myXMLBodyText.XMLElements.Add myXMLTag, myFoundItem 
Next 'myCounter