🚀 go-pugleaf

J-- 

Try this: 

Dim myInDesign As InDesign.Application Set myInDesign = CreateObject("InDesign.Application.1.5") Set myStory = myInDesign.Documents.Item(1).Stories.Item(1) Rem No need to iterate backwards if you won't be changing character count. For myTextStyleRangeCounter = 1 To myStory.TextStyleRanges.Count     Set myTextStyleRange = myStory.TextStyleRanges.Item(myTextStyleRangeCounter)     Select Case myTextStyleRange.FontStyle         Case "Bold"             myTextStyleRange.Font = "Helvetica"         Case Else             Rem This will change all of the other text to "Times New Roman"             Rem Is that what you want? Or do you want it left alone?             Rem If so, omit this line.             myTextStyleRange.Font = "Times New Roman"     End Select Next  

Better? 

Thanks, 

Ole