من 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

بالتأكيد الكود لــــن يعمل لسبب بسيط
هو أن السطر التاسع و العاشــر ينقصان
------
أحببت إضافتهما ليكتمل الكود هاهما مخفيان
wBook:select();
word.Selection:Copy();

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

تفعيل الاضافة luacom ضروري

[محمد سامر]

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

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

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

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

[فرح صالحي]

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

[ياسرهتهت]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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>";

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

الكود موجود في هذا الموضوع : من هنا (https://forums.indigorose.com/forum/autoplay-media-studio-8-5/autoplay-media-studio-8-discussion/30961-luacom-ms-word-automation-question)

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

تحياتي

[امل الماضي]

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

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

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


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>";

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

الكود موجود في هذا الموضوع : من هنا (https://forums.indigorose.com/forum/autoplay-media-studio-8-5/autoplay-media-studio-8-discussion/30961-luacom-ms-word-automation-question)

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

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

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

جزاك الله خيرا أستاذ ثامر
مرور طيب ابنتي الكريمة

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

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

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

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

عيد مبارك أخي خالد مرور طيب :abc_138:

[باي رياضيات]

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

[ابو احمد النائلي]

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

[kiaamed]

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

[صالحيب]

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

[هريدة]

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

[هريدة]

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

[الدموكي]

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

[حروف الزخرفة]

بارك الله فيك
بارك الله فيك

[احمد فيصل]

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

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

شكرا على الملف نحتاجة كثيرا

[بيانكى]

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

[رعاش وليد]

موفق بإذن الله ...

[ورشة عمل هشام]

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

[مارجوم،]

.........................:abc_052:

[الماجيكو]

جميل بسم الله ما شاء الله

[باكلي]

شكر:abc_051::abc_022::abc_051::abc_022::abc_051 :

[سمسم يو]

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

[مرادح]

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

[جمال سات]

أنار الله لك طريق العلم

[مستر على]

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

[سمير المخفي]

شكرا لك :abc_050:

[المكثري]

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