🚀 go-pugleaf

Given theApp for your application, and theDoc for your doc, try something like this: 

 ' Set up find/change preferences to find a particular character style Set FindStyle = theDoc.CharStyles.Item("Character Style 1") theApp.FIndPreferences = idNothing ' clear out existing data theApp.FindPreferences.CharacterStyle = FindStyle theApp.ChangePreferences = idNothing ' clear out existing data theApp.ChangePreferences.CharacterStyle = FindStyle 

' get a collection of text objects that have that style applied Set FoundText = theDoc.Search ("",,,"") 

' iterate over the collection backwards (to avoid invalidating the text references) For X = FoundText.Count to 1 Step -1 

' do something to FoundText.Item(X), like: FoundText.Item(X).InsertionPoints.Item(1).TextConents = "*" 

Next X  

The Search function also works on the application (getting text references in all open documents) for something like this if you have character styles in different documents with the same name.   

I've set the character style in ChangePreferences as well to avoid having the Search function change any of the text (postponing all the changes to the subsequent loop).