اذهب الي المحتوي
أوفيسنا

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

عضو جديد 01
  • Content Count

    9
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 Neutral

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

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    باحث

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. الفكرة ببساطة: - أني حولت كل الكلمات المطلوبة الموجودة في بداية الفقرة إلى اللون الأحمر وجعلت بعدها * - جعلت كل فقرة تلقائي قبلها * - وبهذا أصبحت القائمة عبارة عن مقطعين يصلحان أن يكونا جدولا عند اعتبار علامة الجدولة هي (*) - ظللت النص كله وحولت النص إلى جدول مع علامة الجدولة (*) - فأصبح عندي عمودان أحدهما فيه (أبو، أم، ابن، بنو) والعمود الثاني فيه بقية الاسم الذي أوله هذه الكلمات، مع الكلمات الأخرى التي لا تبدأ بـ(أبو، أم، ابن، بنو) - رتبت الجدول على العمود الثاني، وبهذا لم تدخل الكلمات المطلوبة في الترتيب. - حولت مرة أخرى الجول إلى نص، فتكونت القائمة على الترتيب المطلوب. ملحوظة: لا بد أن تكون علامة الجدولة المخزنة (*) لأن الورد قد يكون مخزنا فيه علامة أخرى، وهنا الماكرو لن يشتغل على الوجه المطلوب. كما يجب أن نجعل في أول الملف (إنتر) حتى تكون علامة فقرة.
  2. هذا نموذج للقائمة اليمين قبل الترتيب، والأخرى بعد الترتيب، ونلاحظ فيها أن الكلمات المطلوب عدم اعتبارها في الترتيب ملونة باللون الأحمر: محمد بن علي أحمد بن محمد أحمد بن محمد أبو أسيد سعيد بن المسيب داود بن محمد أبو أسيد أم رويم أم رويم سعيد بن المسيب ابن عباس بنو سلمة ابن شهاب أم سلمة بنو سلمة ابن شهاب أم هانئ أبو صالح بنو ضبة بنو ضبة داود بن محمد ابن عباس أبو صالح محمد بن علي أم سلمة أم هانئ
  3. جزاكم الله خيرا أستاذ محمد على ردكم، لكني عملت هذا الماكرو، ونفع والحمد لله: 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
  4. الإخوة الكرام، هل هناك طريقة لترتيب قائمة أعلام فيها مثلا (محمد، علي، أبو شهبة، أم سلمة، ابن عباس) بحيث أتجاهل كلمة (أبو)، (أم)، (ابن) في الترتيب، فيأتي مثلا (أبو شهبة) في حرف (الشين) ، و(أم سلمة) في حرف (السين)، و(ابن عباس) في حرف (العين)؟
  5. ممكن تدخل على هذا الرابط: http://www.computer-wd.com/2016/04/search-inside-file-contents.html
  6. الإخوة الأفاضل، هل يمكن البحث في الورد عن مجموعة كلمات متفرقة، مثل (تبارك - الحمد - العالمين) مثلا عن طريق حروف البدل، أو أي طريقة أخرى؟
  7. الإخوة الأفاضل، هل يمكن البحث في الورد عن كلمة أولها (ال) وآخرها (فتحتان أو ضمتان أو كسرتان) عن طريق حروف البدل أو أي طريقة أخرى؟
  8. الإخوة الأفاضل خبراء الأوفيس، هل يمكن البحث في الأوفيس عن كلمة أولها (ال) وآخرها (ضمتان، أو فتحتان، أو كسرتان) باستخدام حروف البدل أو أي طريقة أخرى؟
×
×
  • اضف...