Tudo bem?
Eu preciso ler um arquivo texto e inserir no Word aonde eu iria de
acordo com a linha lida alteraria a fonte, tamanho, etc.
Abaixo tem uma dica da internet e help do Delphi de como inserir no
Word e de como ler um arquivo texto e como eu pensei em unir os dois
para que fizesse isso, mas não sei como ler até determinada linha
para que depois eu possa alterar a fonte e nem o comando para inserir
no Word a linha que foi lida do arquivo texto e nem sei também se o
que eu pensei em fazer abaixo irá funcionar.
Eu sou iniciante e gostaria que me explicasse mostrando o código.
Ou então outra idéia para fazer isso.
Desde já fico muito grato pela ajuda que receber.
Unindo os dois exemplos que estão abaixo, imagino que seja um código
deste tipo
procedure TForm1.Button1Click(Sender: TObject);
var
Word: Variant;
var arq: TextFile;
linha: String;
begin
Word := CreateOleObject('Word.Basic');
Word.FileNew('Normal');
Word.AppShow;//mostra o word
Word.FileNew;//inicia um novo documento
Word.FontSize(24);//muda o tamanho da fonte
AssignFile ( arq, 'c:\arquivo.txt' );
Reset ( arq );
ReadLn ( arq, linha );
while not Eof ( arq ) do
begin
{ Processe a linha lida aqui. }
ReadLn ( arq, linha );
Word.Insert('Imagino que aqui iria o comando para ler o arquivo texto
e inserir no word' #13);
end;
----------------------------------------------
exemplos da internet e do delphi
procedure TForm1.Button1Click(Sender: TObject);
var
Word: Variant;
begin
Word := CreateOleObject('Word.Basic');
Word.FileNew('Normal');
Word.AppShow;//mostra o word
Word.FileNew;//inicia um novo documento
Word.FontSize(24);//muda o tamanho da fonte
Word.Insert('This is the first line'#13);
Word.bold;//coloca negrito
Word.Insert('This is the second line'#13);
Word.FileSaveAs('c:test.txt', 3);
end;
var arq: TextFile;
linha: String;
begin
AssignFile ( arq, 'c:\arquivo.txt' );
Reset ( arq );
ReadLn ( arq, linha );
while not Eof ( arq ) do
begin
{ Processe a linha lida aqui. }
{ Para particionar a linha lida em pedaços, use a função Copy. }
ReadLn ( arq, linha );
end;
CloseFile ( arq );
--
<<<<< 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
