Delphi dan Contoh Kata 1

//===Kode Word_VBA======//

sub di Word()

Redupkan myTable Sebagai Tabel

Redupkan myBox, myPict, myShape As Shape

'Gambarlah persegi panjang pertama

Setel myBox = ActiveDocument.Shapes.AddTextbox(Orientasi:=1, Kiri:=90, Atas:=70, Lebar:=414, Tinggi:=200)

'Gambarlah garis vertikal

Setel myLine = ActiveDocument.Shapes.AddLine(255, 70, 255, 270)

'Buatlah gambar pertama

Setel myPict = ActiveDocument.Shapes.AddPicture("D:/test/test/load_jpg1/photo/108259.jpg", _

LinkToFile:=False, SaveWithDocument:=Benar, Kiri:=180, Atas:=80, Lebar:=65, Tinggi:=80)

'Buatlah gambar kedua

Setel myPict = ActiveDocument.Shapes.AddPicture("D:/test/test/load_jpg1/photo/108259.jpg", _

LinkToFile:=False, SaveWithDocument:=Benar, Kiri:=262, Atas:=80, Lebar:=65, Tinggi:=80)

'Nama

Atur myShape = ActiveDocument.Shapes.AddTextbox(Orientasi:=1, Kiri:=108, Atas:=198, Lebar:=126, Tinggi:=18)

myShape.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "Nama: Shinnosuke"

'usia

Atur myShape = ActiveDocument.Shapes.AddTextbox(Orientasi:=1, Kiri:=108, Atas:=225, Lebar:=126, Tinggi:=18)

myShape.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "Umur: 12"

'informasi pribadi

Atur myShape = ActiveDocument.Shapes.AddTextbox(Orientasi:=1, Kiri:=351, Atas:=90, Lebar:=126, Tinggi:=99)

myShape.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "Informasi Pribadi"

'Tambahkan tabel ke kotak teks

Atur myShape = ActiveDocument.Shapes.AddTextbox(Orientasi:=1, Kiri:=288, Atas:=198, Lebar:=189, Tinggi:=63)

myShape.Line.Visible = msoFalse

Setel myTable = ActiveDocument.Tables.Add(Range:=myShape.TextFrame.TextRange, NumRows:=3, NumColumns:= _

2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed)

myTable.Cell(1, 1).Range.Text = "Berat"

myTable.Cell(1, 2).Range.Text = "40kg"

myTable.Cell(2, 1).Range.Text = "Tinggi"

myTable.Cell(2, 2).Range.Text = "120cm"

myTable.Cell(3, 1).Range.Text = "Duduklah"

myTable.Cell(3, 2).Range.Text = "65cm"

sub akhir

//===Kode Delphi======//

Prosedur di Delphi;

var

WordApp,WordDoc,WordTable,wordShape:OleVariant; // se:Seleksi;

nama file:string;

mulai

SaveDialog1.InitialDir:=ExtractFilePath(application.ExeName)+'out_file';

SimpanDialog1.Jalankan;

diri.Segarkan;

nama file:=savedialog1.NamaFile;

jika panjang(nama file)=0 maka

mulai

application.MessageBox('Lokasi penyimpanan file statistik belum dipilih, dan data statistik tidak dapat disimpan! ','Kotak prompt',mb_ok);

KELUAR;

akhir;

WordApp:=CreateOleObject('Word.Application');

WordApp.Visible:=Benar;

WordDoc:=WordApp.Documents.Add;

mencoba

//Gambar persegi panjang pertama

worddoc.SHAPES.AddTextbox(Orientasi:=1, Kiri:=90, Atas:=70, Lebar:=414, Tinggi:=200);

//Gambar garis vertikal

worddoc.Bentuk.AddLine(255, 70, 255,270);

//Buatlah gambar pertama

worddoc.SHAPES.addpicture(ExtractFilePath(Application.ExeName)+'photo/108259.jpg',

LinkToFile:=False, SaveWithDocument:=Benar, Kiri:=180, Atas:=80, Lebar:=65, Tinggi:=80);

//Gambarlah gambar kedua

worddoc.SHAPES.addpicture(ExtractFilePath(Application.ExeName)+'photo/108259.jpg',

LinkToFile:=False, SaveWithDocument:=Benar, Kiri:=262, Atas:=80, Lebar:=65, Tinggi:=80);

//Gambar kotak nama

wordShape:=worddoc.Shapes.AddTextbox(Orientasi:=1, Kiri:=108, Atas:=198, Lebar:=126, Tinggi:=18);

WordShape.Line.Visible := false;

wordShape.TextFrame.TextRange.Text := 'Nama: Shinnosuke';

//kotak umur

wordShape:=worddoc.Shapes.AddTextbox(Orientasi:=1, Kiri:=108, Atas:=225, Lebar:=126, Tinggi:=18);//.Pilih;

WordShape.Line.Visible := false;

wordShape.TextFrame.TextRange.Text := 'Umur: 12';

//Kotak informasi pribadi

wordShape:=worddoc.Shapes.AddTextbox(Orientasi:=1, Kiri:=351, Atas:=90, Lebar:=126, Tinggi:=99);//.Pilih;

WordShape.Line.Visible := false;

wordShape.TextFrame.TextRange.Text := 'Informasi pribadi';

//Tambahkan tabel ke kotak teks

wordShape:=worddoc.Shapes.AddTextbox(Orientasi:=1, Kiri:=288, Atas:=198, Lebar:=189, Tinggi:=63);//.Pilih;

WordShape.Line.Visible := false;

WordTable := worddoc.Tables.Add(Range:=wordShape.TextFrame.TextRange, NumRows:=3, NumColumns:=2,

DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed);

WordTable.Cell(1, 1).Range.Text := 'Berat';

WordTable.Cell(1, 2).Range.Text := '40kg';

WordTable.Cell(2, 1).Range.Text := 'Tinggi';

WordTable.Cell(2, 2).Range.Text := '120cm';

WordTable.Cell(3, 1).Range.Text := 'Duduk tinggi';

WordTable.Cell(3, 2).Range.Text := '65cm';

WordDoc.saveas(nama file);

application.MessageBox('Keluaran berhasil! ','Kotak prompt',mb_ok);

Akhirnya

WordDoc.Disimpan:=true;

WordDoc.Tutup;

WordApp.Keluar;

akhir;

akhir;