الفريق العربي للبرمجةأرشيف المنتديات · 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

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

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

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

مع جزيل الشكر

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

عدد الزوار حالياً

المتواجدون خلال آخر ساعة · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…