Enviar dados de tabela Paradox no Word

Delphi

18/07/2003

Olá pessoal,
Olá pessoal,

Tenho o seguinte código:

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
Texto:WideString;
//Dialogo:WideString;
begin

WordApplication1.Connect;
WordApplication1.Visible:=True;
//WordDocument1.NewInstance; //Cria um novo documento - não será necessário
WordFont1.ConnectTo(WordDocument1.Content.Font);
WordFont1.Bold:=0; //Não aplica o negrito o texto
//WordFont1.Bold:=1; //Aplica o negrito
WordFont1.Italic:=0; //Não aplica o itálico no texto
//WordFont1.Italic:=1; //Aplica o itálico
WordFont1.Size:=12; //Aplica o tamanho da fonte para 12
WordParagraphFormat1.ConnectTo(WordDocument1.Content.Get_ParagraphFormat);
Texto:=´Certifico que, ´ + Table1NomeDoAluno.Text + ´filho(a) de ´ + Table1NomeDoPai.Text + ´ e ´ + Table1NomeDaMae.Text + ´, nascido(a) em ´ + Table1DataDeNascimento.Text + ´ na cidade de ´ + Table1Cidade.Text;
WordDocument1.Content.InsertAfter(Texto);// Insere o texto da tabela.
Application.Minimize; // Minimiza sua aplicação.

end;

Faz direitinho, o único problema é q eu preciso fazer isso num documento q já existe e isso ele não está fazendo.
Será q alguém pode me ajudar?

Grato,

Ilano.


Ilanocf

Ilanocf

Curtidas 0
POSTAR