SaveFind;
SetRegEx(1);
SetSearchEntire(1);
SetSearchForward(1);
SetSearchCaseSensitive(1)
SetReplacePrompt(0);
SetFindStr("\(0G|H\)\(1+$Numeric$\)");
SetReplaceStr("\\\0\{\1\}")
ReplaceDialog;
RestoreFind;
