John,

Here is the code:

Procedure MaxReports
If !File("MODELORELATORIO.FRX")
	Return .T.
EndIf
Use MODELORELATORIO.FRX Alias ModeloRelatorio
Locate For ObjType=25
If Found()
	m.ExprTag = ModeloRelatorio.Tag
	m.ExprTag2 = ModeloRelatorio.Tag2
	m.NoArq = ADir(Arquivos,"\REPORTS\*.FRX")
	For m.ArqAtivo = 1 to m.NoArq
		Use (_Diretorio+"\REPORTS\"+Arquivos[m.ArqAtivo,1])
		Locate For ObjType=25
		If Found()
			Replace Tag With m.ExprTag, Tag2 With m.ExprTag2
		EndIf
	EndFor
EndIf
Close DataBases	All
Return .T.

Some points:

1 - I have a model (ModeloRelatorio) that has that code (Zoom Window).
2 - Then the procedure above locate this model and set two variables.
3 - A loop starts, passing in each report that is the folder "REPORTS"
4 - I just update the required fields in this reports...
5 - Done!

Like I said in my first message, you can automate it using ProjectHook. Even create a procedure to run in your customers!

Good luck...

If you need something more... just ask!

Cheers!