بسم الله الرحمن الرحيم

اخواني الاعزاء

لو سمحتم بتوضيح كيف اتمكن من فتح صفحة word او اي ملف من داخل الفورم و لكم جزيل الشكر و التقدير .

الأخ / DREAMMAN
توجد مشاركات سابقه بالمنتدى لهذا الموضوع .. يمكنك استخدام خاصية البحث

من هنــــــــــــــــــا

ايضا ........... من هنـــــــــــــــا

اخيرا ... من هنــــــــــــــا

متشكر جدا ياغالى

انا معايا الكود

بس انا عاوز اعمل زر اول ما ادوس عليه يفتحلى الورد

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;

اكتب الكود ده داخل الزر
ولا

منتظر ردك

اكتب هذا الكود داخل WHEN-BUTTON-PRESSED
و جرب يشتغل ام لا؟
انا حاسس انه فيه كود ناقصه بس جرب على اى حال

للأسف مشتغلشى

الكود اذن ناقص شئ لكن ما هو يا ترى؟؟؟
لكن ما رسالة الخطأ التى ظهرت لك صديقى DREAMMAN ؟