subistituindo contrato via word por via delphi

[marcio.theis 3]

ola

 

teria como descrever esta linha por gentileza

 

Doc.Content.Find.Execute(FindText := '(ANOLETIVO)', ReplaceWith := DM1.ANOLETIVO_MATRANO.Text);

 

DM1.ANOLETIVO_MATRANO.Text); ISTO SERIA UM EDIT

Ele vai procurar por (ANOLETIVO) e substituir por DM1.ANOLETIVO_MATRANO.Text, mas DM1.ANOLETIVO_MATRANO.Text é um DataModule com uma tabela com um campo específico, ou seja:

DM -> DataModulo;

ANOLETIVO_MATRANO -> É uma tabela seguido do campo;

 

 

seria possivel ser mais especifico nestes codigos ? pois pra mim é um projeto novo e muito importante

Nem sempre se pode explicar todas as linhas de um código, as vezes a pesquisa ou até mesmo perguntando como você fez agora resolve, mas como disse, poucas vezes se comenta linha por linha...

[conecty 0]

grato mesmo pela resposta, mais eu posso usar no lugar de (ANOLETIVO_MATRANO -> É uma tabela seguido do campo) poder ser um edit.text ou um label.camption estar também dando erro nesta linha WinWord := CreateOleObject('Word.Application'); não sei porque ?

[marcio.theis 3]

Sim, pode passar o que quiser, pode ser um edit sem problemas.

O erro deve de ser falta de declaração de uma unit, declare no uses o seguinte ComObj

[conecty 0]

ok era isso mesmo mais agora estar apresentando esta mensagem ...........'CoInitialize não foi chamado'..........grato pela ajuda !!!

[marcio.theis 3]

Tente declarar no uses ActiveX...

Caso tenha mais problemas, abra um novo post...

Mais informações pode ver neste post.

[conecty 0]

Mim permita funcionou gerou um novo ccontrato até com o nome que eu digitei no edit só que ele estar gerando em sem as informaçoes tipo ALUNO ETC

[marcio.theis 3]

Bom, não entendi nada do que quiz dizer...Abra um novo tópico sobre isto, este post fugiu do propósito inicial...

[Antonio Jose G. Assumpção 0]

Para qual versão do delphio isso funciona ???

E se você tem exemplo de arir um arquivo word com uma tabela dentro dele e ler os dados de cada celula, unclusive a formatação ?

 

Grato.

 

Para qual versão do delphio isso funciona ???

E se você tem exemplo de arir um arquivo word com uma tabela dentro dele e ler os dados de cada celula, unclusive a formatação ?

 

Grato.