//==================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;