🚀 go-pugleaf

Michael-- 

Sorry, I thought I'd posted something. Here's a snippet containing three simple examples (and a utility subroutine for clearing the find/change attributes): 

Private Sub Command1_Click() 
Dim myInDesign As InDesign.Application 
Dim myDocument As InDesign.Document 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
Set myDocument = myInDesign.ActiveDocument 
Rem Clear the find/change attributes settings between each find/change operation 
myClearAttributes myInDesign 
Rem Simple find/change 
myDocument.Search "Shirley Temple", False, False, "Devil Hunter Yohko" 
myClearAttributes myInDesign 
Rem Simple find (and put found items in a collection) 
Set myFoundItems = myDocument.Search("Utena Tenjou") 
myClearAttributes myInDesign 
Rem Simple find/change with formatting (no change to the text string) 
myInDesign.FindPreferences.PointSize = 12 
myInDesign.ChangePreferences.PointSize = 24 
myDocument.Search "Word", True, False, "Word" 
myClearAttributes myInDesign 
End Sub 
Private Sub myClearAttributes(myInDesign) 
Rem Clear the find/change attributes settings 
myInDesign.FindPreferences = idNothing 
myInDesign.ChangePreferences = idNothing 
End Sub 
 

Thanks, 

Ole