تويت
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
السلام عليكم ورحمة الله وبركاته
-----
باختصـــار : تريد استدعاء محتوى ملف Word الى داخل الأوتوبـــلاي
جيـــــد نضمـــن التجميعية أنبوت 1 متعدد الأسطر سنجعل
منه قناة استقبال لمحتوى ملف Word وزر نزرع فيه
الكود :
بالتأكيد الكود لــــن يعمل لسبب بسيط
هو أن السطر التاسع و العاشــر ينقصان
------
أحببت إضافتهما ليكتمل الكود هاهما مخفيان
[hide]
[/hide]
و إن شئت حاول فذاك أفضل موفق
[info]تفعيل الاضافة luacom ضروري[/info]
السلام عليكم ورحمة الله وبركاته
-----
باختصـــار : تريد استدعاء محتوى ملف Word الى داخل الأوتوبـــلاي
جيـــــد نضمـــن التجميعية أنبوت 1 متعدد الأسطر سنجعل
منه قناة استقبال لمحتوى ملف Word وزر نزرع فيه
الكود :
كود PHP:
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]
كود PHP:
wBook:select();
word.Selection:Copy();
و إن شئت حاول فذاك أفضل موفق
[info]تفعيل الاضافة luacom ضروري[/info]
تعليق