Kopfzeile eines Word-Dokuments auslesen

[s.h.a.r.k]

Hallo,

ich werde nochmal wahnsinnig... ich versuche nun schon seit heute morgen die Kopfzeile von Word auszulesen und schaffe es einfach nicht. Ich habe schon einige Themen dazu gefunden, aber da steht überall immer was von "Kopfzeile erstellen", was mich nicht wirklich weiterbringt. Des Weiteren habe ich diesen Code gefunden, den ich vergeblich versucht habe anzuwenden:

Delphi-Quellcode:

WordApplication.ActiveWindow.ActivePane.View.SeekView := 10;

Die Zahl habe ich auch schon geändert, aber es imm eine Fehlermeldung, dass das Object diesen Befehl nicht unterstützt (oder sowas in die Richtung).

Hat mir jemand eine Lösung dafür? Ich wäre euch zu tiefstem Dank verbunden!

PS: In der Kopfzeile ist eine Tabelle - wie muss ich da dann drauf zugreifen?! Habe bisher noch gar nicht danach gesucht...

mfg shark

[s.h.a.r.k]

Ich hab hier noch ein bisschen Quelltext, wie ich mein Word-Dokument öffne - die Unit ComObj muss man dabei in die uses-Klausel aufnehmen!

Delphi-Quellcode:

function LoadDataFromWordFile(const AFile: String; var Data: TStrings): Integer;
var
  Word : Variant;
  i : Integer;
begin
  Data.Clear;
  Result := GetTickCount;
  try
    Word := CreateOleObject('Word.Application');  // Verbindung zu Word aufbauen
    Word.Documents.Add(Template:=AFile);          // Öffnen der Datei
  except
    Result := -1; // Fehler beim Öffnen von Word bzw. der Datei
  end;

  if Result > 0 then
    try
      try
        for i := 1 to Word.ActiveDocument.FormFields.Count do
          Data.Add(trim(Word.ActiveDocument.FormFields.Item(i).Result));
        Result := GetTickCount - Result;
      except
        Result := -1;
      end;
    finally
      Word.Quit;
      Word := Unassigned; // Word schließen
    end;
end;

[edit]
war irgednwie dumm einen neuen Post anzufagen - hätte den Text auch in den alten aufnehmen sollen, sorry :wall:
[/edit]

[marabu]

Hi,

laut Dokumentation sollte dieses Ungetüm dir helfen:

Code:

Word.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text

Grüße vom marabu

[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 :cheers: @Flare

[Flare]

Irgendwie sind die beiden Quelltexte zum auslesen von Header und Footer identisch...oder ist das Absicht?


Flare

[semo]

hab die klitzekleine änderung nachgetragen, danke für den hinweis :)