من Word إلـــى AMS

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

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
السلام عليكم ورحمة الله وبركاته
-----

باختصـــار : تريد استدعاء محتوى ملف Word الى داخل الأوتوبـــلاي
جيـــــد نضمـــن التجميعية أنبوت 1 متعدد الأسطر سنجعل
منه قناة استقبال لمحتوى ملف Word وزر نزرع فيه

الكود :

n = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", false, false);
if n[1] ~="CANCEL"  and (String.SplitPath(n[1]).Extension == ".doc" or String.SplitPath(n[1]).Extension == ".docx")  then
DLL.CallFunction("user32.dll", "LoadKeyboardLayoutA", "\"00000401\", 1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
local sourceFile = n[1]
local word = luacom.CreateObject("Word.Application")   
local book = word.documents:Add()   
word.Visible = false  
local wBook=word.documents:Open(sourceFile)
---
---
Input.Paste("Input1");
book:Close()   
word:Quit()
end 

بالتأكيد الكود لــــن يعمل لسبب بسيط
هو أن السطر التاسع و العاشــر ينقصان
------
أحببت إضافتهما ليكتمل الكود هاهما مخفيان
[hide]

wBook:select();
word.Selection:Copy(); 

[/hide]

و إن شئت حاول فذاك أفضل موفق

[info]تفعيل الاضافة luacom ضروري[/info]

[محمد سامر محمد سامر]

أنار الله لك طريق العلم أستاذي...جزاك الله خيرا

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

أنار الله لك طريق العلم أستاذي...جزاك الله خيرا

لك كتبت موفــــــــــــق

[فرح صالحي فرح صالحي]

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

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

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

[السعيد الجزائري السعيد الجزائري]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

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

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

مرور طيب موفــــــــق

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

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

شكــــــرا مرور عطر

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

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

موفق بإذن الله ... لك مني أجمل تحية

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

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

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

لاحظوا هذا الكود

sSaveDoc = Input.GetText("Input2");

--Create a WordApp object
oWordApp=luacom.CreateObject("Word.Application");
--Create a Document Object
oDoc=luacom.CreateObject("Word.Document");

--Make the WordApp visible
oWordApp.Visible = false;

--Add a Document to the WordApp (open one)
oDoc = oWordApp.Documents:Open(sTemplateDoc);
--Activate
oDoc:Activate();

--Replace text
oWordApp.Selection.Find:ClearFormatting();
oWordApp.Selection.Find.Text = "<pastehere>";
oWordApp.Selection.Find.Replacement.Text = ""
oWordApp.Selection.Find.Forward = true
oWordApp.Selection.Find.Wrap = 0
oWordApp.Selection.Find.Format = false
oWordApp.Selection.Find.MatchCase = false
oWordApp.Selection.Find.MatchWholeWord = false
oWordApp.Selection.Find.MatchWildcards = false
oWordApp.Selection.Find.MatchSoundsLike = false
oWordApp.Selection.Find.MatchAllWordForms = false
oWordApp.Selection.Find:Execute();

if oWordApp.Selection.Find.Found == true then    
    oWordApp.Selection:PasteAndFormat(20);
end


--Save as
oDoc:SaveAs(sSaveDoc);

--QUIT
oDoc:Close(false); 

هو يختص بالبحث عم مفردة معينة في هذا السطر

oWordApp.Selection.Find.Text = "<pastehere>"; 

ثم تعويضها و حفظ الملف من جديد

الكود موجود في هذا الموضوع : من هنا

السؤال سيداتي سادتي : كيف ادمج بين الكود في الموضوع اعلاه مع هذا الاخير
اعني فتح ملف وورد و البحث فيه عن مفردة معينة و تعويضها بما تشاء ثم في الاخير استدعاء ناتج العمل في الانبوت ؟؟؟

تحياتي

[امل الماضي امل الماضي]

جزاك الله خيرا أستاذ ثامر

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

لاحظوا هذا الكود

ssavedoc = input.gettext("input2");

--create a wordapp object
owordapp=luacom.createobject("word.application");
--create a document object
odoc=luacom.createobject("word.document");

--make the wordapp visible
owordapp.visible = false;

--add a document to the wordapp (open one)
odoc = owordapp.documents:open(stemplatedoc);
--activate
odoc:activate();

--replace text
owordapp.selection.find:clearformatting();
owordapp.selection.find.text = "<pastehere>";
owordapp.selection.find.replacement.text = ""
owordapp.selection.find.forward = true
owordapp.selection.find.wrap = 0
owordapp.selection.find.format = false
owordapp.selection.find.matchcase = false
owordapp.selection.find.matchwholeword = false
owordapp.selection.find.matchwildcards = false
owordapp.selection.find.matchsoundslike = false
owordapp.selection.find.matchallwordforms = false
owordapp.selection.find:execute();

if owordapp.selection.find.found == true then    
    owordapp.selection:pasteandformat(20);
end


--save as
odoc:saveas(ssavedoc);

--quit
odoc:close(false); 

هو يختص بالبحث عم مفردة معينة في هذا السطر

owordapp.selection.find.text = "<pastehere>"; 

ثم تعويضها و حفظ الملف من جديد

الكود موجود في هذا الموضوع : من هنا

السؤال سيداتي سادتي : كيف ادمج بين الكود في الموضوع اعلاه مع هذا الاخير
اعني فتح ملف وورد و البحث فيه عن مفردة معينة و تعويضها بما تشاء ثم في الاخير استدعاء ناتج العمل في الانبوت ؟؟؟

تحياتي

حاول فتح تساؤلك في قيم الاستفسارات

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

جزاك الله خيرا أستاذ ثامر

مرور طيب ابنتي الكريمة

[خالد المسيلي خالد المسيلي]

شكرا وعيدكم مبارك