Word c/Delphi
Olá pessoal ...
Estou tentando fazer contratos criando modelos pelo word e preencher
determinados campos pelo delphi.
Seguindo orientações do forum mas não consigo fazer funcionar.
A seguir descreverei os passos que segui:
1-No word pelo assistente de Mala direta criei um Contrato com alguns
campos inseridos que receberam os dados da tabela.
Criei os campos IDCLIENTE, IDADVOGADO, IDSERVICO, IDVALOR.
Com isto o word criou dois arquivos:
a) Contrato.doc que é o texto do contrato
b) DadosContrato.doc que é o arquivo de dados do contrato que o word
usa para fazer a mescla. Pelo que entendí este arquivo não levo em
questão.
2 -No delphi abro o documento Contrato.doc e dou o seguinte comando
para fazer a procura e substituição:
if Word.ActiveDocument.Bookmarks.Exists(´IDCLIENTE´) then
Word.ActiveDocument.FormFields.Item(´IDCLIENTE´).Result :=
TbClienteNome.Value
else
showmessage(´Campo não Encontrado´);
Aqui está meu problema porque o campo que procuro não é encontrado.
O que estou fazendo de errado ?????
Estou tentando fazer contratos criando modelos pelo word e preencher
determinados campos pelo delphi.
Seguindo orientações do forum mas não consigo fazer funcionar.
A seguir descreverei os passos que segui:
1-No word pelo assistente de Mala direta criei um Contrato com alguns
campos inseridos que receberam os dados da tabela.
Criei os campos IDCLIENTE, IDADVOGADO, IDSERVICO, IDVALOR.
Com isto o word criou dois arquivos:
a) Contrato.doc que é o texto do contrato
b) DadosContrato.doc que é o arquivo de dados do contrato que o word
usa para fazer a mescla. Pelo que entendí este arquivo não levo em
questão.
2 -No delphi abro o documento Contrato.doc e dou o seguinte comando
para fazer a procura e substituição:
if Word.ActiveDocument.Bookmarks.Exists(´IDCLIENTE´) then
Word.ActiveDocument.FormFields.Item(´IDCLIENTE´).Result :=
TbClienteNome.Value
else
showmessage(´Campo não Encontrado´);
Aqui está meu problema porque o campo que procuro não é encontrado.
O que estou fazendo de errado ?????
Jhfeller
Curtidas 0