🚀 go-pugleaf

John-- 

Sure. This is a little bit trickier, because we first find the phrases we're looking for, then we tell the found text objects (the result of the search) to search themselves for the characters we want to change. Add this bit following the line "Rem Set the find/change preferences back to their default state." 

Set myFoundItems = myStory.Search("Both A and B", False, False) For myCounter = 1 To myFoundItems.Count     Rem Now tell each found item to search for "A" and change its formatting.     Set myFoundItem = myFoundItems.Item(myCounter)     myFoundItem.Search "A", True, True, "A"     myFoundItem.Search "B", True, True, "B" Next Set myFoundItems = myStory.Search("Neither A nor B", False, False) For myCounter = 1 To myFoundItems.Count     Rem Now tell each found item to search for "A" and change its formatting.     Set myFoundItem = myFoundItems.Item(myCounter)     myFoundItem.Search "A", True, True, "A"     myFoundItem.Search "B", True, True, "B" Next  

Once you've got the script working the way you want, create an executable file--you do this by choosing "make" from the VB file menu. This creates an application--but the application, or a shortcut to it--in the Script folder and you'll be able to start it from inside InDesign. 

Let me know if this works for you! 

re: "Has anyone told you what a gold mine you are?" 

I'm hoping Adobe will, at my next job performance review.<g> 

Thanks, 

Ole