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; 

جميل و مفيد
شكراً

العفو

الشكرا ده حاجه بسيطه مليون شكرا

تسلم ياباشا

اخوك عادل

العفو ....

شكرا جزيلا للكود

أريد موقع لتحميل الأوراكل مجاناً

السلام عليكم ورحمة الله وبركاته
شكرا اخي / حسين عبدالله احمد
على هذا الموضوع الرائع جعله الله في ميزان حسناتك
وانني محتاج منك ومن الاخوه الافاضل في هذا المنتدى
الاتي
ارغب في فتح ملف ورد معين وتمرير له بارمترات من الفورم -- لاني بصراحه محتاج الى ذلك جدا جدا
وقد حاولت التعديل في الكود السابق ولكن فشلت
وانا اعرف تمريرها عن طريق الفجول بيسك واليك الكود

Private Sub dx1_Click()
'ØÈÇÚÉ ÇáãÍÊæíÇÊ
On Error Resume Next
'ÝÊÍ ÈÑäÇãÌ ÇáææÑÏ
Set myWord = CreateObject("word.Application")
'ÊÍÏíÏ ãÓÇÑ ãáÝ ÇáææÑÏ ÇáãÑÇÏ ÝÊÍå
ss1 = App.Path & "\" & "saheefah1.doc"
myWord.Documents.Open ss1
myWord.Visible = True
'ãä åäÇ íÊã ÇÑÓÇá ÇáãÚáæãÇÊ ãä ÇáÈÑäÇãÌ áãáÝ ÇáææÑÏ
With myWord.ActiveDocument.Bookmarks
'ãä åäÇ íÊã ÇáÇÑÓÇá Çáì ÎÇäÉ ÇÓã ÇáãÏÚí æÇáãåäÉ Ýí ÇáææÑÏ
.Item("m1").Range.Text = txt(0).Text
.Item("m2").Range.Text = txt(1).Text
'ãä åäÇ íÊã ÇáÇÑÓÇá Çáì ÎÇäÉ åæíÉ ÇáãÏÚí Ýí ÇáææÑÏ
.Item("n1").Range.Text = txt(2).Text
.Item("n2").Range.Text = txt(3).Text
.Item("n3").Range.Text = txt(4).Text
.Item("n4").Range.Text = txt(5).Text
.Item("n5").Range.Text = txt(6).Text
.Item("n6").Range.Text = txt(7).Text
.Item("n7").Range.Text = txt(8).Text
.Item("n8").Range.Text = txt(9).Text
.Item("n9").Range.Text = txt(10).Text
End With
myWord.Application.WindowState = wdWindowStateMaximize

'ãä åäÇ íÊã ÇÑÓÇá ÇãÑ ÇáØÈÇÚÉ Çáì ÇáææÑÏ
'myWord.ActiveDocument.PrintOut
'For YY = 1 To 999999: DoEvents: Next YY

'ÇÛáÇÞ ãáÝ ÇáæÑÏ
'myWord.Quit False
'Set myWord = Nothing
End Sub

فياحبذا احد الاخوه يساعدني وله مني الدعاء والشكر والتقدير سلفا0

جزاك الله كل خير على هذه الافادة
اللهم افتح على عباديك حق ما يفتحون على خلقق من العلم

رضي الله عنك وارضاك
ومن النار وقاك
وللجنة دعاك
والفردوس مأواك
اللهم آمين

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

ياجماعه حد يفهمنى الكود ازاى أستخدمه

انا مبتدا فى الوراكل

شكرا انا جربت طريقة اخرى ولم تظبط واتمنى ان تظيط هذه

مشكووووووووووووووووووور الله يعطيك العافية

مشكوووووووووووووووور

طيب يا عمنا لو حبيت أنتقل لسطر جديد لجلب بيانات أخري من cursor علي كل سطر ما هي الإضافة التي يجب إضافتها للكود و ألف شكر

سلموو يابعدهم كلهم بصراحة موضوع جميل جدااا واتمنى اشوف جديدك الدائم

____######## ##*______ _________ _________
__*######### #####____ _________ _________
__########## ######___ _________ _________
_########### #######__ _______** ##*______
__########## ########_ ____*#### ######___
__########## ########_ __*###### #######__
___######### ########* _######## #######*_
____######## ######### ######### #######*_
______###### ######### ######### #######__
_______### ## الــــــــســــــيــــــــنـــــــــتـــــــــــور ######=__
________=### ######### ######### #####____
__________## ######### ######### ####_____
___________* ######### ######### ##=______
____________ *######## ######### #________
____________ _*####### ########_ _________
____________ ___###### #######__ _________
____________ ____##### #####____ _________
____________ ____=#### ###*_____ _________
____________ _____#### ##_______ _________
____________ ______### #________ _________
____________ ______### _________ _________
____________ _______#_ _________ _________

شكرا


كود جميل ومهم

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

كود جميل بارك الله فيك وجزيت خيرا