Рисование в Word, вставка изображений в Delphi
В раздел программы Uses подключаем модуль ComObj. Для запуска Word запишем следующее:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
procedure TForm1.Button1Click(Sender: TObject); var Word: variant; begin try Word := CreateOleObject('Word.Application'); except ShowMessage('Не могу запустить Microsoft Word'); end; Word.Visible := True; Word.Documents.Add; end; |
Как нарисовать линию в Word в Delphi:
|
1 |
Word.ActiveDocument.Shapes.AddLine(x1, y1, x2, y2); |
Как нарисовать прямоугольник в Word в Delphi:
|
1 |
Word.ActiveDocument.Shapes.AddShape(1, x1, y1, x2, y2); |
Как вставить изображение в Word в Delphi:
|
1 |
Word.Selection.InlineShapes.AddPicture(FileName:='C:\test.bmp', LinkToFile:=False, SaveWithDocument:=True); |