الايكسل و الاوتوبلاي

[ثامر أبو بلقيس ثامر أبو بلقيس]

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

ملاحظة : مصنف الايكسل من الافيد أن يكون بـ 2003 لأن الاصدارات الأخرى تتعامل معه و العكس غير صحيح
مصنف الايكسل يكون خال من وحدات الماكرو أو الاضافات البرمجية لتفادي الرسائل التي تعيق المزاوجة بين البرنامجين

[عبد الهادي بهاب عبد الهادي بهاب]

عظيمة جدا هذه الفكرة ........ فهي ستوفر العناء على كل تساؤول من باب انها ستجمع بحول الله معظم التساؤلات .......شكرا على الطرح استاذ ثامر


-------------------------------------
بداية : عندي مجموعة ملفات اكسل كلها تحتوي على جدول بعمودين .......... كل جدول يمثل مجال معين ( حيوانات . ارقام . اعضاء الجسم ....... ) فيه كلمات و ترجمتها الى لغة اخرى كالفرنسية او الانجليزية

السؤال : كيف استدعي كل القيم من كل ملفات الاكسل هاته في كائن grid واحد .......؟
الفكرة من مشروع تصميم قاموس مبسط

تحياتي و شكرا

[ثامر أبو بلقيس ثامر أبو بلقيس]

تقول أخي عندك ملفات ايكسل لجداول
-----
عوض أن يكون هناك ملفات جيد لو يوضع كل ملف ايكسل أي جداوله في ورقة عمل بمعنى عوض يكون عندي 10 ملفات ايكسل
رايح بكون ملف واحد مقسم لأوراق عمل بعدها سهل استدعاء أي ورقة لعنصر grid

علما أن فكرة القاموس تنجز بقواعد البيانات SQL أفضل بكثير و أسرع

[عبد الهادي بهاب عبد الهادي بهاب]

تقول أخي عندك ملفات ايكسل لجداول
-----
عوض أن يكون هناك ملفات جيد لو يوضع كل ملف ايكسل أي جداوله في ورقة عمل بمعنى عوض يكون عندي 10 ملفات ايكسل
رايح بكون ملف واحد مقسم لأوراق عمل بعدها سهل استدعاء أي ورقة لعنصر grid

علما أن فكرة القاموس تنجز بقواعد البيانات SQL أفضل بكثير و أسرع

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

اما مسالة SQL فانا لم اتعامل معها قط ابدا و بالتالي ساحاول التركيز عليها الان.

.............
سؤال اخر : هل هناك مرجعيات او ملفات مفتوحة حول luacom و خصوصا فيما تعلق بالوورد

[ثامر أبو بلقيس ثامر أبو بلقيس]

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

سؤال اخر : هل هناك مرجعيات او ملفات مفتوحة حول luacom و خصوصا فيما تعلق بالوورد

جيد جرب الآتـــي :

01 - عند التعامل مع luacom لا يمكن أن يكون اسم المشروع بالعربي و أقصد WINDOW TITEL
02 - المشروع لا يوضع في مسارات عربي
------------------------------------------------------------------------------------------------------------------------

قم بتفعيل luacom

ضمن مشروعك مثلا عنصر RichText و ليكن RichText1

أكتب فيه بالعربي أو يغير اللغة و استعمل الألوان و نوع في حجم الخط إن شئت

الا ن في زر التنفيذ ازرع :

DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL) 
RichText.SetSelection("RichText1", 1, -1);
D=RichText.Copy("RichText1");
local word = luacom.CreateObject("Word.Application")
local book = word.documents:Add()
word.Visible = true
local section = book.Sections(1)
local headers = section.Headers
local header = headers:Item(1)
word.Selection:PasteSpecial();
book:SaveAs("C:\\THAMEUR.doc")
paras = book.Paragraphs:Add()
range = paras.Range
range:InsertParagraph()
book:Close()
word:Quit() 

بعد تنفيذ المشروع تفقد القرص C دون نسيان المسؤولية للوينداوز الارقى من الــ XP

أضن هكذا تم تحقيق تصدير المدخلات لملف وووورد دون فتح الوووورد موفق

[عبد الهادي بهاب عبد الهادي بهاب]

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


جيد جرب الآتـــي :

01 - عند التعامل مع luacom لا يمكن أن يكون اسم المشروع بالعربي و أقصد WINDOW TITEL
02 - المشروع لا يوضع في مسارات عربي
------------------------------------------------------------------------------------------------------------------------

قم بتفعيل luacom

ضمن مشروعك مثلا عنصر RichText و ليكن RichText1

أكتب فيه بالعربي أو يغير اللغة و استعمل الألوان و نوع في حجم الخط إن شئت

الا ن في زر التنفيذ ازرع :

DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL) 
RichText.SetSelection("RichText1", 1, -1);
D=RichText.Copy("RichText1");
local word = luacom.CreateObject("Word.Application")
local book = word.documents:Add()
word.Visible = true
local section = book.Sections(1)
local headers = section.Headers
local header = headers:Item(1)
word.Selection:PasteSpecial();
book:SaveAs("C:\\THAMEUR.doc")
paras = book.Paragraphs:Add()
range = paras.Range
range:InsertParagraph()
book:Close()
word:Quit() 

بعد تنفيذ المشروع تفقد القرص C دون نسيان المسؤولية للوينداوز الارقى من الــ XP

أضن هكذا تم تحقيق تصدير المدخلات لملف وووورد دون فتح الوووورد موفق

جميل جدا ............ هذا ممتع جدا ........... ارجو ان تكرمت و كان هناك متسعا من الوقت و الفراغ .......موضوع او روابط للتعامل مع هذه الدالة .......

[عبد الهادي بهاب عبد الهادي بهاب]

في ملفات اكسل CSv توجد ورقة عمل واحدة
لكن في حال استدعاء بيانات ملف اكسل xls لا تظهر البيانات بل فقط مربعات و رموز في الخانة الاولى

استعملت دالة الاستدعاء العادية

 Grid.LoadFromFile 

فكيف الحال ؟؟؟ هل يجب ان احفظ العمل بتوسعة CSV

[ثامر أبو بلقيس ثامر أبو بلقيس]

قبل الاجابة عن تساؤلك الأخير ... عد إلى سؤالك بخصوص الوووورد

و حاول رفع ملفا مفتوحا
---------------------------------------------------------
سؤال : حاول تمرير صورة إلى ملف الووورد السابق مع النص بحيث تكون الصورة بالضبط في رأس الصفحة
أي في صفحة الووورد

----------------------------------------------------

[ياسرهتهت ياسرهتهت]

قبل الاجابة عن تساؤلك الأخير ... عد إلى سؤالك بخصوص الوووورد

و حاول رفع ملفا مفتوحا
---------------------------------------------------------
سؤال : حاول تمرير صورة إلى ملف الووورد السابق مع النص بحيث تكون الصورة بالضبط في رأس الصفحة
أي في صفحة الووورد

----------------------------------------------------

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

السلام عليكم ورحمة الله وبركاته
بارك الله فيك استاذنا الكريم على هذا الموضوع الجيد والمفيد
قد تم التطبيق الكود بنجاح
وهذا الملف المفتوح في المرفقات
لكن تمرير صورة للملف لم اعرف كيف ؟
موفق بإذن الله ... لك مني أجمل تحية .

[ثامر أبو بلقيس ثامر أبو بلقيس]

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

RichText.SaveToFile("RichText1", "C:\\MyFile.rtf"); 

لينقل المحتوى النصي لمستند ممكن طباعته لذلك طرحت إضافة الصورة و خاصة أن الأخ المحترف
سأل مرة كيف أضيف صورة لعنصر RichText فقلت لعله مناسب تجربة الكود التالي
بعد وضع صورة في المسار AutoPlay\\Docs\\0.png

وتجربة :

DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)  
RichText.SetSelection("RichText1", 1, -1); 
D=RichText.Copy("RichText1"); 
local word = luacom.CreateObject("Word.Application") 
local book = word.documents:Add() 
word.Visible = true 
local section = book.Sections(1) 
local headers = section.Headers 
local header = headers:Item(1) 
word.Selection:PasteSpecial(); 
book:SaveAs("C:\\THAMEUR.doc") 
book.InlineShapes:AddPicture(_SourceFolder.."\\AutoPlay\\Docs\\0.png", 0, 1);
paras = book.Paragraphs:Add() 
range = paras.Range 
range:InsertParagraph() 
book:Close() 
word:Quit() 

في ملفك المرسل شكرا

[ثامر أبو بلقيس ثامر أبو بلقيس]

مع ملاحظة السطر 6
فعند تغيير true بـ false
لن نشاهد عملية النسخ و اللصق

[عبد الهادي بهاب عبد الهادي بهاب]

قبل الاجابة عن تساؤلك الأخير ... عد إلى سؤالك بخصوص الوووورد

و حاول رفع ملفا مفتوحا
---------------------------------------------------------
سؤال : حاول تمرير صورة إلى ملف الووورد السابق مع النص بحيث تكون الصورة بالضبط في رأس الصفحة
أي في صفحة الووورد

----------------------------------------------------

بعد بحث حول هذه الدالة و علاقتها بالصورة

تمكنت بعون الله من ادماج الصورة في الكود ليصبح الملف كالتالي:
من هنـــــا

شكرا على التحفيز

ارجو كود يدرج جدولا موجودا في المشروع grid داخل ملف الوورد

[عبد الهادي بهاب عبد الهادي بهاب]

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

richtext.savetofile("richtext1", "c:\\myfile.rtf"); 

لينقل المحتوى النصي لمستند ممكن طباعته لذلك طرحت إضافة الصورة و خاصة أن الأخ المحترف
سأل مرة كيف أضيف صورة لعنصر richtext فقلت لعله مناسب تجربة الكود التالي
بعد وضع صورة في المسار autoplay\\docs\\0.png

وتجربة :

dll.callfunction("user32.dll", "loadkeyboardlayouta", "\"00000401\", 1", dll_return_type_long, dll_call_stdcall)  
richtext.setselection("richtext1", 1, -1); 
d=richtext.copy("richtext1"); 
local word = luacom.createobject("word.application") 
local book = word.documents:add() 
word.visible = true 
local section = book.sections(1) 
local headers = section.headers 
local header = headers:item(1) 
word.selection:pastespecial(); 
book:saveas("c:\\thameur.doc") 
book.inlineshapes:addpicture(_sourcefolder.."\\autoplay\\docs\\0.png", 0, 1);
paras = book.paragraphs:add() 
range = paras.range 
range:insertparagraph() 
book:close() 
word:quit() 

في ملفك المرسل شكرا

السلام عليكم
قرات المشاركة هذه متاخرا .............. لذلك ساعيد المحاولة الاخيرة من جديد ............معذرة

[ثامر أبو بلقيس ثامر أبو بلقيس]

بالعكس محاولتك أجمل فقط احذف هذا السطر
range.Style = ("Normal")

[عبد الهادي بهاب عبد الهادي بهاب]

بالعكس محاولتك أجمل فقط احذف هذا السطر
range.Style = ("Normal")

الحمد لله .............. هل الامر فعال مع ملفات الاكسل
اعني فقط اغير

local word = luacom.createobject("Excel.application")