🚀 go-pugleaf

Paul--

I'm a bit confused. The following:



Rem Given a character object "myCharacter" and a character style object "myCharStyle"... 
myCharacter.ApplyStyle myCharStyle, True 




...should be all you need. Here's a more complete example:



Set myInDesign = CreateObject("InDesign.Application.2.0") 
Set myDocument = myInDesign.Documents.Add 
Set myCharStyle = myDocument.CharStyles.Add 
myCharStyle.Name = "Lines" 
Set myTextFrame = myDocument.Pages.Item(1).TextFrames.Add 
myTextFrame.GeometricBounds = Array("6p", "6p", "36p", "36p") 
myTextFrame.TextContents = "This is the first line." & vbCr & vbTab & "This line starts with a tab." & vbCr & vbTab & "This line starts with a tab." & vbCr & vbTab & "This line starts with a tab." & vbCr & vbTab & "This line starts with a tab." & vbCr & vbTab & "This line starts with a tab." 
Set myFoundItems = myDocument.Search("^p^t") 
For myCounter = 1 To myFoundItems.Count 
    Set myCharacter = myFoundItems.Item(1).Characters.Item(2) 
    myCharacter.ApplyStyle myCharStyle, True 
Next 




Does that work for you?

Thanks,

Ole