Fórum MsWord #344011

procedure TForm1.Button5Click(Sender: TObject);
const
  wdNormalView = 1;
  wdOutlineView = 2;
  wdPrintView = 3;
  wdPrintPreview = 4;
  wdMasterView = 5;
  wdWebView = 6;

  wdSeekMainDocument = 0;
  wdSeekPrimaryHeader = 1;
  wdSeekFirstPageHeader = 2;
  wdSeekEvenPagesHeader = 3;
  wdSeekPrimaryFooter = 4;
  wdSeekFirstPageFooter = 5;
  wdSeekEvenPagesFooter = 6;
  wdSeekFootnotes = 7;
  wdSeekEndnotes = 8;
  wdSeekCurrentPageHeader = 9;
  wdSeekCurrentPageFooter = 10;
var
  MSWord :OLEVariant;
begin
  MSWord := CreateOleObject (´Word.Application´);
 // mostra o documento do Word
  MSWord.Documents.Add; //adiciona novo documento
 // ativa modo PrintView para posibilitar o acesso ao rodapé
  MSWord.ActiveWindow.ActivePane.View.Type := wdPrintView;
 // ativa o rodapé
  MSWord.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageFooter;
  MSWord.Selection.Text := ´Escreve este texto no Rodapé´;

 // retorna para o corpo do texto (sai do rodapé)
  MSWord.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;
    :
    :
  MSWORD.ActiveDocument.SaveAs(´D:\Teste.doc´);
  MSWORD.ActiveDocument.Close;
  MSWORD.Quit;
end;