E ai tudo bem
Tenho esta rotina para converter um modelo RTF feito no Word.
Carrego o documento no RICHEDIT com a propriedade PLAINTEXT = TRUE e VISIBLE =
FALSE depois passo o RICHEDIT, TAG e o TEXTO para a procedure.
Depois salvo e abro no Word para impressão e ou envio por EMAIL.
Não testei com TSTRINGLIST, pois uso o RICHEDIT para outras rotinas, mas acho
que deve funcionar tambem.
procedure Converte(Rich: TRichedit; Tag, Texto: string; Final: Integer = 0);
var
Inicio: Integer;
begin
if Pos(Tag, Rich.Text) = 0 then
raise exception.Create('Tag não encontrada!'#13 + Tag);
while Pos(Tag, Rich.Text) > 0 do
begin
{}
Inicio := Pos(Tag, Rich.Text) - 1;
Rich.SelStart := Inicio;
Rich.SelLength := Length(Tag);
{}
Rich.SelText := Texto;
{}
if Final <> 1 then
begin
if (Tag = '<A1>') or (Tag = '<A2>') or (Tag = '<A3>') or
(Tag = '<A4>') or (Tag = '<A5>') or (Tag = '<A6>') or
(Tag = '<A7>') or (Tag = '<A8>') or (Tag = '<A9>') or
(Tag = '<A9>') or (Tag = '<A10>') or (Tag = '<A11>') or
(Tag = '<A12>') or (Tag = '<A13>') or (Tag = '<B1>') or
(Tag = '<B2>') or (Tag = '<B3>') or (Tag = '<B4>') or
(Tag = '<B5>') or (Tag = '<B6>') or (Tag = '<B7>') or
(Tag = '<B8>') or (Tag = '<B9>') then
begin
Exit;
end;
end;
end;
end;
Elcio Domingos Ramos <mailto:[EMAIL PROTECTED]>
DEMAG Cranes & Components Ltda.
Planejamento Industrial
Fone: (11)2145-7823 - Fax : (11)2145-7910
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Dimas
Enviada em: sábado, 23 de abril de 2005 09:28
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Abrir .RTF Delphi - Word
Mais uma duvida (Uso Delphi 7)
Preciso abrir um arquivo MODELO.RTF com o Word (mas sem mostrar o
Word sendo aberto)....
Neste arquivo, preciso localizar as palavras
xxNOME e trocar por Nome do Cliente
xxRG e trocar pelo numero do RG do cliente
Salvar o arquivo como CARTA.RTF ou CARTA.DOC
Pesquisei mas só achei exemplos em como Criar um
novo documento.. e nao como Abrir um ja existente.
Obrigado
Dimas Fernando
--
<<<<< 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:
<http://br.rd.yahoo.com/SIG=12a28vpuq/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1114266553/A=2191897/R=0/SIG=10vqa2grn/*http://br.diversao.yahoo.com/>
<http://br.rd.yahoo.com/SIG=12a28vpuq/M=264379.5078783.6203979.1588051/D=brclubs/S=2137111264:HM/EXP=1114266553/A=2191897/R=1/SIG=10vqa2grn/*http://br.diversao.yahoo.com/>
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília
_____
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] <mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
<http://br.yahoo.com/info/utos.html> 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
