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.