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

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

تمام، سلمت يداك.

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

أعزَّك الله أخانا الكريم، وقد أرفقت لك ملفين فيهما قوائم بكثير من الكلمات التي يكثر الخطأ فيها من كثير من المدخلين، وربما تمر على المصحح دون أن ينتبه لها، وذلك لكثرة ورودها. وهناك ملف آخر فيه عبارات شائعة تستخدم خطأ، أو ليست هي الأسلوب الأفصح. فلو أضيفت مثل هذه الكلمات في القائمة لكان فيها تنبيه للمصحح، حتى يراجعها، لا أقصد التغيير بصورة آلية، ولكن يكفي فقط الإشارة إلى أن هذا الموضع محل إشكال. * ملحوظة: كنت أرسلت إليك قائمة بحروف لا يمكن أن تجتمع في كلمة واحدة، وعندي أيضا قائمة بعلامات ضبط لا يمكن أن تتوالى، أو تجتمع، مثل (السكون بعدها سكون)، (شدة بعدها سكون)، (سكون بعده تنوين). فإن أحببت أن أرسلها لك، لتضيفها مثلا على قائمة التصحيح، بحيث يكون هناك إشارة للمصحح إلى احتمال وجود خطأ في هذا الموضع، أكون سعيدا بهذا. قواعد للتحرير.doc جدول كلمات خطأ وصواب.docx

تمام، بارك الله فيك، لكنك فتحت الباب لمسألة أخرى، وأرجو ألا أثقل عليك، وهي: أن هذه الطريقة في التحديد لا تُسجَّل في الماكرو، فهل من طريقة حتى يتم تسجيلها في الماكرو؟

نموذج فيه أقواس الآيات- أ شحادة.docx معذرة، هذا هو الملف.

هذا نموذج فيه أقواس عند استبدالها بشكل عام، تتغير أو كلمة في الآية. نموذج فيه أقواس الآيات- أ شحادة.docx

أما عن القائمة، فسوف أجمع ما عندي إن شاء الله وأرسله لك. وأما عن الأقواس، فإنها إذا تم استبدالها بأمر عام بالقوسين {} مثلا، فكثيرا ما يحدث خلل في نص الآية نفسه، حيث تتغير أول كلمة في الآية إلى كلمة أخرى.

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

بارك الله فيك أخانا العزيز، وزادك من فضله، فعلا إضافة ممتازة، وعندي رأي يخص الأقواس المستخدمة في القرآن الكريم: - لاحظت أن الإضافة تستخدم أقواسا معينة على الباحث أن يختار أحدها أثناء إجراء العملية، وهذه المشكلة تظهر مع القوس المزهر، لأن هناك أشكالا كثيرة مرتبطة بنوع الخط المستخدم، فهل يمكن إتاحة خانة أخرى لنسخ القوس المستخدم؟ - وهناك أمر آخر يخص الاستبدال المتعدد: هل يمكن استخراج قائمة الكلمات التي أدخلت في ملف، مع إمكانية إدراج قائمة على هيئة جدول -مثلا- فيه خانتان: إحداهما للخطأ والأخرى للصواب؟ لأني أعتبر هذه الميزة من أجمل الميزات المستخدمة في الإضافة، وكثير من الباحثين عندهم قوائم بهذه الأخطاء، فلو جمعت في ملف قابل للزيادة والحذف والتعديل، ثم تدرج مرة واحدة للإضافة، كان هذا أيسر على الباحث. جزاكم الله عنا خير الجزاء

تمام، بارك الله فيك، وإضافة البيان -بفضل الله- أكثر من رائعة، وفقكم الله.

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

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

حبيبنا الأستاذ مصطفى، أسعدني ردكم، وللعلم فإني قد استفدت كثيرا من مشاركاتك أنت والأستاذ شحادة، وغيركما من الإخوة الأعضاء، فأسأل الله أن يجعل هذا في ميزان حسناتكم. وبالفعل ملحوظتك بخصوص زيادة (ابن أبي) صحيحة، وقد زدتها مع (ابنة) ، (ابنة أبي)، وهذا الماكرو بعد هذه الإضافات: Sub ترتيبفيجدول() ' ' ترتيبفيجدول Macro 'ماكرو لترتيب قائمة أعلام أو قبائل في جدول مع عدم اعتبار أبو، ابن، أم، بنو في الترتيب ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Hidden = True With Selection.Find .Text = "ابن أبي" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = True .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "ابنة أبي" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchAlefHamza = True .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "ابن " .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchAlefHamza = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "ابنة " .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchAlefHamza = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "أبو " .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchAlefHamza = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "أم " .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchAlefHamza = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Hidden = True With Selection.Find .Text = "بنو " .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchAlefHamza = True End With 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:=wdArabicEgypt, SubFieldNumber:="فقرات", SubFieldNumber2:= _ "فقرات", SubFieldNumber3:="فقرات" Selection.Sort BidiSort:=False, IgnoreThe:=True, IgnoreKashida:=False, _ IgnoreDiacritics:=False, IgnoreHe:=False With Selection.Font .Name = "AAA GoldenLotus" .Size = 16 .Bold = False .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Spacing = 0 .Scaling = 100 .Position = 0 .Kerning = 0 .Animation = wdAnimationNone .SizeBi = 16 .NameBi = "AAA GoldenLotus" .BoldBi = False .ItalicBi = False .Ligatures = wdLigaturesNone .NumberSpacing = wdNumberSpacingDefault .NumberForm = wdNumberFormDefault .StylisticSet = wdStylisticSetDefault .ContextualAlternates = 0 End With Selection.MoveUp Unit:=wdLine, Count:=1 End Sub

حبيبنا الأستاذ شحادة.. أولا تحياتي لشخصكم الكريم.. ثانيا: لو كانت إحدى الكلمات المستثناة من الترتيب في وسط الاسم، لن يضر هذا، وسيبقى الترتيب صحيحا، وهذه صورة تجريبية للجدول: إبراهيم النخعي 80 أحمد بن محمد أبو علي 99 إسماعيل بن علية 79 أبو أسيد ابن أبي أدهم 55 داود بن علي أبو الفضل 99 ابن أبي الدم 44 زكريا بن إياس 100 أم سلمة 66 سيف الله خالد ابن الوليد 88 ابنة شاهين 77 صاحب الحق 101 بنو ضبة 102 ابنة أبي عامر 78 عبد الله بن عباس 22 ابن عمر 33 فاضل بن محمد 103 محمد بن مسلم أبو الزبير 55

هذا ماكرو لترتيب (فرز) أعلام أو قبائل في جدول مع عدم اعتبار كلمة (أبو، ابن، أم، بنو) بحيث يكون (ابن عباس) في حرف العين، (أبو بكر) في حرف الباء، (أم سلمة) في جرف السين، فهذا هو المنهج المتبع في ترتيب الأعلام في الفهارس: Sub ترتيبجدول() ' ' ترتيبجدول Macro 'ماكرو لترتيب الأعلام والقبائل مع عدم اعتبار كلمة أبو، أم، ابن، بنو في الترتيب ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Hidden = True With Selection.Find .Text = "أبو " .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchAlefHamza = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ابن " .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchAlefHamza = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "أم " .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchAlefHamza = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "بنو " .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchAlefHamza = True End With Selection.Find.Execute replace:=wdReplaceAll Selection.WholeStory Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend 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 With Selection.Font .name = "AAA GoldenLotus" .Size = 16 .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Spacing = 0 .Scaling = 100 .Position = 0 .Kerning = 0 .Animation = wdAnimationNone .SizeBi = 16 .NameBi = "AAA GoldenLotus" .BoldBi = False .ItalicBi = False End With Selection.MoveUp Unit:=wdLine, Count:=1 End Sub

أخانا العزيز/ شحادة، جزاكم الله خيرا على ما قدمته لإخوانك، ومن باب الإسهام في نشر الخير، قمت بعمل قائمة بالحروف التي لا يمكن أن تجتمع في كلمة واحدة، وإذا حدث ذلك فإنه يعني أن هناك خطأ في بنية الكلمة، أو أن هذه الكلمة غير عربية، وقد جمعتها في ماكرو، لأجريه على الملف قبل تصحيحه ليكتشف هذه الأخطاء. فإن رأيت أن تضيف هذا على إضافة البيان في قسم التصحيح، كان حسنا، هذا مجرد رأي، والأمر كما تراه، وهذه قائمة بالحروف من خلال الماكرو: ' حروف لا تجتمع With Selection.Find .Text = "س[شظ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ظ[صدذزسشحخثجصطغقظ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ص[ظثذ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ث[صث]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ص[ث]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ج[خ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "خ[ظغخ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ع[خحغعأ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "خ[غخ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ق[خج]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ذ[سشطغذ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ص[ذ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ط[ذسذزصظ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ز[س]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ط[ذزصظ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ع[أحخغع]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "غ[أجحخعغق]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ق[ج]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ه[حخصعغ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ح[ح]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "د[ز]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll * ملحوظة: عندي كذلك قائمة بأخطاء التشكيل المتكررة، إن أعجبك الأمر، تحياتي لشخصكم الكريم.

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

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

هي هي متاحة الآن؟

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

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

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

جزاكم الله خيرا أستاذ محمد على ردكم، لكني عملت هذا الماكرو، ونفع والحمد لله: Sub ترتيبأعلام() ' ' ترتيبأعلام Macro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Font.Color = wdColorRed With Selection.Find .Text = "^pابن " .Replacement.Text = "^pابن* " .Forward = True .Wrap = wdFindContinue .Format = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "^pأبو " .Replacement.Text = "^pأبو* " .Forward = True .Wrap = wdFindContinue .Format = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "^pأم " .Replacement.Text = "^pأم* " .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False With Selection.Find .Text = "^pبنو " .Replacement.Text = "^pبنو* " .Forward = True .Wrap = wdFindContinue .Format = True End With End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Font.Color = wdColorAutomatic Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p" .Replacement.Text = "^p*" .Forward = True .Wrap = wdFindContinue .Format = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.WholeStory WordBasic.TextToTable ConvertFrom:=3, NumColumns:=2, NumRows:=11, _ InitialColWidth:=wdAutoPosition, Format:=0, Apply:=1184, AutoFit:=0, _ SetDefault:=0, Word8:=0, Style:="شبكة جدول" Selection.Sort ExcludeHeader:=False, FieldNumber:="عمود 2", SortFieldType _ :=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, FieldNumber2 _ :="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _ wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _ wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _ wdSortSeparateByCommas, SortColumn:=False, CaseSensitive:=False, _ LanguageID:=wdArabicEgypt, SubFieldNumber:="فقرات", SubFieldNumber2:= _ "فقرات", SubFieldNumber3:="فقرات" Selection.Sort BidiSort:=False, IgnoreThe:=True, IgnoreKashida:=False, _ IgnoreDiacritics:=False, IgnoreHe:=False Selection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, _ NestedTables:=True Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "*" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll Selection.MoveUp Unit:=wdLine, Count:=1 End Sub

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