Não por isso, Ricardo. É um prazer ajuda-lo.

Bem, realmente o que vc esta fazendo esta correto. Acontece que a versão corrente tem um problema que ja foi consertado e estara disponibilizado na proxima versao, que deve sair na semana que vem.

Faça da seguinte forma:

substitua: Thisform.Frx2Word.Doc_FileName=SalvaDir+"Relatorios\RelEstoque.Doc" por
Thisform.Frx2Word.Doc_FileName="RelEstoque.Doc"
e acrescente a linha:
Thisform.Frx2Word.savefolder=SalvaDir+"Relatorios\"

deve funcionar. :)

Fabio



>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