🚀 go-pugleaf

Hi Michael,

Maybe is a better way to solve this task, but this will work.

Roberto

Set myInDesign = CreateObject("InDesign.Application.2.0")
    Set myDocument = myInDesign.ActiveDocument
    myDocument.ViewPreferences.HorzMeasurementUnits = idMSPicas
    myDocument.ViewPreferences.VertMeasurementUnits = idMSPicas
    Set myPage = myDocument.Pages.Item(1)
    Set myTextFrame = myPage.TextFrames.Add
    myTextFrame.GeometricBounds = Array(10, 10, 25, 25)

myFirstWord = "Hello"
    mySecondWord = "World"

Set myPoint = myTextFrame.ParentStory.InsertionPoints

' Style16 and Style10 are character styles existing in InDesign document
    ' If not, you can created at run time
    myPoint.Item(myPoint.Count).CharacterStyle = myDocument.CharStyles.Item("Style16")
    myPoint.Item(myPoint.Count).TextContents = myFirstWord & " "

myPoint.Item(myPoint.Count).CharacterStyle = myDocument.CharStyles.Item("Style10")
    myPoint.Item(myPoint.Count).TextContents = mySecondWord