{Создание нового документа} Template := EmptyParam

{Создание нового документа}

Template := EmptyParam;

NewTemplate := False;

if CheckBox1.Checked then

begin

WordApplication1.Documents.Add(Template, NewTemplate, Template,Template);

WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));

end;

WordFont1.ConnectTo(WordDocument1.Sentences.Get_Last.Font);

WordParagraphFormat1.ConnectTo(WordApplication1.Selection.ParagraphFormat);

WordApplication1.Options.CheckSpellingAsYouType := False;

WordApplication1.Options.CheckGrammarAsYouType := False;

DBImage1.CopyToClipboard;

WordDocument1.Sentences.Last.Paste;

WordDocument1.Range.InsertAfter(' ' + #13);

WordFont1.Size :=12;

WordFont1.Italic := 1;

WordParagraphFormat1.Alignment:=wdAlignParagraphCenter;

WordDocument1.Range.InsertAfter(' КЛИЕНТ : ' + Table1.Fields.Fields[1].AsString+' '+ Table1.Fields.Fields[2].AsString +' '+Table1.Fields.Fields[3].AsString + #13);

жүктеу/скачать 2,43 Mb.

Достарыңызбен бөлісу: