Delphi et Word Exemple 1

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

sous inWord()

Atténuer maTable en tant que tableau

Dim myBox, myPict, myShape As Shape

'Dessine le premier rectangle

Définir myBox = ActiveDocument.Shapes.AddTextbox (Orientation : = 1, Gauche : = 90, Haut : = 70, Largeur : = 414, Hauteur : = 200)

'Trace une ligne verticale

Définir maLigne = ActiveDocument.Shapes.AddLine(255, 70, 255, 270)

'Dessine la première image

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

LinkToFile :=False, SaveWithDocument :=True, Left :=180, Top :=80, Largeur :=65, Hauteur :=80)

'Dessine la deuxième image

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

LinkToFile :=False, SaveWithDocument :=True, Left :=262, Top :=80, Largeur :=65, Hauteur :=80)

'Nom

Définir myShape = ActiveDocument.Shapes.AddTextbox (Orientation : = 1, Gauche : = 108, Haut : = 198, Largeur : = 126, Hauteur : = 18)

maForme.Line.Visible = msoFalse

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

'âge

Définir myShape = ActiveDocument.Shapes.AddTextbox (Orientation : = 1, Gauche : = 108, Haut : = 225, Largeur : = 126, Hauteur : = 18)

maForme.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "Âge : 12"

'informations personnelles

Définir myShape = ActiveDocument.Shapes.AddTextbox (Orientation : = 1, Gauche : = 351, Haut : = 90, Largeur : = 126, Hauteur : = 99)

maForme.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "Informations personnelles"

'Ajouter un tableau à la zone de texte

Définir myShape = ActiveDocument.Shapes.AddTextbox (Orientation : = 1, Gauche : = 288, Haut : = 198, Largeur : = 189, Hauteur : = 63)

maForme.Line.Visible = msoFalse

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

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

maTable.Cell(1, 1).Range.Text = "Poids"

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

maTable.Cell(2, 1).Range.Text = "Hauteur"

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

myTable.Cell(3, 1).Range.Text = "Asseyez-vous en hauteur"

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

fin du sous

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

PROcédure à Delphi ;

var

WordApp,WordDoc,WordTable,wordShape:OleVariant; // se:Sélection;

nom de fichier : chaîne ;

commencer

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

SaveDialog1.Execute ;

self.Refresh;

nom de fichier :=savedialog1.FileName ;

si longueur (nom de fichier) = 0 alors

commencer

application.MessageBox('L'emplacement de stockage du fichier statistique n'a pas été sélectionné et les données statistiques ne peuvent pas être enregistrées ! ','Boîte d'invite',mb_ok);

sortie;

fin;

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

WordApp.Visible :=True ;

WordDoc:=WordApp.Documents.Add;

essayer

//Dessine le premier rectangle

worddoc.SHAPES.AddTextbox(Orientation :=1, Gauche :=90, Haut :=70, Largeur :=414, Hauteur :=200) ;

//Dessine une ligne verticale

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

//Dessine la première image

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

LinkToFile:=False, SaveWithDocument:=True, Left:=180, Top:=80, Largeur:=65, Hauteur:=80);

//Dessine la deuxième image

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

LinkToFile:=False, SaveWithDocument:=True, Left:=262, Top:=80, Largeur:=65, Hauteur:=80) ;

//Dessine une boîte de nom

wordShape:=worddoc.Shapes.AddTextbox(Orientation :=1, Gauche :=108, Haut :=198, Largeur :=126, Hauteur :=18) ;

wordShape.Line.Visible := false;

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

//boîte d'âge

wordShape:=worddoc.Shapes.AddTextbox(Orientation:=1, Gauche:=108, Haut:=225, Largeur:=126, Hauteur:=18);//.Select;

wordShape.Line.Visible := false;

wordShape.TextFrame.TextRange.Text := 'Âge : 12';

//Boîte d'informations personnelles

wordShape:=worddoc.Shapes.AddTextbox(Orientation:=1, Gauche:=351, Haut:=90, Largeur:=126, Hauteur:=99);//.Select;

wordShape.Line.Visible := false;

wordShape.TextFrame.TextRange.Text := 'Informations personnelles';

//Ajouter un tableau à la zone de texte

wordShape:=worddoc.Shapes.AddTextbox(Orientation:=1, Gauche:=288, Haut:=198, Largeur:=189, Hauteur:=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 := 'Poids';

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

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

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

WordTable.Cell(3, 1).Range.Text := 'Assis en hauteur';

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

WordDoc.saveas(nom de fichier);

application.MessageBox('Sortie réussie ! ','Boîte d'invite',mb_ok);

enfin

WordDoc.Saved:=true;

WordDoc.Fermer ;

WordApp.Quitter ;

fin;

fin;