🚀 go-pugleaf

Hi Ben,

Hmmm. Looks like something changed somewhere along the line since I wrote the script. When you're replacing text strings, you now need to include the strings as search method parameters (in VBScript only, as far as I can tell). Open the TextCleanup.vbs script and make the following changes:

Preceding the line:



Loop

add:



myInDesign.FindPreferences = idNothingEnum.idNothing 
myInDesign.ChangePreferences = idNothingEnum.idNothing



Preceding the line:



Rem The third field in the line can be either "once" or "all"

add:



myFindString = myInDesign.FindPreferences.FindText 
myChangeString = myInDesign.ChangePreferences.ChangeText

then, in three places, where you see the line:



Set myFoundItems = myObject.Search

change it to:



Set myFoundItems = myObject.Search(myFindString, , , myChangeString)

That works here, at least. Let me know if it works for you!

Thanks,

Ole