Урок на Делфи 79. Экспорт в Word
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs,ComObj, Vcl.StdCtrls, Vcl.ExtCtrls;
type
TForm1 = class(TForm)
: TButton;
Memo1: TMemo;
Edit1: TEdit;
Edit2: TEdit;
procedure Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Click(Sender: TObject);
var
MSWord: Variant;
begin
MsWord := CreateOleObject('Word.Application');
MsWord.Visible := True;
MSWord.Documents.Add;
MSWord.DisplayAlerts := false;
MSWord.Selection.Font.Size := 16;
MSWord.Selection.Font.Bold := true;
MSWord.Selection.ParagraphFormat.Alignment:=1;
MSWord.Selection.TypeText(Edit1.Text);
MSWord.Selection.TypeParagraph;
MSWord.Selection.Font.Size := 14;
MSWord.Selection.Font.Bold := false;
MSWord.Selection.ParagraphFormat.Alignment:=2;
MSWord.Selection.TypeText(' ');
MSWord.Selection.Font.Size := 15;
MSWord.Selection.Font.color := clGreen;
MSWord.Selection.Font.italic := true;
MSWord.Selection.TypeText(#13#10);
MSWord.Selection.ParagraphFormat.Alignment:=0;
MSWord.Selection.TypeText(': ');
MSWord.Selection.TypeText(#13#10);
MSWord.Selection.Font.color := clred;
MSWord.Selection.Font.Bold := true;
MSWord.Selection.TypeText(' ');
MSWord.Selection.TypeText(' ');
MSWord.Selection.TypeText(#13#10);
MSWord.Selection.TypeText(#13#10);
MSWord.Selection.TypeText(#13#10);
MSWord.Selection.Font.color := clBlack;
MSWord.Selection.ParagraphFormat.Alignment:=1;
MSWord.Selection.Font.Size := 25;
MSWord.Selection.TypeText(' '+#13#10);
MSWord.Selection.Font.Bold := false;
MSWord.Selection.Font.Size := 20;
MSWord.Selection.TypeText(memo1.Text);
//MSWord.ActiveDocument.Range.InsertAfter(#13#10#13#10+ Memo1.Text);
MSWord.ActiveDocument.Range.InsertAfter(':'+Edit2.Text);
MSWord.ActiveDocument.Shapes.AddPicture(ExtractFilePath(Application.ExeName)+'foto.bmp',False, True,350,60,150,150);
MSWord.ActiveDocument.SaveAs(ExtractFilePath(Application.ExeName)+'file.doc');
end;
end.