الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

حول عملية إنشاء ملف وورد (word ) ضمن دلفي

بدأه mouhamadamer في 4 يونيو 2009 · 2 رد · 1,187 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه ،،

أخوتي الأكارم

من المعلوم أنه يمكن إنشاء ملف وورد (word ) عن طريق الإجرائية WordApplication(word.basic)

ولكن كيف يمكن إنشاء جدول ضمن هذا الملف وهل يمكن سحب البيانات من قاعدة البيانات وملئها في الجدول

مع جزيل الشكر

#2

السلام عليكم...

هذا مثال لفتح ملف Word موجود ثم إضافة جدول فارغ (5 صفوف و 4 أعمدة) عند بداية المستند.

من صفحة Servers أضف المكون WordApplication ثم استعمل هذا الكود:

  1. procedure TFRtlForm1.Button1Click(Sender: TObject);
  2. var
  3. WordFilePath, StartPos, EndPos: OleVariant;
  4. WordDoc: _Document;
  5. begin
  6. WordApplication1.Connect;
  7. WordFilePath := 'C:Documents and SettingsAdministratorDesktopTestWordFile.doc';
  8. WordDoc := WordApplication1.Documents.Open(WordFilePath, EmptyParam,
  9. EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam,
  10. EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
  11. EmptyParam, EmptyParam, EmptyParam);
  12.  
  13. StartPos := 0;
  14. EndPos := 0;
  15. WordDoc.Tables.Add(WordDoc.Range(StartPos, EndPos), 5, 4, EmptyParam, EmptyParam);
  16.  
  17. WordApplication1.Activate;
  18. end;
  19.  

طبعاً المسار يعتمد على ما لديك، أو إنشاء ملف جديد كما في سؤالك.

للمزيد من المعلومات حول خصائص الـ Application و Document و Table و Range التابعة لـ Word و كيفية التعامل معها قم بتشغيل برنامج Word ثم اضغط Alt+F11 لتشغيل محرر Visual Basic ثم انقر زر التعليمات في المحرر و ابحث عن هذه الكائنات.

نرجو الاستفادة و السلام.

وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ

صدق الله العظيم

#3

السلام عليكــم ورحمـة الله وبركاتــه ،،

شكراً لك أخي الكريم

لكن كيف يمكن سحب البيانات من قاعدة البيانات وملئها في الجدول

مع جزيل الشكر

مواضيع مشابهة