مساعدة : كيف اعطي الورد ان يضع ...

[محايد نت]

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

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

ارجو مساعدتي وشكرا لكم

[ali]

اخي المحايد تم طرح سؤاك في منتدى الساحات وان شاء الله نلقى جواب واول ما يجي جواب شافي ستراه هنا ان شاء الله

[محايد نت]

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

[ali]

الله يحييك اخي ونتمنى نش العلم والخير بين المسلمين


اخي كانت اول اجابة من احد الاخوة في الساحات كالتالي



وأظن أن ذلك يتم عبر الماكرو

تسجل ماكرو ، ويكون فيه بحث عن هذه الكلمة ثم ضغط علامة إدخال ثم بحث ثم إدخال ...

[علي العمري]

الإخوة الأعزة الكرام ..

مساء الورد والووورد .. مساء طلاسم البرمجة .. مساء الحيل والخداع

لقد رأيت السؤال وانتهيت من الحل .. وفعلاً هو ببرمجة الماكرو ..

والحل هو كالتالي :

- أنشأ ماكرواً جديداً وليكن باسم (بحث_كلمة_سطر_جديد) .. ولا تفعل شيئاً .. وأغلقه مباشرة .. ثم من قائمة (أدوات) ثم (ماكرو) ثم اختر (وحدات ماكرو) ثم من القائمة حدد الماكرو (بحث_كلمة_سطر_جديد) ثم انقر زر (تحرير) ثم قم بنسخ الكود التالي وضعه فيما بين Sub و End Sub :



Dim intCont As String

intCont = InputBox("من فضلك أدخل الكلمة التي تريد أن تكون في سطر بمفردها", "أحمد الحربي .. الساحة العربية")

If intCont = "" Or IsNull(intCont) Then Exit Sub

Do While Selection.Find.Execute(FindText:=intCont, Forward:=True, _ Format:=True) = True

Selection.Find.Execute FindText:="blue", Forward:=True

Selection.Find.Execute

Selection.MoveLeft

Selection.TypeParagraph

Selection.MoveRight Unit:=wdWord

Selection.TypeParagraph Loop

























المصدر
http://alsaha.fares.net/sahat?128@15...bl.0@.1dd76405

جز الله احمد الحربي خير الجزاء

[محايد نت]

بارك الله فيك ويعجز اللسان عن شكرك ولك مني خالص الشكر والتقدير على خدمتي أسأل الله أن يفرج همك وهم اخواني ممن سعوا في مساعدتي في جميع المنتديات .. وزادكم الله بسطة في العلم والجسم والمال وجعلها عونا على الطاعة وخدمة الدين والمسلمين ..

محبكم : محايد نت ..

ارجو ان تنقل هذا لاخواني في الساحة حيث لا املك اسما هناك ..

[علي العمري]

وجزاك الله الف الف خير



وهنا حل اخر



هناك طريقة سهلة جدا باستخدام امر استبدل. فقط اختر استبدل من قائمة تحرير ثم ضع الكلمة المراد استبدالها واستبدلها بنفس الكلمة متبوعة بعلامة فقرة جديدة (^p) ثم اختر استبدال الكل.