MsWord

Delphi

02/08/2007

Estou criando um documento Word via programacao....com o MSWord...
gostaria de saber, qual comando para ir direto para o rodapé da pagina, para poder adicionar algumas informacoes.

MSWord:= CreateOleObject (´Word.Basic´);
MSWord.AppShow;
.
.
.

Alguem aew saberia qual comando para isso?
desde ja agradeço


Stu

Stu

Curtidas 0

Respostas

Micheus

Micheus

02/08/2007

Estou criando um documento Word via programacao....com o MSWord... gostaria de saber, qual comando para ir direto para o rodapé da pagina, para poder adicionar algumas informacoes. MSWord:= CreateOleObject (´Word.Basic´); MSWord.AppShow; . . . Alguem aew saberia qual comando para isso? desde ja agradeço
A dica é utilizar o gravador de macros do próprio Word/Excel.

Segue um exemplo:
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;



GOSTEI 0
POSTAR