Delphi y Word Ejemplo 1

//================== Código Word_VBA =====================//

sub en Word()

Atenuar myTable como tabla

Atenuar myBox, myPict, myShape como forma

'Dibuja el primer rectángulo

Establecer myBox = ActiveDocument.Shapes.AddTextbox(Orientación:=1, Izquierda:=90, Superior:=70, Ancho:=414, Alto:=200)

'Dibuja una línea vertical

Establecer miLínea = ActiveDocument.Shapes.AddLine(255, 70, 255, 270)

'Dibuja el primer dibujo

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

LinkToFile:=False, SaveWithDocument:=True, Izquierda:=180, Superior:=80, Ancho:=65, Alto:=80)

'Dibuja el segundo dibujo

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

LinkToFile:=Falso, SaveWithDocument:=True, Izquierda:=262, Arriba:=80, Ancho:=65, Alto:=80)

'Nombre

Establecer myShape = ActiveDocument.Shapes.AddTextbox(Orientación:=1, Izquierda:=108, Superior:=198, Ancho:=126, Alto:=18)

miForma.Línea.Visible = msoFalse

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

'edad

Establecer myShape = ActiveDocument.Shapes.AddTextbox(Orientación:=1, Izquierda:=108, Superior:=225, Ancho:=126, Alto:=18)

miForma.Línea.Visible = msoFalse

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

'informacion personal

Establecer myShape = ActiveDocument.Shapes.AddTextbox(Orientación:=1, Izquierda:=351, Superior:=90, Ancho:=126, Alto:=99)

miForma.Línea.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "Información personal"

'Añadir una tabla al cuadro de texto

Establecer myShape = ActiveDocument.Shapes.AddTextbox(Orientación:=1, Izquierda:=288, Superior:=198, Ancho:=189, Alto:=63)

miForma.Línea.Visible = msoFalse

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

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

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

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

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

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

myTable.Cell(3, 1).Range.Text = "Siéntate alto"

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

sub final

//==================Código Delphi=====================//

Procedimiento en Delfos;

var

WordApp,WordDoc,WordTable,wordShape:OleVariant // se:Selección;

nombre de archivo:cadena;

comenzar

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

GuardarDialog1.Ejecutar;

auto.Actualizar;

nombre de archivo:=savedialog1.FileName;

si longitud (nombre de archivo) = 0 entonces

comenzar

application.MessageBox('¡La ubicación de almacenamiento del archivo estadístico no se ha seleccionado y los datos estadísticos no se pueden guardar! ','Cuadro de aviso',mb_ok);

salida;

fin;

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

WordApp.Visible:=Verdadero;

WordDoc:=WordApp.Documentos.Agregar;

intentar

//dibuja el primer rectángulo

worddoc.SHAPES.AddTextbox(Orientación:=1, Izquierda:=90, Arriba:=70, Ancho:=414, Alto:=200);

//Dibuja una línea vertical

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

//Hace el primer dibujo

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

LinkToFile:=False, SaveWithDocument:=True, Izquierda:=180, Arriba:=80, Ancho:=65, Alto:=80);

//Hace el segundo dibujo

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

LinkToFile:=False, SaveWithDocument:=True, Izquierda:=262, Arriba:=80, Ancho:=65, Alto:=80);

//Dibujar un cuadro de nombre

wordShape:=worddoc.Shapes.AddTextbox(Orientación:=1, Izquierda:=108, Arriba:=198, Ancho:=126, Alto:=18);

formadepalabra.Línea.Visible: = falso;

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

//cuadro de edad

wordShape:=worddoc.Shapes.AddTextbox(Orientación:=1, Izquierda:=108, Arriba:=225, Ancho:=126, Alto:=18);//.Select;

formadepalabra.Línea.Visible: = falso;

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

//Cuadro de información personal

wordShape:=worddoc.Shapes.AddTextbox(Orientación:=1, Izquierda:=351, Arriba:=90, Ancho:=126, Alto:=99);//.Select;

formadepalabra.Línea.Visible: = falso;

wordShape.TextFrame.TextRange.Text := 'Información personal';

//Agregar tabla al cuadro de texto

wordShape:=worddoc.Shapes.AddTextbox(Orientación:=1, Izquierda:=288, Arriba:=198, Ancho:=189, Alto:=63);//.Select;

formadepalabra.Línea.Visible: = falso;

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

DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed);

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

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

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

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

WordTable.Cell(3, 1).Range.Text := 'Sentado alto';

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

WordDoc.saveas(nombre de archivo);

application.MessageBox('¡Salida exitosa! ','Cuadro de aviso',mb_ok);

finalmente

WordDoc.Saved:=verdadero;

WordDoc.Cerrar;

WordApp.Salir;

fin;

fin;