Rodolfo,

Testa isto:

local liI, liArqs, laArqs[1], lcProc

liArqs = adir(laArqs, "Temp\*.frx")

for liI = 1 to liArqs
  lcProc = "PROCEDURE Init" + chr(13) + chr(10)
  lcProc = lcProc + "If WExist('Report Designer')" + chr(13) + chr(10)
  lcProc = lcProc + "    Zoom Window 'Report Designer' Max" + chr(13) + chr(10)
  lcProc = lcProc + "EndIf" + chr(13) + chr(10)
  lcProc = lcProc + "ENDPROC" + chr(13) + chr(10)
  use ("Temp\" + laArqs(liI, 1))
  ***
  locate for (ObjType = 25) and (Name = "dataenvironment")
  if found()
    replace Tag with lcProc
  endif
endfor

Aqui comigo, em tempo de projeto ficou muito estranho. O relatório que estou editando é maximizado, mas a impressão não é. Contudo se o que você queria era colocar o texto no INIT, eis uma sugestão.

Como neste exemplo estou utilizando o VFP6 não utilizei TEXTMERGE, mas no VFP7 o ideal é utilizar TEXTMERGE que, como você sabe, é muito melhor do que concatenar Strings.