Einzelne Seiten in Word markieren und speichern

[Stefan Dungs]

Hallo an Alle,

ich habe mit:

OleContainer1.CreateObject('Word.Document',false);
OleContainer1.CreateObjectFromFile('namederdatei.d oc, false);
OleContainer1.Run;
OleContainer1.DoVerb(ovPrimary);
OleContainer1.DoVerb(ovShow);

eine Word-Datei geöffnet und will sie nun seitenweise in eine Access-Datei speichern.

Meine Frage ist nun: wie markiere ich die einzelnen Seiten, um sie dann seitenweise mit; z.B.
OleContainer1.SaveAsDocument('Seite1.doc');

zu speichern.

Und wie kann ich Sie als OLE-Objekt in eine Access-Datei speichern, so das sie per Ole-Server angezeigt werden kann.

Der Weg über:

procedure WriteDocData

var
OutData : TStream;

begin
try
ADOTable.Edit;
OutData := ADOTable.CreateBlobStream(ADOTable.FieldByName('WO RDText'), bmReadWrite);
OLEContainer1.SaveToStream(OutData);
ADOTable.Post;
finally
OutData.Free;
end;
end;

schreibt den OLEContainer in das Datenbankfeld, dieses wird aber nicht als OLE-Objekt erkannt.
Das Kopieren der Word-Seite in die Zwischenablage, mit anschließendem Einfügen in das Datenbankfeld, funktioniert problemlos. Lässt sich dieser Weg ggf. auch automatisieren?

Danke für die Hilfe.

mfg
Stefan