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