Florentino,
Antes de mais nada, agradeço sua colaboração!
Veja só, a rotina funciona, mas o "Replace" só ocorre para o primeiro parâmetro
encontrado, caso eu tenha o mesmo parâmetro mais de uma vez, o replace não ocorre para
todos.
Grata,
Janine.
----- Original Message -----
From: Florentino - Agrosoft
To: [EMAIL PROTECTED]
Sent: Friday, October 01, 2004 4:07 AM
Subject: Re: [delphi-br] Word
ROTINA PARA EXPORTAR DADOS PARA WORD
procedure TC_PROCESSOS.Exportar1Click(Sender: TObject);
var
WinWord, Docs, Doc: Variant;
NomeArquivo:String;
AS_CONTATO:STRING;
begin
TRY
IF not QueryExporta.Active then QueryExporta.open;
if queryexporta.IsEmpty then
begin
showmessage('Nada a exportar');
exit;
end;
AS_CONTATO:=VARTOSTR(queryexporta.FieldValues['AS_CONTATO']);
EXCEPT
showmessage('Não foi possível buscar dados para exportação')
END;
TRY
if opendialog1.Execute then
NomeArquivo:=opendialog1.FileName
else
exit;
IF NomeArquivo='' then exit;
WinWord := CreateOleObject('Word.Application');
WinWord.Visible := true;
Docs := WinWord.Documents;
Doc := Docs.Open(NomeArquivo);
Doc.Content.Find.Execute(FindText := '<-AS_CONTATO->', ReplaceWith
:= AS_CONTATO);
EXCEPT
showmessage('Não foi possível exportar os dados. Você está
utilizando'+
'um arquivo criado pelo Word ? !')
END;
end;
----- Original Message -----
From: "Janine Prates - Yahoo" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, September 30, 2004 10:35 AM
Subject: [delphi-br] Word
Pessoal,
Bom dia!
Estou precisando utilizar o word para impressão de cartas e contratos no
meu sistema. Preciso colocar parâmetros nestes documentos e chamá-los
através do delphi, alterar estes parâmetros com informações diversas, ex:
Parâmetro: @nome subistituir por "Maria da Silva".
Preciso utilizar o recurso de mala direta também.
Alguem de vocês trabalha assim, será que poderiam me ajudar?
Grata.
----- Original Message -----
From: Alisson
To: [EMAIL PROTECTED]
Sent: Thursday, September 30, 2004 9:51 AM
Subject: [delphi-br] Erro ao teclar F12
Olá lista!
Alguém sabe me dizer o que é aquela tela que aparece quando se está
rodando uma aplicação no Delphi e você tecla F12. Tem como retirar aquilo?
Se você coloca alguma rotina chamada com a tecla F12 fica chato rodar o
programa, pois sempre aparece aquela tela com código assembler.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
Assine Claudia em
5x de R$ 18,96 Assine Info em
5x de R$ 21,48
Mais... Capricho Manequim Boa Forma Nova Exame
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
