WordDocument1.Range.InsertAfter('Страхование жизни: ' + Table1.Fields.Fields[21].AsString +' тенге'+ #13); WordDocument1.Range.InsertAfter('Организация кредита: ' + Table1.Fields.Fields[22].AsString +' тенге'+ #13); WordDocument1.Range.InsertAfter('Обналичивание: ' + Table1.Fields.Fields[23].AsString +' тенге'+ #13); WordDocument1.Range.InsertAfter('Страхование недвижимости: ' + Table1.Fields.Fields[24].AsString +' тенге'+ #13); BitBtn3.Enabled := True; except on E: Exception do begin ShowMessage(E.Message); WordApplication1.Disconnect; end; end;
end;
«Закрыть Word» пернесін басқанда келесі код орындалады:
procedure TForm5.BitBtn3Click(Sender: TObject);
var
SaveChanges,
OriginalFormat,
RouteDocument: OleVariant;
begin
SaveChanges := WdDoNotSaveChanges;
OriginalFormat := UnAssigned;
RouteDocument := UnAssigned;
try
WordApplication1.Quit(SaveChanges, OriginalFormat, RouteDocument);
WordApplication1.Disconnect;
BitBtn3.Enabled := False;
except
on E: Exception do
begin
Showmessage(E.Message);
WordApplication1.Disconnect;
end;
end;
end;
Б.1 Қысқаша теориялық мәлімет
Достарыңызбен бөлісу: |
