Como escrever no quot;cabeçalho e rodapéquot; do Word, em

Delphi

18/04/2006

Colegas..

Estou precisando escrever uma ou duas linhas no cabeçalho e no rodapé de um documento do Word, que já possui um texto de umas 7 páginas, mas que não é fixo... preciso que quando o usuário abrir este arquivo, este será copiado do BD, previamente armazenado, e dependendo do número da proposta e do contrato, estes números apareçam no cabeçalho do arquivo criado..

tem como????


Cabelo

Cabelo

Curtidas 0

Respostas

Cabelo

Cabelo

18/04/2006

Sobe...


GOSTEI 0
Cabelo

Cabelo

18/04/2006

sobe......


GOSTEI 0
Cabelo

Cabelo

18/04/2006

Sobe última vez..... :cry: :cry:


GOSTEI 0
José Henrique

José Henrique

18/04/2006

Cabelo,
Quem persiste sempre alcança, diz a canção:
var
WordApp : Variant;
const
wdHeaderFooterPrimary = 1;
begin
try
  Cursor := crHourGlass;
  WordApp := CreateOleObject(´Word.Application´);
  WordApp.Visible := false;
  WordApp.Documents.Open(´C:\Doc1.doc´); // caminho onde o arquivo se encontra
  WordApp.ActiveDocument.Sections.Item(1).Headers.Item(wdHeaderFooterPrimary).Range.Text := ´Texto do cabeçalho´;
  WordApp.ActiveDocument.Sections.Item(1).Footers.Item(wdHeaderFooterPrimary).Range.Text := ´Texto do rodapé 3´;
  WordApp.ActiveDocument.Save;
finally
  WordApp.ActiveDocument.Close;
  WordApp.Quit;
  Cursor := crDefault;
end;


Experimenta e diga se funcionou.


GOSTEI 0
Adriano Santos

Adriano Santos

18/04/2006

[quote:699c387101=´José Henrique´]Cabelo,
Quem persiste sempre alcança, diz a canção:
var
WordApp : Variant;
const
wdHeaderFooterPrimary = 1;
begin
try
  Cursor := crHourGlass;
  WordApp := CreateOleObject(´Word.Application´);
  WordApp.Visible := false;
  WordApp.Documents.Open(´C:\Doc1.doc´); // caminho onde o arquivo se encontra
  WordApp.ActiveDocument.Sections.Item(1).Headers.Item(wdHeaderFooterPrimary).Range.Text := ´Texto do cabeçalho´;
  WordApp.ActiveDocument.Sections.Item(1).Footers.Item(wdHeaderFooterPrimary).Range.Text := ´Texto do rodapé 3´;
  WordApp.ActiveDocument.Save;
finally
  WordApp.ActiveDocument.Close;
  WordApp.Quit;
  Cursor := crDefault;
end;


Experimenta e diga se funcionou.[/quote:699c387101]

Aqui funcionou, só não esquece de declarar a unit ComObj no uses.


GOSTEI 0
Cabelo

Cabelo

18/04/2006

É verdade...

Funcionou muito bem...

valeu mesmo...

um abraço.


GOSTEI 0
Eduardo Mendonça

Eduardo Mendonça

18/04/2006

Como Faz para dar um Replace no texto do Rodapé
GOSTEI 0
POSTAR