Olá Fabio,, Obrigado pela paciência !!!

A linha que estou enviando é esta...

SalvaDir=FullPath(CurDir())
Thisform.Frx2Word.Doc_FileName=SalvaDir+"Relatorios\RelEstoque.Doc"
Thisform.Frx2Word.nLeftMargin=12
Thisform.cAlias=Alias()
Thisform.cNameReport="Estoque1"
Set Defa to Reports
llRetorno =Thisform.frx2word.reportform(Thisform.cNameReport)
Set Defa to &SalvaDir

Ricardo Artur