Operasi pada file Word menggunakan metode CreateOleObject di Delphi

Menggunakan Metode CreateOLEObject memiliki keunggulan yang melekat pada operasi dokumen Word. Program operasi dokumen kata.

Berikut ini adalah percobaan yang saya lakukan pada mesin ini, dan konfigurasi perangkat lunak mesin adalah sebagai berikut:

Windows XP+Delphi7.0+Office 2003

Program ini sangat sederhana. Program saat program ditutup.

unit utama;

antarmuka

// Jika Anda ingin menggunakan CreateOleObject untuk beroperasi pada dokumen Word, Anda harus menggunakan

// Sertakan pernyataan COMOBJ dan pernyataan WordXP dalam pernyataan tersebut

penggunaan

Windows, pesan, sysutils, varian, kelas, grafik, kontrol, formulir,

Comobj, wordxp, dialog, stdctrls;

jenis

Tform1 = class (tform)

Button1: tbutton;

Edit1: tedit;

Prosedur Button1Click (pengirim: Tobject);

Prosedur FormCreate (pengirim: Tobject);

Prosedur FormClose (pengirim: Tobject; var Action: tcloseaction);

// Prosedur Button2Click (pengirim: TOBJEKS);

Pribadi

{Deklarasi Pribadi}

publik

{Deklarasi Publik}

akhir;

var

Form1: tform1;

// menyatakan kedua variabel ini sebagai variabel global

Fword: varian;

FDOC: varian;

Pelaksanaan

{$ R *.dfm}

Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);

Mulai

Fword.selection.typeParagraph;

Fword.selection.typetext (teks: = form1.edit1.text);

akhir;

Prosedur TFORM1.FORMCREATE (Pengirim: Tobject);

Mulai

// Pertama buat objek dan berikan prompt jika terjadi pengecualian

mencoba

Fword: = createoleObject ('word.application');

// Apakah eksekusi program kata terlihat?

Fword.visible: = false;

kecuali

Showmessage ('Buat objek kata gagal!');

KELUAR;

akhir;

// Pertama buat halaman baru di kata terbuka, lalu ketik "halo," + enter + "dunia!"

mencoba

Fdoc: = fword.documents.add;

Fword.selection.typetext (teks: = 'halo,');

Fword.selection.typeParagraph;

Fword.selection.typetext (teks: = 'world!');

kecuali

pada e: pengecualian lakukan

Showmessage (e.message);

akhir;

akhir;

// Simpan konten file ke direktori saat ini saat program ditutup dan dinamai setelah test.doc

// Menutup Program Kata pada saat yang sama

Prosedur TFORM1.FORMCLOSE (pengirim: Tobject; var Tindakan: tcloseaction);

Mulai

Fdoc.saveas (extractFilePath (application.exename) +'test.doc');

Fword.quit;

Fword: = tidak ditugaskan;

akhir;

akhir.

Selain itu, operasi pada file kantor lain relatif mirip, jadi saya tidak akan membahas detailnya. Metode ini juga dapat menyelesaikan operasi dokumen yang lebih kompleks melalui referensi ke makro VBA yang lebih kompleks di file Word.