Delphi und Word (3) Abrufen von Daten aus Word-Dateien

,

//Daten aus Word-Datei abrufen

PROzedur getWordStr;

var WordApp: TWordapplication;

WordDoc: TWordDocument;

DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,

PswTemplate,oRevert,wpswDocument,WPswTemplate,oFormat: OleVariant;

i,iRow,iCol:integer;

myCell:Cell;

myRow:Row;

beginnen

memo1.Lines.Clear;

// ===== Objekt erstellen =====

wenn nicht zugewiesen (WordApp), dann

beginnen

WordApp:= TWordApplication.Create(nil);

WordApp.Visible := false;

Ende;

wenn nicht zugewiesen (WordDoc), dann

WordDoc:= TWordDocument.Create(nil);

versuchen

DocInx:=1;

oFileName := 'd:/test.doc';

oReadOnly:=true;

CfCversions := EmptyParam;

AddToRctFiles:= EmptyParam;

PswDocument:= EmptyParam;

PswTemplate:= EmptyParam;

oRevert:= EmptyParam;

WPswDocument:= EmptyParam;

WPswTemplate:= EmptyParam;

oFormat:= EmptyParam;

// ===== Datei öffnen =====

WordApp.Documents.open(oFileName,CfCversions,oReadOnly,AddToRctFiles,

PswDocument,PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat);

// ===== Zugehörige Dateien =====

WordDoc.ConnectTo(WordApp.Documents.Item(DocInx));

//Methode (1): Ermitteln Sie den Zeicheninhalt des gesamten Textes, einschließlich der Tabellen

s := WordDoc.Range.text;

//Methode (2): Nehmen Sie 1 bis 4 Zeichen, einschließlich Tabellen

myRange:=WordDoc.Range;

myRange.Start:=0;

myRange.End_ :=4;

Endlich

if Assigned(WordDoc) then // ===== Schließen Sie die Datei =====

beginnen

WordDoc.Close;

WordDoc.Disconnect;

WordDoc.Destroy;

WordDoc := Null;

Ende;

if Assigned(WordApp) then // ===== Close Word =====

beginnen

WordApp.Quit;

WordApp.Disconnect;

WordApp.Destroy;

WordApp := null;

Ende;

Ende;

Ende;