Is there a programmatic equivalent of Edit > Find…?

Question

Most things that can be done via the front-end interface in Mathematica can also be accomplished by some function. Is that the case for find-and-replacing? That is, is there some code I could execute in a Mathematica notebook that would have the same effect as me using the Edit > Find… window to replace all occurrences of "find this text" with "replace with this text" through the whole notebook?

Answer 1

Update: I think I've got it.

I found a token that does the replacement without bringing up a dialog. The values from the last use of the Find and Replace dialog will be used. The command is:

FrontEndExecute @ FrontEndToken[nb, "ReplaceAll"]

where nb is the target Notebook object.

To preset the Find and Replace fields one can modify the FindSettings option of the Front End like so:

CurrentValue[$FrontEnd, {FindSettings, "FindString"}]  = "This";
CurrentValue[$FrontEnd, {FindSettings, "ReplaceBoxes"}] = "That";

Now:

FrontEndExecute @ FrontEndToken[nb, "ReplaceAll"]

After:

Version 7

In version 7 under Windows I need this variation for the method to work:

CurrentValue[$FrontEnd, {FindSettings, "ReplaceString"}] = "That";