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

Question

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 abr...

Cabelo · Answer

Sobe......

Cabelo · Answer

sobe.........

Cabelo · Answer

Sobe �ltima vez..... :cry:  :cry:...

Jos� Henrique · Answer

Cabelo,Quem persiste sempre alcan�a, diz a can��o:[code:1:aac126a699]varWordApp : Variant;constwdHeaderFooterPrimary = 1;begintry  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;[/code:1:aac126a699]Experimenta e diga se funcionou....

Adriano Santos · Answer

[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.

Cabelo · Answer

� verdade... Funcionou muito bem...valeu mesmo...um abra�o....

Eduardo Mendon�a · Answer

Como Faz para dar um Replace no texto do Rodap�...

F�rum Como escrever no quot;cabe�alho e rodap�quot; do Word, em #319390