Comment Utilise Word Avec Delphi

monarque

  • Hero Member
  • *****
    • مشاركة: 1238
    • مشاهدة الملف الشخصي
    • http://monarqueinfo.site50.net/
    • البريد الالكتروني
في: كانون الأول 03, 2008, 10:08:11 صباحاً
اليكم هذا code source
ما عليك سوى التطبيق و الدعاء لي ...



unit Excelacces;

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Word97, OleServer, Excel97;
type
TForm1 = class(TForm)
WA: TWordApplication;
WD: TWordDocument;
LanceWord: TButton;
LanceExcel: TButton;
EA: TExcelApplication;
EWB: TExcelWorkbook;
procedure LanceWordClick(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}


procedure TForm1.LanceWordClick(Sender: TObject);
var
a, b, c : OleVariant;
begin
a := EmptyParam;
b := False;
c := 1;
WA.connect;
WA.visible := true;
WA.Caption := 'Delphi';
WA.Documents.Add(A,B);
WD.ConnectTo(WA.documents. item(c));
end;




metmed

  • Sr. Member
  • ****
    • مشاركة: 396
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #1 في: كانون الأول 03, 2008, 11:04:35 صباحاً
جزاك الله الف خير


monarque

  • Hero Member
  • *****
    • مشاركة: 1238
    • مشاهدة الملف الشخصي
    • http://monarqueinfo.site50.net/
    • البريد الالكتروني
رد #2 في: كانون الأول 03, 2008, 12:13:52 مسائاً
لا تنسونا من دعائـــــــــــــــــــــــــــكم
                 
                        وشكرا


monarque

  • Hero Member
  • *****
    • مشاركة: 1238
    • مشاهدة الملف الشخصي
    • http://monarqueinfo.site50.net/
    • البريد الالكتروني
رد #3 في: كانون الأول 03, 2008, 04:04:08 مسائاً
لا تنسونا من دعائـــــــــــــــــــــــــــكم

وشكرا


fatima7

  • Newbie
  • *
    • مشاركة: 15
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #4 في: حزيران 01, 2011, 01:02:31 مسائاً

جعلها الله في ميزان حسناتك