شحادة بشير

[الجديد في التحديث 10.00]: 1- في خدمة (تحويل الآيات من الرسم الإملائي إلى الرسم العثماني)، تم إضافة زر (تجاهل وإيقاف عملية الاستبدال) في نافذة (تصحيح الخطأ في الآية) ونافذة (يوجد أكثر من تخريج للآية)، والذي يُمكِّنك من إيقاف عملية الاستبدال بشكل نهائي. 2- في خدمة (تحويل الآيات من الرسم العثماني إلى الرسم الإملائي)، تم إضافة زر (تجاهل وإيقاف عملية الاستبدال) في نافذة (تصحيح الخطأ في الآية) ونافذة (يوجد أكثر من تخريج للآية)، والذي يُمكِّنك من إيقاف عملية الاستبدال بشكل نهائي. 3- في نافذة (دمج مستندات متعددة)، تم إضافة عمود (رقم الصفحة الأولى الحقيقي)، والذي يعرض لك رقم أول صفحة من كل مستند من المستندات التي تريد دمجها، وعند النقر على رأس العمود، سيرتب لك القائمة حسب أرقام الصفحات تصاعدياً، وهذا يُسهِّل عليك ترتيب المستندات قبل دمجها. 4- في خدمة (تحويل ملفات doc إلى docx)، أصبح بإمكانك تحويل ملفات rtf أيضاً، وأصبح اسم الخدمة (تحويل ملفات doc و rtf إلى docx). 5- في خدمة (عمليات متنوعة على الإشارات المرجعية)، تم إضافة زر (إظهار / إخفاء)، والذي سيُظهر لك معقوفين حول أي إشارة مرجعية ضمن المستند، ولإخفاء المعقوفين انقر الزر مجدداً. 6- في خدمة (عمليات متنوعة على الإشارات المرجعية)، تم إضافة خاصية (إعادة ترقيم الإشارات التي تبدأ بنص العبارة المحدد)، والتي تُمكِّنك من إعادة ترقيم الإشارات المرجعية التي تبدأ بالعبارة المكتوبة في مربع نص العبارة، وهي مفيدة في حال كان لديك أكثر من جزء للمستند وأردتَ أن تجمعهم مع بعضهم، حيث تعيد ترقيم الفهارس من الرقم الذي تريده، كفهرس الأحاديث مثلاً، حيث تجعل عناوين الإشارات المرجعية مختلفة في كل جزء عن الآخر. 7- في خدمة (عمليات متنوعة على الإشارات المرجعية)، تم إضافة خاصية (التحكم بالإشارات المرجعية)، والتي تسمح لك بإعادة تسمية إشارة مرجعية، أو إضافة إشارة مرجعية جديدة، أو الانتقال إلى إشارة ما، أو حذف إشارة ما.

[الجديد في التحديث 9.90]: 1- في خدمة (عمليات على الآيات القرآنية)، تم إضافة خاصية (إضافة مسافة غير منقسمة قبل رقم الآية)، والتي تمنع وقوع رقم الآية في سطر جديد والآية التي قبله نهاية السطر السابق. 2- تم تحديث خط حفص من مجمع الملك فهد لطباعة المصحف الشريف إلى الإصدار الأخير 2.2، ومن يرغب باستخدام إصدار الخط 0.13 فقد وفَّر موقع المجمع نسخة منه تجدها على الرابط التالي: https://fonts.qurancomplex.gov.sa/wp02/حفص 3- في قائمة (إزالة)، وضمن (إزالة المسافات)، تم إضافة خاصية (إزالة المسافة بين التاريخ ونوعه)، والتي تزيل المسافة بين التاريخ ونوعه إن كان هجرياً أو ميلادياً، مثل (1445 هـ) حيث تصبح بدون مسافة (1445هـ)، والأمر نفسه للتاريخ الميلادي الذي يرمز له بالحرف (م)، وكذلك لتاريخ ما قبل الهجرة الذي يرمز له بالأحرف (ق.هـ)، وتاريخ ما قبل الميلاد الذي يرمز له بالأحرف (ق.م). 4- خدمة (الخطوط المستخدمة ضمن المستند الحالي) كانت سابقاً بطيئة للغاية مع المستندات الكبيرة، والآن أصبحت سريعة جداً بحيث لا تتجاوز أكثر من ثلاث ثوانٍ حتى لو كان المستند مكوناً من آلاف الصفحات وآلاف الخطوط، ولكن هذا يدعم مستندات docx أي Word 2007 فأحدث، ولا يدعم مستندات doc أي Word 2003 وما قبله؛ لذا أبقيت على الخاصية السابقة، والآن أصبح هنالك خاصيتان ضمن خدمة (الخطوط المستخدمة ضمن المستند الحالي)، هما: الأولى: الخطوط المستخدمة ضمن المستند الحالي (سريع - لا يدعم مستندات doc). الثانية: الخطوط المستخدمة ضمن المستند الحالي (بطيء - يدعم مستندات doc).

[الجديد في التحديث 9.80]: 1- في خدمة (الجداول)، تم إضافة خاصية (حذف الصفوف التي لها عدد كلمات محدد)، والتي تُمكِّنك من حذف الصفوف التي عدد كلماتها أقل أو أكبر أو يساوي الرقم الذي تحدده. 2- في خدمة (الحواشي السفلية)، وضمن خاصية (الكشف عن الحواشي الموزعة على أكثر من صفحة)، تم إضافة زري السابق والتالي؛ ليسهل التنقل بين الحواشي الموزعة على أكثر من صفحة. 3- في خدمة (الحواشي السفلية)، وضمن خاصية (الكشف عن الحواشي المزاحة)، تم إضافة زري السابق والتالي؛ ليسهل التنقل بين الحواشي المزاحة. 4- في خدمة (الحواشي السفلية)، تم إضافة خاصية (بحث عن نص ضمن الحاشية الأولى من كل صفحة)، وهي مفيدة في حال بحثت عن نص مثل (المرجع السابق)، ففي حال كان ضمن الحاشية الأولى من صفحة ما، فيمكنك معالجته وتصحيح ذلك. 5- في خدمة فهرسة الآيات القرآنية، تم إضافة خاصية (عدم فهرسة أي نص كلماته أقل من)، والتي ستسمح لك بعدم فهرسة أي نص قرآني عدد كلماته أقل من العدد المختار من مربع السرد.

[الجديد في التحديث 9.70]: 1- في قائمة (عبارات ونصوص)، تم إضافة خاصية (ضبط النص بالشكل)، والتي توفر عليك الكثير من الوقت في تشكيل النصوص مع خيارات واسعة. 2- في قائمة (صفحات)، تم إضافة خاصية (وضع توافق المستند الحالي)، والتي تكشف لك عن إصدار Word المحفوظ به المستند الحالي، هل هو 2003 أم 2007 أم 2010 أم 2013-2021؟ كما تُمكِّنك من تغيير وضع توافق مستندك الحالي إلى أي إصدار آخر من إصدارات الوورد، وهذا مفيد في حل بعض المشكلات، كمشكلة اختفاء علامة متابعة الحواشي السفلية وغير ذلك. 3- في قائمة (الحواشي السفلية)، تم إضافة خاصية (انتقال إلى أول حاشية تابعة للصفحة الحالية). 4- في خدمة (الحواشي السفلية)، تم تطوير خاصية (الكشف عن الحواشي الموزعة على أكثر من صفحة)، حيث أصبحت أدق وأسرع بكثير مما سبق. 5- في خدمة (الحواشي السفلية)، تم إضافة خاصية (الكشف عن الحواشي المزاحة)، والتي تُظهر لك الصفحات التي انتقلت فيها الحاشية إلى الصفحة التالية رغم أن رقم الحاشية في الصفحة الحالية. 6- في خدمة (الحواشي السفلية)، تم إلغاء خاصية (حل مشكلة اختفاء علامة متابعة الحواشي)؛ لأن خاصية (وضع توافق المستند الحالي) الموجودة في قائمة (صفحات) تغني عنها وتُمكِّنك من جعل مستندك الحالي متوافقاً مع أي إصدار تريده من إصدارات الوورد، وبالتالي تحل لك مشكلة اختفاء علامة متابعة الحواشي. 7- في قائمة (معلومات)، تم إضافة قائمة (رقم الصفحة)، والتي ستكشف لك عن: (رقم الصفحة الحالية الحقيقي) والذي قد يكون "1" أو "أ" أو "a" أو غير ذلك، و(رقم الصفحة الحالية ضمن المقطع الحالي) والذي يشير إلى رقم الصفحة من بداية المقطع الحالي إلى المكان الذي فيه المؤشر، و(رقم الصفحة الحالية على مستوى المستند) والذي يشير إلى رقم الصفحة من بداية المستند إلى المكان الذي فيه المؤشر.

[الجديد في التحديث 9.60]: 1- في قائمة (إزالة)، تم إضافة خاصية (مسح قائمة الإجراءات التي يمكن التراجع عنها للمستند الحالي)، حيث لن يمكنك بعد تنفيذه من النقر على زر CTRL+Z للتراجع عن إجراء قمت به قبل نقر هذا الزر. 2- في نافذة (تحريك تلقائي للصفحات) الموجودة في قائمة (صفحات)، تم إضافة مربع اختيار عند تحديده ستصبح النافذة في الأمام فوق كل النوافذ. 3- في خدمة (التعامل مع العبارات المميزة بلون ما)، تم إضافة خاصية (عبارات مميزة تحوي ارتباطاً تشعبياً يسبب مشكلة)، ولكن ما فائدة ذلك؟ الجواب: أحياناً تفهرس النصوص المميزة بلون ما أو تجري عملية ما على النصوص المميزة، فتجد أن العملية تستغرق وقتاً طويلاً جداً ولا تتوقف، والسبب أن هنالك بعض النصوص المميزة تحوي ارتباطاً تشعبياً يسبب مشكلة ما؛ لذا تأتي هذه الخاصية لتكشف لك النصوص المميزة التي تحوي ارتباطات تشعبية تسبب مشكلة وتصلحها لك. وستجد فيها زران: الأول: (فحص)، وسينسخ لك إلى ملف جديد أي نص مميز بلون ما ضمنه ارتباط تشعبي يسبب مشكلة. الثاني: (إصلاح)، ويتولى مهمة إصلاح مشكلة الروابط الموجودة ضمن العبارات المميزة دون أن يحذف لك شيئاً ودون أن يعدل لك أي شيء. 4- في قائمة (ارتباطات)، تم إضافة خاصية (هل يحتوي النص المحدد على ارتباط تشعبي؟)، والتي ستمكنك من معرفة عدد الارتباطات التشعبية الموجودة ضمن النص المحدد إن وجدت. 5- في قائمة (صفحات)، تم إضافة خاصية (علامة الوصول)، والتي تمكنك من إضافة علامة للمكان الذي وصلت إليه ضمن المستند من خلال زر (إضافة علامة وصول هنا)، ثم عندما تريد العودة إلى هذا المكان تنقر زر (انتقال إلى علامة الوصول المحفوظة)، وهذا مفيد جداً لمن يعملون على تنقيح البحوث وتدقيقها وتنسيقها، حيث يستطيعون إضافة علامة للمكان الذي وصلوا إليه؛ كي يعودوا إليه مباشرة متى ما أرادوا وبنقرة زر واحدة. 6- في قائمة (صفحات)، تم إضافة خاصية (حفظ واستعادة الجلسة)، والتي ستمكنك من حفظ جلسة الملفات المفتوحة حالياً مهما كان عددها، ثم إعادة فتح هذه الملفات نفسها متى ما أردت، فقد تغلق الحاسب ثم تعيد تشغيله ولا تريد أن تفتح هذه المستندات واحداً تلو الآخر، فتأتي هذه الخدمة لتفتح لك جميع المستندات التي كانت مفتوحة سابقاً بنقرة زر واحدة. 7- في قائمة (صفحات)، تم إضافة خاصية (حفظ واستعادة نسخة احتياطية)، والتي تمكنك من حفظ نسخة احتياطية أو عدة نسخ لأي مستند، ثم استرجاع هذه النسخ المحفوظة متى ما أردت، وهي مفيدة جداً في حال تعرض مستندك للحذف الخاطئ أو عُطِب لسبب ما أو أجري عليه تعديلات لا تريدها. 8- في خدمة (الحواشي السفلية)، تم إضافة زر (حل مشكلة اختفاء علامة متابعة الحواشي)، والذي سيمكنك من حل مشكلة اختفاء علامة متابعة الحواشي أو فاصل متابعة الحواشي. 9- تم تطوير خاصية (عمليات متنوعة على الإشارات المرجعية)، وأضيفت لها العديد من الخصائص، كالتنقل بين الإشارات المرجعية (السابق والتالي)، ونسخ الإشارات المرجعية إلى مستند جديد، والبحث عن إشارة مرجعية، وكل هذه العمليات يمكن تطبيقها على (كل الإشارات المرجعية) أو على (إشارات تبدأ بعبارة ما) كالإشارات الخاصة بفهرس الحديث أو القصائد أو غير ذلك.

[الجديد في التحديث 9.50]: 1- في قائمة (فقرات وأنماط)، تم إضافة خاصية (إضافة نقطة نهاية الفقرات التي لا تنتهي بنقطة)، وهي تضيف نقطة نهاية أي فقرة لا تنتهي بنقطة أو نقطتان أو إشارة استفهام او إشارة تعجب. 2- في قائمة (فقرات وأنماط)، تم إضافة خاصية (عكس النص المحدد)، وهي تقوم بعكس أي نص تحدده، وهي مفيدة في عكس النصوص المنسوخة من ملفات PDF. 3- في قائمة (فقرات وأنماط)، تم إضافة خاصية (تحريك الفقرات)، وضمنها زر (تحريك الفقرة الحالية لأعلى) وزر (تحريك الفقرة الحالية لأسفل)، فإذا كنت ضمن جدول فسيحرك لك الصف الحالي أو الصفوف المحددة، وإذا كنت ضمن فقرة فسيحرك لك الفقرة الحالية أو الفقرات المحددة، وهذا يُسهِّل عليك نقل الصفوف والفقرات من مكان لآخر صعوداً ونزولاً. 4- في قائمة (الحواشي السفلية)، تم إضافة زر (إدراج حاشية سفلية)؛ لإدراج حاشية سفلية منسقة مباشرة دون الاضطرار للذهاب إلى خدمة الحواشي السفلية ونقر زر (إدراج) منها. 5- في قائمة (الحواشي السفلية)، تم إضافة زر (تحويل النص المحدد إلى حاشية)، والذي سيحول لك النص الذي تحدده إلى حاشية سفلية. 6- في قائمة (معلومات)، تم إضافة خاصية (إدراج اسم نظام التشغيل وإصدار الأوفيس وإصدار إضافة البيان)، وهذه المعلومات مهمة عند حدوث مشكلة في إضافة البيان، حيث تساعد على حلها. 7- في قائمة (معلومات)، تم إضافة خاصية (رقم المقطع الحالي)، والتي ستزودك برقم المقطع الحالي إن كنتَ قد قسّمت المستند لعدة مقاطع. 8- في قائمة (عمليات على الإشارات المرجعية)، تم إضافة زر (إظهار الإشارات المرجعية) وزر (إخفاء الإشارات المرجعية)، فعند استخدام زر (إظهار الإشارات المرجعية) سيظهر لك معقوفان حول الإشارات المرجعية، وعند استخدام زر (إخفاء الإشارات المرجعية) سيختفي المعقوفان من حول الإشارات المرجعية.

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

[الجديد في التحديث 9.20]: العمل على كل الملاحظات والمشكلات التي صادفت المستخدمين.

أخي العزيز مصطفى ما يظهر في صورتك ليس هو الماكرو الذي أرسلته في مشاركتي، فالماكرو الذي أرسلته في مشاركتي يبدأ بهذه الأكواد: Sub TrtebShar() 'ماكرو ترتيب أبيات شعرية في جدول، ولا بد أن يكون هناك جدول فقط ' On Error Resume Next If Selection.Information(wdWithInTable) = True Then 'تحديد العمود الثالث Selection.Tables(1).Columns(3).Select End If وهذا هو كاملاً: Sub TrtebShar() 'ماكرو ترتيب أبيات شعرية في جدول، ولا بد أن يكون هناك جدول فقط ' On Error Resume Next If Selection.Information(wdWithInTable) = True Then 'تحديد العمود الثالث Selection.Tables(1).Columns(3).Select End If If Len(Selection.Text) = 1 Then MsgBox "من فضلك ظلل عمود الشطر الثاني الذي فيه القافية" Exit Sub End If Selection.Font.Color = 10498160 Selection.MoveLeft Unit:=wdCharacter, Count:=1 For i = 1 To 100000 Selection.EndKey Unit:=wdLine Selection.Find.ClearFormatting Selection.Find.Font.Color = 10498160 Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^$" .Replacement.Text = "" .Forward = False .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Copy Selection.SelectRow Selection.Font.Color = wdColorAutomatic Selection.HomeKey Unit:=wdLine Selection.PasteAndFormat (wdPasteDefault) Selection.HomeKey Unit:=wdLine, Extend:=wdExtend If Selection.Font.Underline = wdUnderlineNone Then Selection.Font.Underline = wdUnderlineSingle Else Selection.Font.Underline = wdUnderlineNone End If Selection.Find.ClearFormatting With Selection.Find.Font .Underline = wdUnderlineSingle .Color = 10498160 End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[ًٌٍَُِّْ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection = StrReverse(Selection) Selection.HomeKey Unit:=wdLine Selection.MoveDown Unit:=wdLine, Count:=1 Selection.Find.ClearFormatting With Selection.Find.Font .Underline = wdUnderlineNone .Color = 10498160 End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^$" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=1 If Selection.Find.Found = False Then Exit For End If Next i Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting With Selection.Find.Font .Underline = wdUnderlineSingle .Color = 10498160 End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " [اويى]" .Replacement.Text = " " .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = True .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute Replace:=wdReplaceAll Selection.Sort ExcludeHeader:=False, FieldNumber:="عمود 1", SortFieldType _ :=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, FieldNumber2 _ :="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _ wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _ wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _ wdSortSeparateByCommas, SortColumn:=False, CaseSensitive:=False, _ LanguageID:=wdArabic, SubFieldNumber:="فقرات", SubFieldNumber2:="فقرات", _ SubFieldNumber3:="فقرات" Selection.Sort BidiSort:=False, IgnoreThe:=True, IgnoreKashida:=False, _ IgnoreDiacritics:=False, IgnoreHe:=False Selection.Find.ClearFormatting With Selection.Find.Font .Underline = wdUnderlineSingle .Color = 10498160 End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdStory Beep MsgBox "تم ترتيب الشعر بنجاح" End Sub

الأخ أبو عاصم المصري، جزاك الله خيراً على الكود. الأخ مصطفى شاهين، فضلاً، انسخ الكود التالي كاملاً: Sub TrtebShar() 'ماكرو ترتيب أبيات شعرية في جدول، ولا بد أن يكون هناك جدول فقط ' On Error Resume Next If Selection.Information(wdWithInTable) = True Then 'تحديد العمود الثالث Selection.Tables(1).Columns(3).Select End If If Len(Selection.Text) = 1 Then MsgBox "من فضلك ظلل عمود الشطر الثاني الذي فيه القافية" Exit Sub End If Selection.Font.Color = 10498160 Selection.MoveLeft Unit:=wdCharacter, Count:=1 For i = 1 To 100000 Selection.EndKey Unit:=wdLine Selection.Find.ClearFormatting Selection.Find.Font.Color = 10498160 Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^$" .Replacement.Text = "" .Forward = False .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Copy Selection.SelectRow Selection.Font.Color = wdColorAutomatic Selection.HomeKey Unit:=wdLine Selection.PasteAndFormat (wdPasteDefault) Selection.HomeKey Unit:=wdLine, Extend:=wdExtend If Selection.Font.Underline = wdUnderlineNone Then Selection.Font.Underline = wdUnderlineSingle Else Selection.Font.Underline = wdUnderlineNone End If Selection.Find.ClearFormatting With Selection.Find.Font .Underline = wdUnderlineSingle .Color = 10498160 End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[ًٌٍَُِّْ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection = StrReverse(Selection) Selection.HomeKey Unit:=wdLine Selection.MoveDown Unit:=wdLine, Count:=1 Selection.Find.ClearFormatting With Selection.Find.Font .Underline = wdUnderlineNone .Color = 10498160 End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^$" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=1 If Selection.Find.Found = False Then Exit For End If Next i Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting With Selection.Find.Font .Underline = wdUnderlineSingle .Color = 10498160 End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " [اويى]" .Replacement.Text = " " .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = True .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute Replace:=wdReplaceAll Selection.Sort ExcludeHeader:=False, FieldNumber:="عمود 1", SortFieldType _ :=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, FieldNumber2 _ :="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _ wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _ wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _ wdSortSeparateByCommas, SortColumn:=False, CaseSensitive:=False, _ LanguageID:=wdArabic, SubFieldNumber:="فقرات", SubFieldNumber2:="فقرات", _ SubFieldNumber3:="فقرات" Selection.Sort BidiSort:=False, IgnoreThe:=True, IgnoreKashida:=False, _ IgnoreDiacritics:=False, IgnoreHe:=False Selection.Find.ClearFormatting With Selection.Find.Font .Underline = wdUnderlineSingle .Color = 10498160 End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdStory Beep MsgBox "تم ترتيب الشعر بنجاح" End Sub

[الجديد في التحديث 9.10]: 1- في نافذة (تحويل الآيات من الرسم الإملائي إلى الرسم العثماني)، تم إضافة خاصية (رقم الآية الأخيرة)، فعند تحديد (إضافة) سيضيف لك رقم الآية الأخيرة في النص إن لم يكن لها تكملة، وعند تحديد (حذف) لن يضيف لك رقم الآية الأخيرة في النص. 2- في نافذة (تحويل الآيات من الرسم العثماني إلى الرسم الإملائي)، تم إضافة خاصية (رقم الآية الأخيرة)، فعند تحديد (إضافة) سيضيف لك رقم الآية الأخيرة في النص إن لم يكن لها تكملة، وعند تحديد (حذف) لن يضيف لك رقم الآية الأخيرة في النص. 3- في قائمة عبارات ونصوص، تم إضافة خاصية (معالجة (عبد ...) بحيث لا يقع الاسم بعدها في سطر منفصل عنها)، وهي خاصة بمعالجة أي اسم مركب يبدأ بـ (عبد) ما عدا الأسماء المركبة التي تبدأ بـ (عبد ال)؛ لأن هذه لها خاصية مستقلة، والأسماء المركبة التي تعالجها هذه الخاصية الجديدة 54 اسماً مركباً، وهي: (عبد تيم، عبد ثَور، عبد ثَبير، عبد ثابت، عبد ثقيف، عبد جُعَل، عبد جُشَم، عبد جَذِيمة، عبد جدي، عبد جَبل، عبد جَرِيش، عبد جريس، عبد جابر، عبد جمل، عبد جده، عبد حارثة، عبد حريث، عبد حُمَيد، عبد خبير، عبد خير، عبد خليل، عبد دُهْمَان، عبد ذي، عبد رب، عبد ربه، عبد رِضَاء، عبد رَضِي، عبد رَزاح، عبد رسول، عبد زَمْعَة، عبد سعد، عبد سعيد، عبد شمس، عبد ضَخْم، عبد عَوْف، عبد عمرو، عبد عون، عبد عامر، عبد غَنْم، عبد غَطَفان، عبد قيس، عبد قصي، ‌عبد كُلال، عبد كعب، عبد كُوَيْه، عبد مَنَاة، عبد مَناف، عبد نُهْم، عبد ناشرة، عبد هلال، عبد وُدّ، عبد يزيد، عبد يَغُوث، عبد يَالِيل).

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

[الجديد في التحديث 8.90]: 1- في خدمة (تحويل الآيات من الرسم الإملائي إلى الرسم العثماني)، جرى تغيير على خاصية التنبيه عند (وجود أكثر من تخريج للآية)، فعند تحديد المربع ستظهر لك نافذة لتختار منها التخريج المناسب، أما عند إلغاء التحديد فيسظهر لك مربعا اختيار، الأول (تخريج عشوائي) لاختيار تخريج عشوائي آلي للآية التي لها أكثر من تخريج، والثاني (عدم الاستبدال) وذلك لتجاهل الآية وتركها كما هي دون استبدال. 2- في خدمة (تحويل الآيات من الرسم العثماني إلى الرسم الإملائي)، جرى تغيير على خاصية التنبيه عند (وجود أكثر من تخريج للآية)، فعند تحديد المربع ستظهر لك نافذة لتختار منها التخريج المناسب، أما عند إلغاء التحديد فيسظهر لك مربعا اختيار، الأول (تخريج عشوائي) لاختيار تخريج عشوائي آلي للآية التي لها أكثر من تخريج، والثاني (عدم الاستبدال) وذلك لتجاهل الآية وتركها كما هي دون استبدال. 3- في خدمة (ضبط القصائد الشعرية)، تم إضافة خاصية (ترقيم الأبيات الشعرية)، والتي تُمكِّنك من ترقيم الأبيات الشعرية ضمن المستند بدءاً من الرقم الذي تريده. 4- في خدمة (الأنماط المستخدمة ضمن المستند الحالي)، تم إضافة خاصية (إنشاء جدول عناوين للنمط المختار)، والتي تُمكِّنك من إنشاء جدول موضوعات لنمط ما تختاره، في العمود الأول الموضوع، وفي العمود الثاني رقم الصفحة. 5- في قائمة (عبارات ونصوص)، تم إضافة خاصية (تقرير بالمراجعات)، والتي ستعطيك تقريراً مفصلاً في ملف إكسيل بالتغييرات التي جرت على المستند بعد تفعيل تعقب التغييرات. 6- في قائمة (معلومات)، تم إضافة خاصية (عدد المراجعات (التنقيحات) ضمن المستند الحالي)، والتي توضح عدد التغييرات التي جرت على المستند بعد تفعيل تعقب التغييرات. 7- تطوير خدمة (إنشاء جدول محتويات)، حيث أصبحت تسمح لك بتحديد المستويات التي تريد ظهورها ضمن الجدول، وأيضاً تحديد بادئة للعناوين. 8- تطوير خدمة (عمليات متنوعة على الإشارات المرجعية)، حيث أصبح بالإمكان إجراء العمليات على الإشارات المرجعية كافة أو على إشارات تابعة لقسم ما أو تبدأ بعبارة مخصصة، بالإضافة إلى إمكانية إجراء العمليات المتنوعة على نطاق مكون من ثلاث كلمات على الأقل أو على كامل المستند. 9- عند النقر على CTRL+Z سيتراجع لك عن الإجراء الأخير كاملاً، وعند النقر على CTRL+Y سيعيد لك الإجراء الأخير، مثلاً: إذا حولت الآيات من الرسم الإملائي إلى العثماني ثم نقرت CTRL+Z سيتراجع عن كل التعديلات التي أجرتها عملية التحويل دفعة واحدة، وإذا نقرت CTRL+Y سيعيد لك الآيات بعد تحويلها، والعملية لن تستغرق أجزاء من الثانية مهما كان حجم المستند، وهذه الخاصية جرى تطبيقها على أكثر من 80% من خدمات إضافة البيان البحثية.

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

جزاكم الله خيراً أخي الحبيب أبو عاصم. الكود يضع احتمالاً واحداً وهو أن يكون بعد الكلمة مسافة، ولكن ماذا لو كان بعد الكلمة الثانية علامة ترقيم أو شرطة أو أي شيء غير المسافة، مثلاُ: الفقه لغة لغة: الفهم. ؟