Delphi и Word, пример 1

//==================Код Word_VBA===================//

суб в Word()

Затемнить myTable как таблицу

Уменьшите яркость myBox, myPict, myShape As Shape

'Рисуем первый прямоугольник

Установите myBox = ActiveDocument.Shapes.AddTextbox(Ориентация:=1, Слева:=90, Сверху:=70, Ширина:=414, Высота:=200)

'Нарисуйте вертикальную линию

Установите myLine = ActiveDocument.Shapes.AddLine(255, 70, 255, 270)

'Нарисуй первую картинку

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

LinkToFile:=False, SaveWithDocument:=True, слева:=180, сверху:=80, ширина:=65, высота:=80)

'Нарисуй вторую картинку

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

LinkToFile:=False, SaveWithDocument:=True, слева:=262, сверху:=80, ширина:=65, высота:=80)

'Имя

Установите myShape = ActiveDocument.Shapes.AddTextbox(Ориентация:=1, Слева:=108, Сверху:=198, Ширина:=126, Высота:=18)

myShape.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "Имя: Шинноске"

'возраст

Установите myShape = ActiveDocument.Shapes.AddTextbox(Ориентация:=1, Слева:=108, Сверху:=225, Ширина:=126, Высота:=18)

myShape.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "Возраст: 12"

'персональная информация

Установите myShape = ActiveDocument.Shapes.AddTextbox(Ориентация:=1, Слева:=351, Сверху:=90, Ширина:=126, Высота:=99)

myShape.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "Личная информация"

'Добавляем таблицу в текстовое поле

Установите myShape = ActiveDocument.Shapes.AddTextbox(Ориентация:=1, Слева:=288, Сверху:=198, Ширина:=189, Высота:=63)

myShape.Line.Visible = msoFalse

Установите myTable = ActiveDocument.Tables.Add(Range:=myShape.TextFrame.TextRange, NumRows:=3, NumColumns:= _

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

myTable.Cell(1, 1).Range.Text = "Вес"

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

myTable.Cell(2, 1).Range.Text = "Высота"

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

myTable.Cell(3, 1).Range.Text = "Сидеть высоко"

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

конец субтитра

//==================Код Delphi====================//

Процедура в Delphi;

вар

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

имя файла: строка;

начинать

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

SaveDialog1.Выполнить;

самостоятельно.Обновить;

имя_файла:=savedialog1.FileName;

если длина (имя файла) = 0, то

начинать

application.MessageBox('Место хранения статистического файла не выбрано, и статистические данные не могут быть сохранены! ','Окно подсказки',mb_ok);

Выход;

конец;

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

WordApp.Visible:=True;

WordDoc:=WordApp.Documents.Add;

пытаться

//Рисуем первый прямоугольник

worddoc.SHAPES.AddTextbox(Ориентация:=1, Слева:=90, Сверху:=70, Ширина:=414, Высота:=200);

//Рисуем вертикальную линию

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

//Рисуем первую картинку

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

LinkToFile:=False, SaveWithDocument:=True, Слева:=180, Сверху:=80, Ширина:=65, Высота:=80);

//Рисуем вторую картинку

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

LinkToFile:=False, SaveWithDocument:=True, слева:=262, сверху:=80, ширина:=65, высота:=80);

//Рисуем поле имени

wordShape:=worddoc.Shapes.AddTextbox(Ориентация:=1, Слева:=108, Сверху:=198, Ширина:=126, Высота:=18);

wordShape.Line.Visible: = ложь;

wordShape.TextFrame.TextRange.Text := 'Имя: Шинноске';

// поле возраста

wordShape:=worddoc.Shapes.AddTextbox(Ориентация:=1, Слева:=108, Сверху:=225, Ширина:=126, Высота:=18);//.Select;

wordShape.Line.Visible: = ложь;

wordShape.TextFrame.TextRange.Text := 'Возраст: 12';

//Личный информационный ящик

wordShape:=worddoc.Shapes.AddTextbox(Ориентация:=1, Слева:=351, Сверху:=90, Ширина:=126, Высота:=99);//.Select;

wordShape.Line.Visible: = ложь;

wordShape.TextFrame.TextRange.Text := 'Личная информация';

//Добавляем таблицу в текстовое поле

wordShape:=worddoc.Shapes.AddTextbox(Ориентация:=1, Слева:=288, Сверху:=198, Ширина:=189, Высота:=63);//.Select;

wordShape.Line.Visible: = ложь;

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

DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed);

WordTable.Cell(1, 1).Range.Text := 'Вес';

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

WordTable.Cell(2, 1).Range.Text := 'Высота';

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

WordTable.Cell(3, 1).Range.Text := 'Сижу высоко';

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

WordDoc.saveas(имя файла);

application.MessageBox('Вывод успешен!','Окно подсказки',mb_ok);

окончательно

WordDoc.Saved:=true;

WordDoc.Закрыть;

WordApp.Выйти;

конец;

конец;