Word c/Delphi
Estou tentando fazer contratos através de um documento Word.
Seguindo exemplos deste forum, fiz:
1-Criei no Word uma mala direta com os seguintes campos:
IDCLIENTE, IDCONTRATADO, IDSERVICO, IDVALOR
2-Criei um Contrato no Word e inseri os campos acima nos locais onde
quero que apareçam.
3-Segui o exemplo para substituição:
if word.activedocument.bookmarks.exists(´IDCLIENTE´) then
word.activedocument.formfields.item (´IDCLIENTE´).result:=Table1Nome.Text
else
showmessage(´Campo não Encontrado´);
Quando executo o programa aparece a mensagem
´Campo não Encontrado´
O que está errado?? Porque não encontra o campo ???
Também tentei procurar o campo ´<<IDCLIENTE>>´
e dá o mesmo problema.
Seguindo exemplos deste forum, fiz:
1-Criei no Word uma mala direta com os seguintes campos:
IDCLIENTE, IDCONTRATADO, IDSERVICO, IDVALOR
2-Criei um Contrato no Word e inseri os campos acima nos locais onde
quero que apareçam.
3-Segui o exemplo para substituição:
if word.activedocument.bookmarks.exists(´IDCLIENTE´) then
word.activedocument.formfields.item (´IDCLIENTE´).result:=Table1Nome.Text
else
showmessage(´Campo não Encontrado´);
Quando executo o programa aparece a mensagem
´Campo não Encontrado´
O que está errado?? Porque não encontra o campo ???
Também tentei procurar o campo ´<<IDCLIENTE>>´
e dá o mesmo problema.
Jhfeller
Curtidas 0
Respostas
Rocsadan
10/09/2003
if word.activedocument.bookmarks.exists(´IDCLIENTE´) then
begin//aqui
word.activedocument.formfields.item (´IDCLIENTE´).result:=Table1Nome.Text
end//aqui
else
showmessage(´Campo não Encontrado´);
begin//aqui
word.activedocument.formfields.item (´IDCLIENTE´).result:=Table1Nome.Text
end//aqui
else
showmessage(´Campo não Encontrado´);
GOSTEI 0
Echoesofpinkfloyd
10/09/2003
if word.activedocument.bookmarks.exists(´IDCLIENTE´) then
begin//aqui
word.activedocument.formfields.item (´IDCLIENTE´).result:=Table1Nome.Text
end//aqui
else
showmessage(´Campo não Encontrado´);
da no mesmo cara ...
GOSTEI 0
Rocsadan
10/09/2003
Não critique de a sua solução só isso.
GOSTEI 0
Echoesofpinkfloyd
10/09/2003
Não critique de a sua solução só isso.
:shock: nossa desculpa bbc
GOSTEI 0