بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
شحادة بشير
-
Posts
798 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو شحادة بشير
-
وعليكم السلام ورحمة الله وبركاته 1- في الإصدار الجديد غير موجود ذلك. 2- هذه المشكلة لا علاقة للإضافة بها، بل هي مرتبطة بالتصحيح التلقائي، وقد صادفتها فقط مع إضافات سعود العقيل.
-
أخي العزيز، ذكرت لك في ردي السابق أنها غير متاحة حالياً؛ لأنني أُعِدُّ لها شروحات فيديو، بعدها إن شاء الله ستكون متاحة، وسأذكر ذلك ضمن هذه الصفحة بمجرد نشرها.
-
نعم قمت بإضافة أكثر من 100 خاصية جديدة؛ أهمها إدراج الآيات القرآنية (إملائي - حفص - ورش - قالون - الدوري) وكذلك استبدال الآيات القرآنية ضمن المستند إلى الرسم الذي تريده، بالإضافة إلى الفهرسة الآلية للآيات القرآنية، والأبيات الشعرية، والنصوص كالأحاديث النبوية والآثار، وفهرسة الأعلام والأماكن، إلخ، وتنفيذ كل الاقتراحات التي تم طلبها، وغير ذلك الكثير. وهذه صورة من الإضافة: برمجياً انتهيت من كل شيء، بقي أن أجهز شروحات الفيديو، بالإضافة إلى تجريب الخصائص بشكل مستفيض، بعدها إن شاء الله سيتم طرح الإضافة.
-
السلام عليكم ورحمة الله وبركاته أخي العزيز مصطفى، تم تنفيذ اقتراحك هذا على جميع أنواع الأقواس: ()، (())، []، {}، «»، وفق الضوابط التالية: - قبل القوس يجب أن يكون هنالك مسافة بشرط ألا يكون القوس بداية السطر. - بعد القوس يجب أن يكون هنالك مسافة بشرط ألا يكون بعد القوس إحدى علامات الترقيم. أما بخصوص مسافات أقواس الحواشي السفلية الموجودة في المتن: هذه يتم معالجتها من خلال نافذة الحواشي السفلية؛ حيث يوجد هنالك خيار لحذف المسافات قبل الحواشي وأقواسها: وبإذن الله تعالى ستجد هذا التطوير في الإصدار الثالث عند طرحه. ملاحظة: تم تنفيذ كل الاقتراحات السابقة التي طلبتها؛ مثل: 1- إجراء أي عملية من عمليات إضافة البيان البحثية على نطاق محدد سواء كان النطاق في المتن أو الحاشية، وإجراء العملية على متن المستند، وإجراء العملية على حاشية المستند، وهذه كلها خيارات أصبحت متاحة للمستخدم. 2- تحويل الأرقام والرموز المخصصة في الحواشي إلى أرقام حواشٍ، بحيث يتم إعادة ترقيم الحواشي بشكل تسلسلي بما فيها الأرقام والرموز المخصصة. 3- متابعة الحواشي بعلامة يساوي، أو علامة السهم، أو أي علامة أخرى يختارها المستخدم. 4- نظراً لأنك قمت بطرح مواضيع واستفسارات هادفة وشائكة ضمن المنتدى، هذا دفعني للاطلاع على كل مواضيعك، وقد قمت بتنفيذ كل ما أثرته سابقاً ولم يتم عمل حل برمجي له؛ مثلاً: نسخ الجداول إلى مستند آخر بحيث تبقى كجداول وليس كنصوص، أيضاً كل ما أثرته بخصوص فهرسة الأبيات الشعرية في هذا الموضوع الرائع: وانظر ماذا أصبحت تفعل لك إضافة البيان البحثية خلال ثوان (فهرسة الأبيات الشعرية الموجودة ضمن المتن أو ضمن الحاشية أو ضمن نطاق ما من المتن أو الحاشية، مع ترتيبها حسب حرف الروي وحركته): أظن أن هذا سيعجبك كثيراً؛ لذا انتظر الإصدار الثالث بعونه تعالى
-
حياك الله أخي الحبيب مصطفى وأسعد الله أوقاتك بالفعل هذه النقطة أنا لم أعالجها، ولكن أبشر سأحاول أن أقوم بإضافتها ضمن التطويرات القادمة، وألف شكر لجهودك الطيبة.
-
وعليكم السلام ورحمة الله وبركاته شكراً على المعلومة المفيدة، أضف أنه يمكنك بطريقة ثانية، وهي: 1- الضغط على أحد التعليقات الجانبية. 2- النقر من لوحة المفاتيح على الأزرار التالية معاً Ctrl + Shift + End وعندها سيتم تحديد كافة التعليقات، وستستطيع التحكم بها كما تشاء.
-
وهذا مثال للبحث مع استخدام أحرف البدل يحدد كل النصوص الموجودة ضمن معقوفين: Dim oRng As Word.Range Set oRng = Selection.Range oRng.Find.ClearFormatting With oRng.Find .ClearFormatting .Replacement.ClearFormatting .Text = "(\[)(*)(\])" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False While .Execute oRng.Editors.Add wdEditorEveryone Wend ActiveDocument.SelectAllEditableRanges wdEditorEveryone ActiveDocument.DeleteAllEditableRanges wdEditorEveryone End With End Sub
-
السلام عليكم ورحمة الله وبركاته وأخيراً بفضل الله تعالى وصلت إلى ما أريده. بعد البحث والاستفسار في كثير من المواقع العربية والأجنبية التي أخبرتني جميعها أن هذا غير ممكن من خلال الكود، وبعد اليأس وصلت إلى حل بالتجارب والتلاعب بالأكواد، وهذا هو الكود: Sub Macro1() Dim oRng As Word.Range Set oRng = Selection.Range oRng.Find.ClearFormatting With oRng.Find .ClearFormatting .Replacement.ClearFormatting .Text = "الله" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False While .Execute oRng.Editors.Add wdEditorEveryone Wend ActiveDocument.SelectAllEditableRanges wdEditorEveryone ActiveDocument.DeleteAllEditableRanges wdEditorEveryone End With End Sub يمكنك تحديد نطاق ما والتجريب.
-
المشكلة باختصار: ارتغاع الجدول كبير جداً مما جعله ينتقل لصفحة ثانية، فقمت أنا بتقليل ارتفاع كل جدول حتى يتوزعان ضمن صفحة واحدة وليس أكثر.
-
وعليكم السلام ورحمة الله وبركاته تم تعديل النموذج، وهو بالمرفقات. نموذج.docx
-
حذف المسافة الموجودة قبل الحاشية السفلية بالمتن
شحادة بشير replied to مصطفى شاهين's topic in منتدي الوورد Word
وعليكم السلام ورحمة الله وبركاته أخي العزيز مصطفى الخدمة موجودة ضمن إضافة البيان البحثية كما هو موضح في الصورة التالية: أيضاً يمكنك ذلك من خلال الكود التالي: في مربع البحث عن نكتب: ( ){1;}\((^2)\) وفي مربع استبدال بـ نكتب: (\2) مع تحديد خيار باستخدام أحرف البدل، كما في الصورة التالية:
- 1 reply
-
- 1
-
-
مساعدة تنسيق جملة تنتهي بعلامة الترقيم نقطة
شحادة بشير replied to nassimerouh's topic in منتدي الوورد Word
وعليكم السلام ورحمة الله وبركاته يمكنك ذلك من خلال البحث والاستبدال في خانة البحث عن اكتب: (*)(.)(*) وفي خانة استبدال بـ اكتب: \1\2^l\3 ولا تنس تفعيل باستخدام أحرف البدل. بعد ذلك انقر زر استبدال الكل.
-
أخي الحبيب تومي أنا وضعت فيديو من أجل أن تصل الفكرة التي أريدها، الفيديو كان واضحاً من البداية ولا أظن أن فيه شيئاً غامضاً، وكل من أرسلت لهم الفديو من خبراء الوورد فهموا الفكرة وأخبروني أنه لا يمكن تطبيقها. الأكواد التي أرسلتها لي لا علاقة لها بما أريد، فالكود الأول كان للبحث العادي عن كلمة ما، والكود الثاني بالأساس لا يعمل. أضف أن تمييز الكل لا يسمح لك بإجراء التغييرات على الكلمة التي يتم تمييزها، ما يسمح لك بإجراء التغييرات هو تحديد الكل. بخصوص البحث المتعدد فهذا يوفره الوورد من خلال الماكرو وإنشاء مصفوفة بالكلمات، ولكن ما لا يوفره هو تحديد كلمة البحث في كل المستند، وهذا ما وصلت له بعد البحث في مايكروسوفت، حيث أنه لا يمكن تفعيل الخاصية select سوى على كائن واحد في كل مستند "كلمة، حرف، جملة"، وبذلك لا يمكن اختيار أكثر من كلمة. شكراً لك ولتعبك أخي الفاضل، وعذراً أنني دوختك، ولكن أنت لست مضطراً للرد وأنا لم أخص الطلب بشخصك الكريم، بل أحببت الاستفادة من خبرات الجميع أكرر شكري لك
-
موضوع قيِّم للغاية، استفدت منه كثيراً، فألف شكر للسائل وللمجيب. وللإفادة، يمكن تحديد كل الجداول الموجودة ضمن المستند من خلال هذا الماكرو: Dim objDoc As Document Dim objTable As Table Application.ScreenUpdating = False 'Initialization Set objDoc = ActiveDocument 'Set each table in document as a range editable to everyone. With objDoc For Each objTable In .Tables objTable.Range.Editors.Add wdEditorEveryone Next objDoc.SelectAllEditableRanges wdEditorEveryone objDoc.DeleteAllEditableRanges wdEditorEveryone Application.ScreenUpdating = True End With
-
السلام عليكم ورحمة الله وبركاته البعض استهجن طلبي، واعتبره غريباً، وخاصة وأنه يمكن عمله بسهولة بدون أكواد برمجية!! حقيقة أنا أفكر أبعد من ذلك، في إضافة البيان البحثية أردت إضافة زر في خاصية (ما بين قوسين) يمكن من خلاله تحديد كل النصوص الموجودة ضمن قوسين؛ من أجل أن يقوم بعد ذلك المستخدم بفعل ما يشاء فيها؛ من نسخ، وحذف، وتغيير الحجم والخط، إلخ.. وبذلك يصبح لديه الكثير من الخيارات للعبارات الموجودة ضمن قوسين. وقد وصلت لحل من خلال حيلة بسيطة، يمكن للإخوة مشاهدة الفيديو التالي لبعرفوا أبعاد السؤال وليطلعوا على الحل الذي وصلت له، وألف شكر لاهتمامكم. التحديث أصبح متوفراً الآن في إضافة البيان البحثية لمن أراد تحميلها مجدداً والاستفادة من هذه الخاصية الجديدة تفضلوا الفيديو: https://top4top.io/downloadf-1636nnvhe1-zip.html
-
ألف شكر لك أخي العزيز، وعذراً منك هذا الكود يقوم بالبجث والاستبدال وهو ليس المطلوب يبدو أن الأمر مستحيل، فقد أخبرني أحد الخبراء بأن هذا من أحد الأمور التي لا يمكن تنفيذها من خلال الماكرو وأكواد VBA، وكذلك طلبت الخدمة من مواقع العمل الحر فأخبرني المبرمجون أنه بعد مراجعة موقع مايكروسوفت تبين أنه لا يمكن تفعيل الخاصية select سوى على كائن واحد في كل مستند "كلمة، حرف، جملة"، وبذلك لا يمكن اختيار أكثر من كلمة.
-
أخي العزيز تومي محمد، الكود لا يعمل، ثم إنني أوضحت أنني لا أريد التغميق بل أريد التحديد. شكراً لك 🙂
-
حسبما فهمت من المقال التالي فإن هذا غير ممكن من خلال vba؛ لأن مايكروسوفت قامت بإلغاء داالة Find All: https://stackoverflow.com/questions/54881150
-
وهذا فيديو جديد وضعته على اليوتيوب شرحت فيه المطلوب بشكل أفضل:
-
ألف شكر لك أخي العزيز تومي محمد، ولكن للأسف الماكرو لا يعمل، حيث يقوم بتحديد كلمة واحدة فقط، ومن ثم تحتاج للنقر مجدداً لتحديد الكلمة الثانية وهكذا دواليك، ولو لاحظت في الفيديو الذي شرحته أنا يتم تحديد كل الكلمات المشابهة لكلمة البحث دفعة واحدة، وبالتالي تستطيع بعد ذلك حذفها أو تلوينها دفعة واحدة.
-
السلام عليكم ورحمة الله وبركاته أريد ماكرو يقوم بتحديد كلمة البحث كما هو موضح في الفيديو المرفق TutRail.zip
-
تفضل أخي العزيز مصطفى: ' 'Set bookmark for return. ActiveDocument.Bookmarks.Add Name:="WhereYouWere", Range:=Selection.Range ' Go to start of document. Selection.HomeKey unit:=wdStory, Extend:=wdMove ' Repaginate the document. ActiveDocument.Repaginate Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "{" .Replacement.Text = ChrW(64831) .Replacement.Font.Name = "Traditional Arabic" .Forward = True .Wrap = wdFindContinue .Format = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "}" .Replacement.Text = ChrW(64830) .Replacement.Font.Name = "Traditional Arabic" .Forward = True .Wrap = wdFindContinue .Format = True End With Selection.Find.Execute Replace:=wdReplaceAll, _ Format:=True, MatchCase:=True, _ MatchWholeWord:=True ' Return to starting location. Selection.GoTo What:=wdGoToBookmark, Name:="WhereYouWere" ' Delete the return marker. ActiveDocument.Bookmarks("WhereYouWere").Delete
-
وعليكم السلام ورحمة الله وبركاته الحمد لله، وليتك تضع رابط (برنامج Office الخاص بالوظائف الإضافية) حتى يستفيد منه من يقع في نفس المشكلة، ولك الأجر إن شاء الله. أيضاً لا تنسَ تحميل الإصدار الجديد من الإضافة؛ ففيه مزايا وخصائص جديدة ومعالجة لجميع الملاحظات.
-
السلام عليكم ورحمة الله وبركاته تم إصدار تحديث جديد لإضافة البيان البحثية [الجديد في التحديث 2.00]: 1- إضافة خاصية تُمَكِّنُك من التحكم بالإشارات المرجعية، من حيث إضافتها كفهرس وجدول محتويات، وحذفها، وتغميقها، وتلوينها، وتظليلها. 2- عند استخدام خاصية تصحيح علامات الترقيم، سيتم مراعاة ومعالجة الأرقام الموجودة بين الفاصلة النقطية التي تظهر بالنقر على الزرين (Shift+ز)، ففي حال وجود مسافات بين عدد عشري مثل 5.2 سيتم مسح هذه المسافات. 3- في خاصية ضبط المسافات بين الكلمات، سيتم مسح المسافات الزائدة ضمن الأقواس؛ مثلاً: ( محمد رسول الله ) ستصبح (محمد رسول الله)، وهكذا بالنسبة لبقية الأقواس الأخرى وعلامتي التنصيص. 4- في خاصية ما بين قوسين تم إضافة علامتي التنصيص ""، وأصبح بالإمكان إجراء عمليات متعددة على النص الموجود ضمن علامتي التنصيص. 5- تم إضافة اللون الأسود لتلوين ما بين قوسين، وتلوين الحواشي السفلية، وهذا مفيد في حال تم تغيير اللون الأسود إلى لون آخر، فيمكن بعد ذلك إعادة التلوين باللون الأسود. التحميل من نفس الرابط السابق وهذا فيديو للجديد في هذا التحديث:
-
وعليكم السلام ورحمة الله وبركاته بالمرفق ملف فلاشي شرحت من خلاله من سنوات كيفية التعامل مع الرموز الخاصة، وبإذن الله سيفيدك. رموز الاستبدال.zip