شحادة بشير

[الجديد في التحديث 5.10]:
1- في قائمة إزالة، تم إضافة خاصية لحذف المسافات البيضاء الزائدة نهاية الفقرات.
2- في الفهرسة الآلية، في نافذة (فهرسة الآيات القرآنية)، تم إضافة خيار لإدراج الأقواس التي تريدها ضمن الآيات في الفهرس النهائي.
3- في الفهرسة الآلية، تحسينات في كود (فهرسة الآيات القرآنية) وكود (فهرسة النصوص).

23 دقائق مضت, أبو عاصم المصري said:

تمام أخانا الحبيب شحادة، حلت المشكلة بفضل الله.

وذلك عن طريق:

1- الوظائف الإضافية.

2- اختيار: عناصر معطلة.

3- ظهرت (إضافة البيان).

4- الضغط على خيار (تمكين) فظهرت الإضافة في شريط المهام، والحمد لله رب العالمين.

* شاكر لك سعة صدرك، وسرعة ردك، جعل الله ذلك في ميزان حسناتك.

الحمد لله

ولو أمكن أن تتكرم علينا وتصور لنا زر (تمكين) في (عناصر معطلة)؛ حتى يستفيد الجميع ممن يقع في هذه المشكلة

أخي الكريم، هل قرأت هذا الموضوع وطبقت ما فيه؟

https://support.microsoft.com/ar-sa/topic/ما-سبب-تعطل-الوظيفة-الإضافية-1e02d873-04c8-4ecd-ac63-8f18507a3870

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

أتوقع مشكلتك في مركز التوثيق، يبدو أنك قمت بتعطيل الإضافة دون قصد، أرجو الاطلاع على المقال التالي:

https://support.microsoft.com/ar-sa/office/ما-سبب-تعطل-الوظيفة-الإضافية؟-1e02d873-04c8-4ecd-ac63-8f18507a3870

بإذن الله تعالى سيتم حل مشكلتك من خلال مركز التوثيق، حاول أن تعدل بعض الإعدادات

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

AlbayanREg.zip

طريقتك في الحذف صحيحة.

وكونك دخلت على (تخصيص)، ومن (تخصيص الشريط) لم تجد الإضافة، إذن حاول إضافتها يدوياً، وذلك عن طريق البحث عنها في القائمة اليمنى وتحديدها، ثم النقر على زر إضافة، وعندها ستظهر في القائمة اليسرى، فتقوم بتحديدها وتفعيلها.

أخي الكريم، هل جربت حذف الإضافة بالطريقة التي شرحتها أنا في الفيديو، بحيث تقوم بحذفها من الوورد وكذلك حذفها من قائمة البرامج؟

3 دقائق مضت, أبو عاصم المصري said:

الأستاذ الفاضل شحادة..

حدثت معي مشكلة:

وهي أنني أثناء تشغيل خاصية الفقرات المكررة، تأخر تنفيذ الأمر بصورة كبيرة، فأوقفت العملية عن طريق (كونترول + ألت + دليت) فخرجت رسالة متعلقة بإضافة البيان، ولما أعدت فتح الملف وجدت أن إضافة البيان قد حذفت من شريط المهام.

فقمت بإزالتها من الجهاز، ثم قمت بتنصيبها مرة أخرى دون جدوى.

فأغلقت الجهاز، ثم فتحته، ونصبتها ثانية، فبقي الأمر كما هو.

فأرجو إفادتي مشكورا.

لحل المشكلة يرجى مشاهد الفيديو التالي بعد الدقيقة الخامسة:

بخصوص الفقرات المكررة:

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

11 دقائق مضت, أبو عاصم المصري said:

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

 

تفضل أخي الحبيب، هذا هو الماكرو:

Sub RemoveFirstSpaces()
Dim i As Paragraph, n As Long

For Each i In ActiveDocument.Paragraphs
    For n = 1 To i.Range.Characters.Count
       If i.Range.Characters(1).Text = " " Or i.Range.Characters(1).Text = "؟" Or i.Range.Characters(1).Text = Chr(9) Then
          i.Range.Characters(1).Delete
          Else: Exit For
       End If
    Next n
Next
End Sub

أخي العزيز أبو عاصم، في ملفك السابق جربت وضع مسافات زائدة بداية كل صف ثم استخدمت من إضافة البيان أمر (حذف المسافات الزائدة بداية الفقرات) فتمت العملية بنجاح.

47 دقائق مضت, أبو عاصم المصري said:

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

لكن هل هناك طريقة لحذف هذه المسافة الموجودة في أول الصف من خلال برنامج الورد؟

آمين وإياكم

أرجو منك أن ترسل لي ملفاً به المشكلة ولو صفحة واحدة؛ حتى أشرح لك عليه.

12 ساعات مضت, أبو عاصم المصري said:

تمام أخي الفاضل، بخصوص حذف المسافة الزائدة في أول الصف من الجدول.

فعلا يتم تنفيذ هذا من خلال الإضافة، فجزاكم الله خيرا.

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

أما بخصوص ترتيب الشعر، فأحيانا يأتي ملف فيه جدول يحتوي على مئات من الأبيات الشعرية على هذه الهيئة:

نَحْنُ جَزَيْناكُمْ بِيَوْمِ بَدْرِ

والحَرْبُ بَعْدَ الحَرْبِ ذاتُ سُعْرِ

هند بنت عتبة

6/11

والمطلوب ترتيب هذه الأبيات على حسب القافية.

وكان الاقتراح: أن نضيف خاصية ترتيب جدول فيه شعر على القافية.

وقد عملت هذا الماكرو السابق، وأجريته على أكثر من خمسة آلاف بيت، فكانت النتيجة تقارب 95%.

فأحببت أن تلحق هذه الخاصية (ترتيب شعر في جدول) للإضافة، وستكون -إن شاء الله- من أجمل ما يلحق بهذه الإضافة.

* ملحوظة: ليتك تخبرني بأمر حذف المسافة الزائدة من أول الصف.

حذف المسافة الزائدة من أول الصف يتم من خلال قائمة (إزالة) والنقر على بند (إزالة المسافات البيضاء الزائدة بداية الفقرات).

بخصوص ترتيب الشعر: ذكرت لك أخي العزيز أن الخاصية موجودة عندما يتم فهرسة القصائد والأبيات الشعرية من خلال إضافة البيان البحثية، وأما إضافة خاصية جديدة من أجل تطبيقها على جدول تم إنشاؤه بشكل آلي أو يدوي بغير إضافة البيان، فالأمر لن ينجح 100%؛ لأنه ليس في كل الأحيان تكون (ا و ي) ليست حرف روي، أيضاً أحياناً يتم تجاهل حرف الروي (حرف الخروج) وحرف الوصل الذي بعده، وهذا لا يدركه برنامج آلي؛ لذا الأمر متعذر آلياً ولن تكون النتائج صحيحة 100%، وهذا الأمر شرحته في الفيديو السابق الذي وضعت لك رابطه.

19 ساعات مضت, أبو عاصم المصري said:

1- نريد أمرا لحذف المسافات الموجودة في أول الصفوف.

2- نريد تحديد الكلمة الأولى -مثلا- في الجدول لتلوينها، لإجراء بعض العمليات عليها.

3- نريد في فهرس الشعر الموجود في جدول تحديد الكلمة الأخيرة من الشطر الثاني المحتوية على القافية، ثم قلب حروفها، يعني مثلا: كلمة (خبير) تصبح (ريبخ) والغرض من هذا ترتيب الجدول على القافية.

مع تجاهل (ا ، و ، ى، وا) إذا جاءت في أول الكلمة بعد قلبها. يعني كلمة (يسيروا) مكانها قافية (الراء) وعند قلبها ستصبح (اوريسي) ولو رتبنا الجدول هذكذا ستكون هذه الكلمة في حرف الألف، والصواب أن تكون في قافية (الراء) لذا يجب حذف (او).

وهذه ميزة في غاية الأهمية، ستوفر وقتا وجهدا كبيرا، فضلا عن دقتها.

 

 

أسعد الله أوقاتك أخي الحبيب أبو عاصم، وبعد:

1- من قائمة (إزالة) اختر (حذف المسافات الزائدة بداية الفقرات) وستتم عملية المسح، إلا إذا كنت تقصد شيئاً آخر فليتك توضح بمثال.

2- في الجدول يوجد صفوف وأعمدة، فماذا تقصد بالكلمة الأولى؟ أضف أنه يوجد خيار لتحديد العمود الأول أو الصف الأول، فما المطلوب تحديداً؟

3- في الفهرسة الآلية، فهرسة القصائد والأبيات الشعرية، يتم عمل شيء شبيه بذلك بعد إدراج الفهرس، وهنا شرح فيديو:

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

جزاك الله خيراً أستاذ علاء على الشرح المميز والشامل

وهذا الفيديو من الشروحات المهمة التي لا غنى للباحث ومستخدم الوورد عنها

أخي الحبيب مصطفى، أسأل الله تعالى أن يستجيب دعواتك الطيبة، ولك مثل ذلك 🙂

[الجديد في التحديث 5.00]:
1- في خاصية إزالة، ضمن إزالة الفقرات الفارغة، أصبح بإمكانك إزالة الفقرات الفارغة من الحواشي السفلية.
2- في خاصية إزالة، ضمن إزالة المسافات البيضاء الزائدة بداية الفقرات، أصبح بإمكانك إزالة المسافات الزائدة بداية الفقرات الفارغة من الحواشي السفلية.
3- في نافذة الحواشي السفلية، في تبويب عمليات متنوعة، تم إضافة زر لوضع مسافة بين الحاشية والنص، بحيث يتم وضع مسافة بين الحاشية والنص الذي بعدها إذا كانا ملتصقين ببعضهما، وهذا في الحواشي وليس في المتن.
4- تم إضافة خاصية لتنبيه المستخدم عند وجود تحديث جديد، حيث يمكن تفعيلها أو تعطيلها من خلال خيار (تنبيهي عند وجود تحديث جديد) الظاهر في نافذة (معلومات عن الإضافة) التابعة لقائمة (معلومات التحديث والشراء).

[الجديد في التحديث 4.90]:
1- في خاصية استبدال آيات المستند: بخصوص ترقيم الآيات ضمن القوسين المزهرين: عندما لا ينتهي نص الآية فلن يتم وضع رقم الآية، وإذا انتهى نص الآية فسيتم وضع رقم الآية، وهذا الأمر لا يشمل التخريج؛ مثلاً:
قوله تعالى: ﴿إِيَّاكَ نَعْبُدُ وَإِيَّاكَ﴾ [الفاتحة: 5]: لم يتم وضع رقم الآية في النهاية بعد كلمة (وَإِيَّاكَ)؛ لأن الآية لها تكملة، ومثلها قوله تعالى: ﴿لِلَّهِ رَبِّ الْعَالَمِينَ (2) الرَّحْمَنِ الرَّحِيمِ (3) مَالِكِ يَوْمِ﴾ [الفاتحة: 2-4].
قوله تعالى: ﴿وَإِيَّاكَ نَسْتَعِينُ (5)﴾ [الفاتحة: 5]: تم وضع رقم الآية في النهاية بعد كلمة (نَسْتَعِينُ)؛ لأن الآية انتهت ولا تكملة لها، ومثلها قوله تعالى: ﴿لِلَّهِ رَبِّ الْعَالَمِينَ (2) الرَّحْمَنِ الرَّحِيمِ (3) مَالِكِ يَوْمِ الدِّينِ (4)﴾ [الفاتحة: 2-4].
وكما نلاحظ في الأمثلة السابقة، لم يتأثر التخريج.
2- في قائمة الفقرات والأنماط، تم إضافة خاصية جديدة لتحديد العبارات المميزة بلون ما؛ كتحديد العبارات المميزة بخلفية صفراء، أو العبارات المميزة بخلفية حمراء، وهكذا.
3- في قائمة الجداول، تم إضافة خاصية لدمج محتويات عدة خلايا مع إضافة فاصلة بينها.
4- في الفهرسة، وفي الإشارات المرجعية تحديداً، تم إضافة خاصية جديدة لفهرسة النصوص من خلال الإشارات المرجعية.
5- تحسينات وإصلاحات في بعض الأكواد.
https://www.youtube.com/watch?v=uSV7re4FcjA

جزاكم الله خيراً على الكود المميز

جزاك الله خيراً أخي الحبيب أبو عاصم، وجعل ذلك في صحيفة أعمالك

🙂

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

لا يمكن تنفيذ العملية إلا من خلال ماكرو، تفضل هذا مثال لتحديد الكلمات المميزة باللون الأصفر:

Sub Highlight()
Dim r As Range
Set r = ActiveDocument.Range
With r.Find
     .Highlight = True
     Do While .Execute(FindText:="", Forward:=True) = True
        If r.HighlightColorIndex = wdYellow Then
           r.Editors.Add wdEditorEveryone
       End If
     Loop
     ActiveDocument.SelectAllEditableRanges wdEditorEveryone
     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
End With
End Sub

وهذا مثال لتحديد الكلمات المميزة باللون الأحمر:

Sub Highlight()
Dim r As Range
Set r = ActiveDocument.Range
With r.Find
     .Highlight = True
     Do While .Execute(FindText:="", Forward:=True) = True
        If r.HighlightColorIndex = wdRed Then
           r.Editors.Add wdEditorEveryone
       End If
     Loop
     ActiveDocument.SelectAllEditableRanges wdEditorEveryone
     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
End With
End Sub

تغيير اللون يتم من خلال هذا السطر بعد عبارة r.HighlightColorIndex إلى اللون الذي تريده:

If r.HighlightColorIndex = wdRed Then

أسأل الله تعالى لك التوفيق أخي الحبيب مصطفى

🙂

[الجديد في التحديث 4.70]:
1- في قائمة بحث واستبدال، تم إضافة الخصائص التالية:
- إيجاد الملفات المتشابهة:
هذه الخاصية تُمكنك من العثور على الملفات المتشابهة في المحتوى أو المتشابهة في الاسم، حيث أصبح بإمكانك العثور على جميع الملفات التي لها نفس المحتوى بغض النظر عن الاسم، سواء كانت هذه الملفات ملفات Word أو أي ملفات أخرى دون استثناء.
https://www.youtube.com/watch?v=62fewcJEJ_M
- إيجاد ملفات لها حجم محدد:
هذه الخاصية تُمكنك من إيجاد ملفات لها حجم محدد بالبايت أو الكيلو بايت أو الميغا بايت، سواء كانت هذه الملفات ملفات Word أو أي ملفات أخرى دون استثناء.
https://www.youtube.com/watch?v=ardhXCnWd8k
- إيجاد ملفات معدلة منذ وقت معين:
هذه الخاصية تُمكنك من إيجاد ملفات قمت بتعديلها في وقت محدد؛ كالملفات التي قمت بتعديلها خلال الأسبوع المنصرم أو خلال اليومين الفائتين أو غير ذلك، سواء كانت هذه الملفات ملفات Word أو أي ملفات أخرى دون استثناء.
https://www.youtube.com/watch?v=O_Q-4Brvy5U
2- تم تحديث خطوط الرسم العثماني إلى آخر إصدار، والخطوط ستجدها ضمن المجلد Fonts.

[الجديد في التحديث 4.70]:
1- في قائمة بحث واستبدال، تم إضافة الخصائص التالية:
- إيجاد الملفات المتشابهة:
هذه الخاصية تُمكنك من العثور على الملفات المتشابهة في المحتوى أو المتشابهة في الاسم، حيث أصبح بإمكانك العثور على جميع الملفات التي لها نفس المحتوى بغض النظر عن الاسم، سواء كانت هذه الملفات ملفات Word أو أي ملفات أخرى دون استثناء.
https://www.youtube.com/watch?v=tJC0MlVYDpo
- إيجاد ملفات لها حجم محدد:
هذه الخاصية تُمكنك من إيجاد ملفات لها حجم محدد بالبايت أو الكيلو بايت أو الميغا بايت، سواء كانت هذه الملفات ملفات Word أو أي ملفات أخرى دون استثناء.
https://www.youtube.com/watch?v=ardhXCnWd8k
- إيجاد ملفات معدلة منذ وقت معين:
هذه الخاصية تُمكنك من إيجاد ملفات قمت بتعديلها في وقت محدد؛ كالملفات التي قمت بتعديلها خلال الأسبوع المنصرم أو خلال اليومين الفائتين أو غير ذلك، سواء كانت هذه الملفات ملفات Word أو أي ملفات أخرى دون استثناء.
https://www.youtube.com/watch?v=O_Q-4Brvy5U
2- تم تحديث خطوط الرسم العثماني إلى آخر إصدار، والخطوط ستجدها ضمن المجلد Fonts.