🚀 go-pugleaf

Hans,
One way to do it would be:

      Set myStory = myFrame.ParentStory Set mySelection = myStory.TextWords.Item(1)
      mySelection.AppliedFont = "Arial"
      Set mySelection = myStory.TextWords.Item(2)
      mySelection.AppliedFont = "Frutiger"
      Set mySelection = myStory.TextWords.Item(3)
      mySelection.AppliedFont = "Univers"





Or, if you have groups of words that need different fonts, you can try this (in this example, the first 2 words get Arial and the last one gets Univers):

      myWords = "Indesign looks" myLastWord = " complex"
      Set myStory = myFrame.ParentStory
      mySentence = myWords & myLastWord
      Set myTextWords = myStory.TextWords
      myFrame.TextContents = myWords
      Set myStory = myFrame.ParentStory
      mywordscounter = myStory.TextWords.Count
      myFrame.TextContents = myLastWord
      Set myStory = myFrame.ParentStory
      mylastwordcounter = myStory.TextWords.Count
      myFrame.TextContents = mySentence
      For mybase = 1 To mywordscounter
      Set mySelection = myStory.TextWords.Item(mybase)
      mySelection.AppliedFont = "Arial"
      Next mybase
      mywordscounter = mywordscounter + 1
      For mybase = 1 To mylastwordcounter
      Set mySelection = myStory.TextWords.Item(mywordscounter)
      mySelection.AppliedFont = "Univers"
      Next mybase





You could also use character styles instead of using AppliedFont. All this assumes you've created a textbox.
HTH,
~j~