🚀 go-pugleaf

Gang-- 

If you're a VB scripter, you've probably noticed that many of the AppleScript threads in this forum have included text references for ranges of text, such as: 

set myRange to object reference of text from character 20 to character 47 of story 1  

How can you do this in Visual Basic? Thanks to the amazing Jonathan Brown (who slipped this in either late in ID 2.0 development or during ID 2.01 development--we're not sure which), we have the ItemByRange reference method, as shown in the following example: 

Dim myInDesign As InDesign.Application Set myInDesign = CreateObject("InDesign.Application.2.0") myInDesign.FindPreferences = idNothing myInDesign.ChangePreferences = idNothing Set myDocument = myInDesign.Documents.Add Set myTextFrame = myDocument.Pages.Item(1).TextFrames.Add 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) myTextFrame.TextContents = idPlaceholderText Set myCharStyle = myDocument.CharStyles.Add myCharStyle.FillColor = myDocument.Colors.Item(myDocument.Colors.Count) Set myStory = myDocument.Stories.Item(1) Set myRange = myStory.Characters.ItemByRange(myStory.Characters.Item(6), myStory.Characters.Item(29)).Item(1) myRange.CharacterStyle = myCharStyle  

Pretty cool, huh? Thanks, Jonathan! 

Ole