procedure TfrContrato.BitBtn1Click(Sender: TObject);
var
WinWord, Docs, Doc: Variant;
troca:string;
i,conta,passo:integer;
begin
conta:=0;
passo:=1;
i:=RichEdit1.Lines.Count;
localiza:=’C:\Imobiliaria\Docs\LAUDO.doc’;
WinWord:=CreateOleObject(‘Word.Application’);
Docs:=WinWord.Documents;
Doc:=Docs.Open(localiza);
while i>conta do
begin
troca:=”;
Doc.Content.Find.Execute(FindText:=troca, ReplaceWith:=RichEdit1.Lines[conta]+’ ‘);
conta:=conta+1;
passo:=passo+1;
end;
troca:=”;
Doc.Content.Find.Execute(FindText:=troca, ReplaceWith:=”);
Doc.SaveAs(‘c:\imobiliaria\Ultimo.doc’);
WinWord.Visible := true;
end;

A string inicial no texto do Word é , dessa forma, para cada linha lida no RichEdit eu crio uma
nova string no Word e a substituo pela linha seguinte do RichEdit. O último comando de substituição é para
apagar a última string inserida à frente da última linha. Funcionou muito bem.

Gostaria de saber se é possível incluir essa nova string na linha seguinte do Word usando esse mesmo
comando ao invés inseri-la à frente da última linha como estou fazerndo.

Desde já, muito obrigado….

Valeu!