لفتح الورد والكتابة فيه من اوركل

[حسين عبدالله أحمد]

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; 

[John]

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

[حسين عبدالله أحمد]

العفو

[salama11433]

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

[Guest عادل الشهري]

تسلم ياباشا

اخوك عادل

[حسين عبدالله أحمد]

العفو ....

[هبةعبد الرحمن]

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

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

[محمد علي الحيلان]

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

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

[ahmed el kilany]

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

[wlahmad]

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

[moro_555]

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

[DREAMMAN]

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

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

[هارومي]

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

[Ahmed Mahdali]

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

[sabi]

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

[tamer_dalash]

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

[السينتور]

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

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

[ahm.net]

شكرا


كود جميل ومهم

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

[Eng_computer22]

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