Word-Dokument seitenweise splitten

[DeddyH]

Hallo DPler,

ich möchte ein existierendes Word-Dokument seitenweise in Einzeldokumenten ablegen. Leider habe ich mich noch nie mit OLE-Automation beschäftigt und weiß daher nicht, wie ich da nun genau vorgehen muss. Gibt es evtl. eine Möglichkeit, ganz auf OLE zu verzichten, das Dokument z.B. in einen Stream zu laden, nach einer Art "Seitenkennung" zu suchen und dann zu speichern, oder ist OLE die praktikablere Möglichkeit? Hier mal mein bisheriger Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Word: Variant;
    Seiten, i: integer;
begin
  try
    Word := GetActiveOleObject('Word.Application');
  except
    Word := CreateOleObject('Word.Application');
  end;
  Word.Visible := True;
  Word.Documents.Open('C:\Dok1.doc',
                      EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                      EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  Seiten := Word.ActiveDocument.ComputeStatistics(2);
  for i := 0 to Seiten - 1 do
    begin
      //aktuelle Seite markieren und als Dokument abspeichern
    end;
  Word.ActiveDocument.Close( -1, EmptyParam, EmptyParam);
end;