Delphi dan Word (3) Mendapatkan data dari file Word

,

//Dapatkan data dari file Word

Prosedur getWordStr;

var WordApp: Aplikasi Dua Kata;

WordDoc: Dokumen TWord;

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

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

saya,iRow,iCol:integer;

sel saya:Sel;

baris saya:Baris;

mulai

memo1.Garis.Hapus;

// ===== Membuat objek =====

jika tidak Ditugaskan (WordApp) maka

mulai

WordApp:= TWordApplication.Create(nil);

WordApp.Visible := false;

akhir;

jika tidak Ditugaskan (WordDoc) maka

WordDoc:= TWordDocument.Create(nihil);

mencoba

DokumenInx:=1;

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

oReadOnly:=benar;

CfCversions :=EmptyParam;

AddToRctFiles:=EmptyParam;

Dokumen Psw:= Param Kosong;

Templat Psw:=EmptyParam;

oKembalikan:=EmptyParam;

Dokumen WPsw:= Param Kosong;

WPswTemplate:= KosongParam;

oFormat:=EmptyParam;

// ===== Buka file =====

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

Dokumen Psw, Templat Psw, oRevert, Dokumen WPsw, Templat WPsw, oFormat);

// ===== File terkait =====

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

//Metode (1): Mendapatkan konten karakter dari keseluruhan teks, termasuk tabel

s := WordDoc.Range.teks;

//Metode (2): Ambil 1 -- 4 karakter, termasuk tabel

myRange:=WordDoc.Range;

Rentangku.Mulai:=0;

Rentangku.End_ :=4;

Akhirnya

jika Ditugaskan(WordDoc) maka // ===== Tutup file =====

mulai

WordDoc.Tutup;

WordDoc.Putuskan sambungan;

WordDoc.Hancurkan;

WordDoc := nihil;

akhir;

jika Ditugaskan(WordApp) maka // ===== Tutup Kata =====

mulai

WordApp.Keluar;

WordApp.Putuskan;

WordApp.Hancurkan;

WordApp := nihil;

akhir;

akhir;

akhir;