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

[شحادة بشير]

8 ساعات مضت, مصطفى شاهين said:

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

يعطيك العافية أخي العزيز شحادة وبارك الله فيك على مجهوداتكم الطيبة

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

هذا للعلم لطفاً

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

أخي الحبيب مصطفى:

1- الكود لا يخرج خارج عمود الجدول نهائياً، حتى لو جربت أن تضع مؤشر الفأرة خارج الجدول فلن تتم العملية، العملية تجري ضمن دائرة الجدول فقط، ولا علاقة لها بما هو خارج الجدول.

2- الكود لا يقوم بالحذف، بل يقوم فقط بإخفاء النص، وبعد الانتهاء من الترتيب يظهر النص المخفي، فكيف تم الحذف عندك؟!

3- رغم ذلك، جربت الآن ولم أصادف أي مشكلة؛ لذا أرجو من حضرتك التكرم بإرفاق الملف الذي حدثت فيه المشكلة، مع توضيح ما الذي فعلته حتى ظهرت المشكلة عندك؟

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

[شحادة بشير]

في ٣٠‏/١١‏/٢٠٢٠ at 10:08, أبو عاصم المصري said:

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

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

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

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

 

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

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

[مصطفى شاهين]

منذ ساعه, شحادة بشير said:

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

 

بارك الله فيك أ. شحادة

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

هل يوجد حل لذلك؟

مع الاحترام والتقدير

[شحادة بشير]

منذ ساعه, مصطفى شاهين said:

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

هل يوجد حل لذلك؟

مع الاحترام والتقدير

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

 

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

[مصطفى شاهين]

51 دقائق مضت, شحادة بشير said:

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

أشكر لك اهتمامك وتواصلك الدائم

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

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

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

[شحادة بشير]

[الجديد في التحديث 4.60]:
في خاصية بحث في ملفات متعددة، أصبح بالإمكان نسخ جزء محدد من النص من أي نتيجة من نتائج البحث.

[شحادة بشير]

[الجديد في التحديث 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.

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

[شحادة بشير]

[الجديد في التحديث 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.

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

أخانا العزيز/ الأستاذ شحادة...

قابلتني مشكلة في الترقيم، فلاحت لي فكرة إضافة ميزة جديدة على إضافتك الرائعة:

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

والمطلوب: إيجاد آلية لترقيم مجموعة أرقام متتالية، سواء كان بينها فاصلة، أو غير ذلك، أو كانت بين قوسين، أو بلا أقواس.

وهذه صورة الأرقام بعد ترتيبها:

تبين الحقائق شرح الکنز: 1/ 76، 89، 93، 99، 107، 117، 119، 124، 130128، 135، 137، 140، 141، 143، 144، 148، 154، 162، 175، 178، 185، 188، 189، 192، 196، 197، 218، 230، 231، 233، 241، 244، 250، 251، 252، 255، 256، 257، 260، 261، 262، 263، 264، 271، 274، 277، 279، 280، 281، 285، 287، 289، 293، 299، 304، 306، 309، 312، 313، 325، 326، 335، 338، 342، 346، 347، 348، 362، 369، 370، 371، 372، 373، 375، 376، 377، 379، 380، 383، 386، 389، 396، 397، 398، 401، 437، 449، 454، 466، 467، 490، 494 - 2/ 7، 8، 10، 21، 33، 35، 36، 39، 41، 46، 50، 52، 54، 55، 56، 58، 59، 60، 61، 62، 66، 74، 75، 77، 81، 82، 87، 89، 91، 94، 95، 96، 97، 101، 103، 102، 104، 110، 111، 113، 114، 116، 117، 121، 125، 126، 134، 143، 144، 149، 152، 162، 164، 166، 168، 169، 172، 174، 175، 188، 189، 193، 196، 197، 199، 201، 204، 205، 206، 207، 209، 212، 213، 214، 217، 219، 222، 225، 226، 227، 228، 235، 238، 239، 240، 241، 242، 249، 250، 251، 252، 253، 254، 256، 259، 261، 262، 264، 265، 266، 270، 276، 282، 305، 306، 308، 341، 366، 367، 410، 432، 440، 442، 444، 529، 535

 

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

حبيبنا الأستاذ شحادة، أنار الله قلبك..

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

لذا رأيت أن أعرض عليك الماكرو، لما لك من خبرة في هذا المجال، ويمكن أن تضيف خاصية ترتيب الشعر إلى الإضافة، والشرط في هذا الماكرو:

1- أن يكون الشطران موجودين.

2- عدم وجود أي شيء إلا الجدول.

3- عدم وجود مسافة قبل الشطر الأول.

4- يكون الشطر الأول والثاني في حقلين متصلين، يعني لا يكون بينهما فاصل.

وهذا هو الماكرو:

Sub شعر3()
'
' شعر3 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
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    
  For i = 1 To 1000
    Selection.Find.Execute replace:=wdReplaceAll
    Selection.MoveRight Unit:=wdCell
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
    Selection.Copy
    Selection.HomeKey Unit:=wdRow, Extend:=True
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="××"
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.MoveLeft Unit:=wdWord, Count:=1
    Selection.TypeBackspace
    Selection.HomeKey Unit:=wdLine
    Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    If Selection.Font.Underline = wdUnderlineNone Then
        Selection.Font.Underline = wdUnderlineSingle
    Else
        Selection.Font.Underline = wdUnderlineNone
    End If
    Selection.Find.ClearFormatting
    Selection.Find.Font.Underline = wdUnderlineSingle
    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.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=3
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Cut
    Selection.MoveRight Unit:=wdWord, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Cut
    Selection.HomeKey Unit:=wdLine
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Count:=1, name:=""
    Selection.Find.ClearFormatting
    Selection.Find.Font.Underline = wdUnderlineSingle
    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

If Selection.EndKey = fals Then

Exit For
End If

Next i
    Selection.Tables(1).Select
    Selection.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:= _
        True
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^pا"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .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
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^pو"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .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
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^pى"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .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
    Selection.WholeStory
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    WordBasic.TextToTable ConvertFrom:=1, NumColumns:=4, NumRows:=27, _
        InitialColWidth:=wdAutoPosition, Format:=0, Apply:=1184, AutoFit:=1, _
        SetDefault:=0, Word8:=0, Style:="شبكة جدول"
    Selection.HomeKey Unit:=wdStory
    Selection.Sort ExcludeHeader:=False, FieldNumber:="عمود 1", SortFieldType _
        :=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, FieldNumber2 _
        :="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _
        wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
        wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _
        wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _
        :=wdArabic, SubFieldNumber:="فقرات", SubFieldNumber2:="فقرات", _
        SubFieldNumber3:="فقرات"
    Selection.Sort BidiSort:=False, IgnoreThe:=True, IgnoreKashida:=True, _
        IgnoreDiacritics:=False, IgnoreHe:=False
    Selection.HomeKey Unit:=wdStory
    Selection.RtlPara
    Selection.Find.ClearFormatting
    Selection.Find.Font.Underline = wdUnderlineSingle
    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
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Font.Hidden = True
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Hidden = False
    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

 Selection.WholeStory
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    With Selection.Borders(wdBorderTop)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderLeft)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderBottom)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderRight)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderHorizontal)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    With Selection.Borders(wdBorderVertical)
        .LineStyle = Options.DefaultBorderLineStyle
        .LineWidth = Options.DefaultBorderLineWidth
        .Color = Options.DefaultBorderColor
    End With
    Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)
    Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)
    Selection.MoveUp Unit:=wdLine, Count:=1

MsgBox " تم ترتيب الجدول يا عم الشيخ، تحياتي لفضيلتك"
End Sub

[شحادة بشير]

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

🙂

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

فكرة الماكرو:

1- إخفاء الرموز (؟ ، ! ، )، (، ») لأنها تحدث مشكلة للماكرو.

2- الذهاب إلى آخر الشطر الثاني.

3- نسخ آخر كلمة في الشطر الثاني.

4- لصقها قبل أول كلمة في الشطر الأول.

5- تغيير تنسيق هذه الكلمة إلى مسطَّرة.

6- الإبقاء على ثلاثة حروف من الكلمة.

7- نقل الحرف الثالث مكان الأول، والأول مكان الثالث.

8- إذا كان الحرف الأول من الكلمة (ا أو و أو ى) حذفت هذه الحروف الثلاثة من أولها.

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

10- نحذف كل الكلمات المسطرة من الجدول.

11- إظهار الرموز المخفية.

وبهذه يكون الترتيب قريبا جدا من المطلوب، وعلى الباحث أن يتدارك بعض الفوات.

بارك الله فيكم، وفي جهدكم، ونفع بكم.

[شحادة بشير]

[الجديد في التحديث 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

[مصطفى شاهين]

9 ساعات مضت, شحادة بشير said:

[الجديد في التحديث 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

ما شاء الله عنك وعن إنجازاتك الطيبة، بارك الله على اللفتة الجميلة، حقيقة مبدع

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

وفقكم الله أخي الحبيب

تم تعديل مارس 7, 2021 بواسطه مصطفى شاهين

[شحادة بشير]

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

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

[مصطفى شاهين]

2 ساعات مضت, شحادة بشير said:

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

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

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

حبيبنا الغالي الأستاذ شحادة، حفظك الله...

عندي بعض الاقتراحات بخصوص الجداول:

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

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

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

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

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

 

 

[شحادة بشير]

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

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

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

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

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

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

 

 

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

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

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

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

 

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

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

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

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

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

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

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

هند بنت عتبة

6/11

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

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

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

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

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

[شحادة بشير]

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

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

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

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

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

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

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

هند بنت عتبة

6/11

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

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

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

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

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

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

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

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

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

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

[شحادة بشير]

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

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

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

آمين وإياكم

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

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

شكر الله لك أخي الكريم..

المسألة أنني أحتاج هذا الأمر لتنفيذه في بعض الماكروهات التي أحتاجها.

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

وليس شرطا في هذه الخاصية أن تكون النتيجة 100% ، إذ لا بد من تدخل الباحث لمراجعة الترتيب.

ويكفي فقط أن يوضع كل بيت في قافيته، وأن ترتب القافية داخليا.

شعر الروض الأنف.docx

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

[شحادة بشير]

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