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

هذا ماكرو لترتيب (فرز) أعلام أو قبائل في جدول مع عدم اعتبار كلمة (أبو، ابن، أم، بنو) بحيث يكون (ابن عباس) في حرف العين، (أبو بكر) في حرف الباء، (أم سلمة) في جرف السين، فهذا هو المنهج المتبع في ترتيب الأعلام في الفهارس: 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

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

ممكن تدخل على هذا الرابط: http://www.computer-wd.com/2016/04/search-inside-file-contents.html

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

ما شاء الله، تمام، سلمت يداك، وبارك الله فيك.❣️❣️

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

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