🚀 go-pugleaf

Ole:
It still doesn't work for me but it is probably that I didn't do it properly. I didn't find 3 instances of Set myFoundItems = myObject.Search but instead, found Set myFoundItems = myInDesign.ActiveDocument.Search. That is what I changed.

Here is what I changed:

Else
                                    myLoopLimit = 0
                                End If
                            End If
                        Loop
myInDesign.FindPreferences = idNothingEnum.idNothing
myInDesign.ChangePreferences = idNothingEnum.idNothing
                    End If
                End If
            End If
        Loop
        myFindChangeFile.Close
    End If
End Function

Rem The third field in the line can be either "once" or "all".
myFindString = myInDesign.FindPreferences.FindText
myChangeString = myInDesign.ChangePreferences.ChangeText

Rem search text are found, if it's "once," search just once.
                    myFindLimit = myFindChangeArray(2)
                    If myFindLimit = "once" Then
                        Set myFoundItems = myObject.Search(myFindString, , , myChangeString)
                    Else
                        Set myFoundItems = myObject.Search(myFindString, , , myChangeString)
                        myLoopLimit = 0
                        Do While myFoundItems.Count > 0
			Set myFoundItems = myObject.Search(myFindString, , , myChangeString)