Kopfzeile eines Word-Dokuments auslesen

[semo]

Auslesen des Headers:

Delphi-Quellcode:

  
  aOLEObject := OleDocument.Sections.Item(1);
  aOLEObject := aOLEObject.Headers;
  aOLEObject := aOLEObject.Item(wdHeaderFooterPrimary);
  aOLERange  := aOLEObject.Range;
  FText      := aOLERange.Text;

Auslesen des Footers:

Delphi-Quellcode:

 
  aOLEObject := OleDocument.Sections.Item(1);
  aOLEObject := aOLEObject.Footers;
  aOLEObject := aOLEObject.Item(wdHeaderFooterPrimary);
  aOLERange  := aOLEObject.Range;
  FText      := aOLERange.Text;

edited: hatte 2 mal das gleiche gepostet, sorry @Flare