Fórum Inserir campos do clientdataset em arquivo do word #285422

procedure TFrmContratoMatricula.BTNOKClick(Sender: TObject);
Var WinWord, docs, doc: variant;
begin
try
WinWord:= CreateOleObject(´Word.Application´);
except on E: Exception do
begin
E.Message :=´Instale o Microsoft Word!´;
raise;
end;
end;
WinWord.Visible := true;
Docs := WinWord.Documents;

if fileExists(´c:\passo a passo\documentos\teste2.doc´)=true THEN
deletefile(´c:\passo a passo\documentos\Teste2.doc´);
CopyFile(´c:\passo a passo\documentos\contrato.doc´,´c:\passo a passo\documentos\teste2.doc´,True);
Doc := Docs.Open(´c:\passo a passo\documentos\Teste2.doc´);
Doc.Content.Find.Execute(FindText :=´¬contratante¬´, ReplaceWith := DMrelatorios.TESTEALUNO.VALUE);
if DmRelatorios.TESTERESPONSAVEL.value=´MÃE´ then
begin
Doc.Content.Find.Execute(FindText :=´¬responsável¬´, ReplaceWith := DMrelatorios.TESTEMAE.VALUE);
Doc.Content.Find.Execute(FindText :=´¬rg¬´, ReplaceWith := DMrelatorios.TESTERGMAE.VALUE);
Doc.Content.Find.Execute(FindText :=´¬expedição¬´, ReplaceWith := DMrelatorios.TESTERGMAEDATA.VALUE);
Doc.Content.Find.Execute(FindText :=´¬cpf¬´, ReplaceWith := DMrelatorios.TESTECPFMAE.VALUE);
end
else
begin
Doc.Content.Find.Execute(FindText :=´¬responsável¬´, ReplaceWith := DMrelatorios.TESTEPAI.VALUE);
Doc.Content.Find.Execute(FindText :=´¬rg¬´, ReplaceWith := DMrelatorios.TESTERGPAI.VALUE);
Doc.Content.Find.Execute(FindText :=´¬expedição¬´, ReplaceWith := DMrelatorios.TESTERGPAIDATA.VALUE);
Doc.Content.Find.Execute(FindText :=´¬cpf¬´, ReplaceWith := DMrelatorios.TESTECPFPAI.VALUE);
end;
Doc.Content.Find.Execute(FindText :=´¬endereço¬´, ReplaceWith := DMrelatorios.TESTEENDERECO.VALUE);
Doc.Content.Find.Execute(FindText :=´¬numero¬´, ReplaceWith := DMrelatorios.TESTENUMERO.VALUE);
Doc.Content.Find.Execute(FindText :=´¬complemento¬´, ReplaceWith := DMrelatorios.TESTECOMPLEMENTO.VALUE);
Doc.Content.Find.Execute(FindText :=´¬bairro¬´, ReplaceWith := DMrelatorios.TESTEBAIRRO.VALUE);
Doc.Content.Find.Execute(FindText :=´¬cep¬´, ReplaceWith := DMrelatorios.TESTECEP.VALUE);
Doc.Content.Find.Execute(FindText :=´¬responsável¬´, ReplaceWith := DMrelatorios.TESTERESPONSAVEL.VALUE);
Doc.Content.Find.Execute(FindText :=´¬serie¬´, ReplaceWith := DMrelatorios.TESTESERIE.VALUE);
Doc.Content.Find.Execute(FindText :=´¬ensino¬´, ReplaceWith := DMrelatorios.TESTEENSINO.VALUE);
Doc.Content.Find.Execute(FindText :=´¬RA¬´, ReplaceWith := DMrelatorios.TESTERA.VALUE);



end;