تويت
لاحظوا هذا الكود
هو يختص بالبحث عم مفردة معينة في هذا السطر
oWordApp.Selection.Find.Text = "<pastehere>";
ثم تعويضها و حفظ الملف من جديد
الكود موجود في هذا الموضوع : من هنا
السؤال سيداتي سادتي : كيف ادمج بين الكود وهذا الكود
في هذا الموضوع
http://sites.ienajah.com/vb2/showthread.php?t=33990
مع هذا الاخير
اعني فتح ملف وورد و البحث فيه عن مفردة معينة و تعويضها بما تشاء ثم في الاخير استدعاء ناتج العمل في الانبوت ؟؟؟
تحياتي
كود PHP:
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>";
ثم تعويضها و حفظ الملف من جديد
الكود موجود في هذا الموضوع : من هنا
السؤال سيداتي سادتي : كيف ادمج بين الكود وهذا الكود
في هذا الموضوع
http://sites.ienajah.com/vb2/showthread.php?t=33990
مع هذا الاخير
اعني فتح ملف وورد و البحث فيه عن مفردة معينة و تعويضها بما تشاء ثم في الاخير استدعاء ناتج العمل في الانبوت ؟؟؟
تحياتي
في انتظار السيناريو الثاني
تعليق