DelphiとWord (3) Wordファイルからデータを取得する

、

//Wordファイルからデータを取得

手順 getWordStr;

var WordApp: TWordアプリケーション;

WordDoc: TWordDocument;

DocInx、oFileName、CfCversions、oReadOnly、AddToRctFiles、PswDocument、

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

i、iRow、iCol:整数;

myCell:セル;

myRow:行;

始める

memo1.Lines.Clear;

// ===== オブジェクトを作成 =====

割り当てられていない場合(WordApp)

始める

WordApp:= TWordApplication.Create(nil);

WordApp.Visible := false;

終わり;

割り当てられていない場合(WordDoc)

WordDoc:= TWordDocument.Create(nil);

試す

DocInx:=1;

oファイル名 := 'd:/test.doc';

oReadOnly:=true;

CfCversions := EmptyParam;

AddToRctFiles:= EmptyParam;

PswDocument:= EmptyParam;

PswTemplate:= EmptyParam;

oRevert:= EmptyParam;

WPswDocument:= EmptyParam;

WPswTemplate:= EmptyParam;

oFormat:= 空のパラメータ;

// ===== ファイルを開く =====

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

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

// ===== 関連ファイル =====

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

//方法(1): 表を含むテキスト全体の文字内容を取得する

s := WordDoc.Range.text;

//方法(2): 表を含む 1 ～ 4 文字を取得します

myRange:=WordDoc.Range;

myRange.Start:=0;

myRange.End_ :=4;

ついに

if Assigned(WordDoc) then // ===== ファイルを閉じる =====

始める

WordDoc.Close;

WordDoc.切断;

WordDoc.Destroy;

WordDoc := nil;

終わり;

if Assigned(WordApp) then // ===== Word を閉じる =====

始める

WordApp.終了;

WordApp.切断;

WordApp.Destroy;

WordApp := nil;

終わり;

終わり;

終わり;