Já fiz com macro.
O usuário escolhe o modelo desejado, preenche um formulário que substitui os
dados de cabeçalho e rodapé e após o documento fica disponível na tela,
travado, com apenas alguns campos de formulário que podem ser preenchidos.
Mas sem o uso de delphi.
Não sei se é o que você precisa.
Minha solução não é boa. Estava procurando outra, tipo com o Delphi, mas
acabei desistindo.
Aparecido
----- Original Message -----
From: "Vinicius Mommensohn" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, November 09, 2004 4:01 PM
Subject: Re: [delphi-br] Arquivos do word
Na verdade, o que eu vou fazer é criar um arquivo no word (como se fosse um
modelo) e substituir alguamas palavras e depois mandar imprimir dar um
preview ou imprimir. Alguem já fez algo assim?!?!?
É que hoje eu faço com html, mas dah muito trabalho dimais montar todos as
telas padroes! :/
[]s
Vinicius
----- Original Message -----
From: Aparecido Gasparoto
To: [EMAIL PROTECTED]
Sent: Tuesday, November 09, 2004 6:00 PM
Subject: Re: [delphi-br] Arquivos do word
Procurei artigos na internet mas não consegui encontrar quase nada.
Estava pretendendo gerar alguns arquivos automaticamente de acordo com a
escolha do usuário, mas acabei desistindo.
Abaixo segue o código fonte de um teste que estava fazendo.
Abraços.
Aparecido
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Word97, OleServer, StdCtrls, ComObj, ShellApi;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
GroupBox2: TGroupBox;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var WordApplication, WordDocument, WordFont, WordParagraphFormat : Variant;
Texto :WideString;
begin
if Edit1.Text <> '' then
begin
WordApplication := CreateOleObject('Word.Application') ;
WordDocument := WordApplication.Documents.Add;
WordApplication.Selection.Font.Bold:=1;
if RadioButton1.Checked = True then
WordApplication.Selection.Font.Color:=clGreen
else if RadioButton2.Checked = True then
WordApplication.Selection.Font.Color:=clRed
else if RadioButton3.Checked = True then
WordApplication.Selection.Font.Color:=clBlue;
if RadioButton4.Checked = True then
WordApplication.Selection.Font.Size:=10
else if RadioButton5.Checked = True then
WordApplication.Selection.Font.Size:=12
else if RadioButton6.Checked = True then
WordApplication.Selection.Font.Size:=14
else if RadioButton7.Checked = True then
WordApplication.Selection.Font.Size:=16
else if RadioButton8.Checked = True then
WordApplication.Selection.Font.Size:=18;
WordApplication.Selection.ParagraphFormat.Alignment :=
wdAlignParagraphCenter;
WordApplication.Selection.TypeText(Edit1.Text);
WordDocument.SaveAs(FileName := 'C:\Doc.Doc', AddToRecentFiles :=
False) ;
WordApplication.Quit(True);
ShellExecute(1,
'OPEN',
'winword.exe',
Pchar('c:\doc.doc'),
'c:\Arquivos de Programas\Microsoft Office\',
4);
end
else
ShowMessage('Digite o texto');
end;
end.
----- Original Message -----
From: "Vinicius Mommensohn" <[EMAIL PROTECTED]>
To: "Delphi-br" <[EMAIL PROTECTED]>
Sent: Tuesday, November 09, 2004 3:44 PM
Subject: [delphi-br] Arquivos do word
Boa tarde pessoal,
Vi um artigo no site do clube delphi sobre como manipular arquivos .doc, mas
não consegui baixar o artigo porque o link tava corrompido. Alguem tem
alguma apostila completa de como trabalhar com arquivos .doc pelo delphi?!?!
Desde já agradeço,
[]s
Vinicius
[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:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
----------------------------------------------------------------------------
----
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]
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
