فتح ملف word وتمرير برمترات و تنسيقات....

DECLARE
  -- Declare the OLE objects
  MyApplication OLE2.OBJ_TYPE;
  MyDocuments   OLE2.OBJ_TYPE;
  MyDocument    OLE2.OBJ_TYPE;
  MySelection   OLE2.OBJ_TYPE;

  -- Declare handle to the OLE argument list
  args OLE2.LIST_TYPE;

BEGIN
  -- Create the Word.Application object and make Word visible
  -- by setting the 'Visible' property to true
  MyApplication := OLE2.CREATE_OBJ('Word.Application'); 
  OLE2.SET_PROPERTY(MyApplication, 'Visible', 1);

  -- get a handle on Documents collection
  MyDocuments:= OLE2.GET_OBJ_PROPERTY(MyApplication, 'Documents');

  -- Add a new document to the Documents collection
  Mydocument := OLE2.INVOKE_OBJ(MyDocuments, 'Add');

  -- Get a handle on Selection object
  MySelection:=OLE2.GET_OBJ_PROPERTY(MyApplication, 'Selection');

  -- Insert the text 'Hello Word97!' into word document
  OLE2.SET_PROPERTY(MySelection, 'Text', 'Hello Word97!');

  -- Save the document to the filesystem as EXAMPLE.DOC
  args := OLE2.CREATE_ARGLIST;
  OLE2.ADD_ARG(args, 'C:\DOCS\EXAMPLE.DOC');
  OLE2.INVOKE(MyDocument, 'SaveAs', args);
  OLE2.DESTROY_ARGLIST(args);

  -- Close the document
  OLE2.INVOKE(MyDocument, 'Close'); 

  -- Release the OLE objects
  OLE2.RELEASE_OBJ(MySelection);
  OLE2.RELEASE_OBJ(MyDocument);
  OLE2.RELEASE_OBJ(MyDocuments);
  OLE2.RELEASE_OBJ(MyApplication);
END;

السلام عليكم أخي الكريم

أولاً أود أن أشكرك على الإستجابة لسؤالي

ثانياً أنا آسف على التأخر ...........

ولكن عند وضعي لهذا الكود أعطاني الform خطأ هو ora-305500

وهو أنه يوجد ملفات أو مكتبات معينة بحاجة إلى ضم .......

فأرجوا منك أن تتكرم علي بالإجابة

وجزاك الله كل خير

(هل هذا الكود بحاجة إلى الoffice 97 أم يعمل على أي نسخة )

وشكراً

انت تحتاج لتركيب الاوفيس ....

ومن ثم عمل فورم وعمل تكست وبوتن وخل داخل البوتن عند الضغط يقوم بعمل الكود..

الاخوة جزاكم الله خيرا

ولكن للضرورة القصوى ارجو الرد بسرعة

عندي كان هذا البرنامج شغال زي الخلاوة

ولكن عند تركيب اوفيس2000 اصبح الفورم يقوم بتشغيل الورد وتجده فقط في قائمة task

ولا يعمل بشكل جيد ولا يفتح كليا

عندي form 4.5 و office 2000

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

ارجو منكم الرد بسرعة

شاكرا حسن تعاونكم

جزاك الله خيرا يا أستاذ حسين ... جهود مشكورة ... وافدتنا الكثير ... ولكن عندما التنفيذ سار كل شيء على ما يرام ولكن صفحة الورد لم تغلق ... فما هو السبب ... هل لاني استخدم أوفيس 2003 ؟

ولدي سؤال مهم جدا جدا وارجو منكم المساعدة ... هل أستطيع أن اقرء جزء معين من ملف نصي ??? وأرجو المساعدة