Delphi und Word-Beispiel 1

//==================Word_VBA-Code====================//

sub inWord()

Dimmen Sie myTable als Tisch

Dimmen Sie myBox, myPict, myShape als Form

„Zeichne das erste Rechteck.“

Setze myBox = ActiveDocument.Shapes.AddTextbox(Ausrichtung:=1, Links:=90, Oben:=70, Breite:=414, Höhe:=200)

„Zeichne eine vertikale Linie.“

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

„Zeichne das erste Bild.“

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

LinkToFile:=False, SaveWithDocument:=True, Links:=180, Oben:=80, Breite:=65, Höhe:=80)

„Zeichne das zweite Bild.“

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

LinkToFile:=False, SaveWithDocument:=True, Links:=262, Oben:=80, Breite:=65, Höhe:=80)

'Name

Setze myShape = ActiveDocument.Shapes.AddTextbox(Ausrichtung:=1, Links:=108, Oben:=198, Breite:=126, Höhe:=18)

myShape.Line.Visible = msoFalse

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

'Alter

Setze myShape = ActiveDocument.Shapes.AddTextbox(Ausrichtung:=1, Links:=108, Oben:=225, Breite:=126, Höhe:=18)

myShape.Line.Visible = msoFalse

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

'persönliche Informationen

Setze myShape = ActiveDocument.Shapes.AddTextbox(Ausrichtung:=1, Links:=351, Oben:=90, Breite:=126, Höhe:=99)

myShape.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "Persönliche Informationen"

'Fügen Sie eine Tabelle zum Textfeld hinzu

Setze myShape = ActiveDocument.Shapes.AddTextbox(Ausrichtung:=1, Links:=288, Oben:=198, Breite:=189, Höhe:=63)

myShape.Line.Visible = msoFalse

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

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

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

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

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

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

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

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

Ende sub

//==================Delphi-Code====================//

Verfahren in Delphi;

var

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

Dateiname:string;

beginnen

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

SaveDialog1.Execute;

self.Refresh;

Dateiname:=savedialog1.Dateiname;

wenn length(filename)=0 dann

beginnen

application.MessageBox('Der Speicherort der Statistikdatei wurde nicht ausgewählt und die Statistikdaten können nicht gespeichert werden! ','Eingabeaufforderungsbox',mb_ok);

Ausfahrt;

Ende;

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

WordApp.Visible:=True;

WordDoc:=WordApp.Documents.Add;

versuchen

//Zeichne das erste Rechteck

worddoc.SHAPES.AddTextbox(Ausrichtung:=1, Links:=90, Oben:=70, Breite:=414, Höhe:=200);

//Zeichne eine vertikale Linie

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

//Zeichne das erste Bild

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

LinkToFile:=False, SaveWithDocument:=True, Left:=180, Top:=80, Breite:=65, Höhe:=80);

//Zeichne das zweite Bild

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

LinkToFile:=False, SaveWithDocument:=True, Left:=262, Top:=80, Breite:=65, Höhe:=80);

//Zeichne ein Namensfeld

wordShape:=worddoc.Shapes.AddTextbox(Ausrichtung:=1, Links:=108, Oben:=198, Breite:=126, Höhe:=18);

wordShape.Line.Visible := false;

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

//Altersbox

wordShape:=worddoc.Shapes.AddTextbox(Ausrichtung:=1, Links:=108, Oben:=225, Breite:=126, Höhe:=18);//.Select;

wordShape.Line.Visible := false;

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

//Persönliche Informationsbox

wordShape:=worddoc.Shapes.AddTextbox(Ausrichtung:=1, Links:=351, Oben:=90, Breite:=126, Höhe:=99);//.Select;

wordShape.Line.Visible := false;

wordShape.TextFrame.TextRange.Text := 'Persönliche Informationen';

//Tabelle zum Textfeld hinzufügen

wordShape:=worddoc.Shapes.AddTextbox(Ausrichtung:=1, Links:=288, Oben:=198, Breite:=189, Höhe:=63);//.Select;

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 := 'Gewicht';

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

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

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

WordTable.Cell(3, 1).Range.Text := 'Hoch sitzen';

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

WordDoc.saveas(Dateiname);

application.MessageBox('Ausgabe erfolgreich! ','Eingabeaufforderungsbox',mb_ok);

Endlich

WordDoc.Saved:=true;

WordDoc.Close;

WordApp.Quit;

Ende;

Ende;