إضافة البيان البحثية لبرنامج Word

[أبو عاصم المصري]

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

 

[شحادة بشير]

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

 

[أبو عاصم المصري]

بارك الله فيك أخانا الحبيب.

[أبو عاصم المصري]

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

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

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

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

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

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

[شحادة بشير]

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

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

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

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

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

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

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

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

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

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

[أبو عاصم المصري]

حبيبنا الأستاذ شحادة..

أولا: أرجو المعذرة لإثقالي عليك، وعلى تأخري في الرد، بسبب ضيق الوقت.

ثانيا: أنا دخلت على تبويب (تخصيص) ونظرت في جهة الشمال، فلم أجد الإضافة موجودة.

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

حذفت الورد ونصبته مرة أخرى دون جدوى.

شككت أن يكون الأنتي فايروس عطل الإضافة (وهو برنامج أفاست) فدخلت إلى (التطبيقات المعطلة) فلم أجد الإضافة في هذه القائمة.

وما زالت المشكلة قائمة حتى الآن، فأرجو الإفادة مشكورا.

أكرر اعتذاري، وتقبل أرق تحياتي

[شحادة بشير]

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

[أبو عاصم المصري]

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

وحذفتها أيضا من قائمة الوظائف الإضافية، علمت عليها ب(صح) مع إزالة.

 

تم تعديل مارس 18, 2021 بواسطه أبو عاصم المصري

[شحادة بشير]

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

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

تم تعديل مارس 18, 2021 بواسطه شحادة بشير

[أبو عاصم المصري]

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

شكل المشكلة.rar

[شحادة بشير]

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

AlbayanREg.zip

[شحادة بشير]

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

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

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

[أبو عاصم المصري]

معذرة على تعبك، لكن هذه هي الصورة.

[شحادة بشير]

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

[شحادة بشير]

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

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

[أبو عاصم المصري]

للأسف جربت كل هذه المحاولات، دون جدوى.

[أبو عاصم المصري]

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

وذلك عن طريق:

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

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

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

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

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

[شحادة بشير]

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

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

وذلك عن طريق:

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

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

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

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

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

الحمد لله

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

[أبو عاصم المصري]

[شحادة بشير]

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

[شحادة بشير]

[الجديد في التحديث 5.20]:
في الإشارات المرجعية، فهرسة النصوص من خلال الإشارات المرجعية، أصبح بالإمكان إضافة أبيات شعرية، وكذلك إدراج فهرس بالأبيات الشعرية بشكل آلي.

[شحادة بشير]

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

[شحادة بشير]

[الجديد في التحديث 5.40]:
1- في خاصية تنسيق الشعر العربي، تبويب المستند الحالي، أصبحت عملية التنسيق تسري على الحاشية السفلية بعد أن كانت مقتصرة فقط على متن المستند.
2- في نافذة الحواشي السفلية، في تبويب عمليات متنوعة، تم إضافة زر إدراج نقطة نهاية الحاشية، من خلاله سيتم إدراج نقطة نهاية الحاشية إذا لم يكن لها نقطة.

[marwa41]

انا ضفت الميزة الممتازة دى البيان 

لكن كل الاوامر غير مفعلة

[شحادة بشير]

12 دقائق مضت, marwa41 said:

انا ضفت الميزة الممتازة دى البيان 

لكن كل الاوامر غير مفعلة

أهلاً وسهلاً بك أختي الكريمة

الإضافة ليست مجانية، وهنا شرح كيفية الشراء:

في النسخة المجانية تم تفعيل بعض الخيارات فقط

تحياتي لك