🚀 go-pugleaf

Brian--

Here's a quick example:



Rem NestedStyleExample.vbs 
Set myInDesign = CreateObject("InDesign.Application.CS") 
Rem Create an example document 
Set myDocument = myInDesign.Documents.Add 
Set myColor = myDocument.Colors.Add 
myColor.Model = idColorModel.idProcess 
myColor.Space = idColorSpace.idCMYK 
myColor.ColorValue = Array(0, 100, 80, 0) 
myColor.Name = "Red" 
Set myCharacterStyle = myDocument.CharacterStyles.Add 
myCharacterStyle.Name = "Nested Style" 
myCharacterStyle.FillColor = "Red" 
Set myTextFrame = myDocument.Pages.Item(1).TextFrames.Add 
myTextFrame.GeometricBounds = Array("6p", "6p", "24p", "24p") 
myTextFrame.Contents = "Note: This is a run-in heading formatted using a nested style." 
Set myParagraphStyle = myDocument.ParagraphStyles.Add 
myParagraphStyle.Name = "RunInHead" 
Set myNestedStyle = myParagraphStyle.NestedStyles.Add 
myNestedStyle.AppliedCharacterStyle = myCharacterStyle 
Rem The delimiter sets the end of the rang.e 
myNestedStyle.Delimiter = ":" 
myNestedStyle.Inclusive = True 
myTextFrame.Texts.Item(1).AppliedParagraphStyle = myParagraphStyle

Hope this helps!

Thanks,

Ole