اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

رفعت يسري حامد

03 عضو مميز
  • Content Count

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

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

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

38 Excellent

عن العضو رفعت يسري حامد

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

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

  • Gender (Ar)
    ذكر
  • Job Title
    محامي
  • بلد الإقامة
    مصر
  • الإهتمامات
    vba الخاص ببرنامج الوورد

اخر الزوار

1,628 زياره للملف الشخصي
  1. معذرة يا شباب. لقد نسيت ووضعت هذا السطر بالخطأ . لأني قمت بعمل حلقة for التكرارية فأدت المطلوب .
  2. ممكن تكتب في المربع الحواري ٧ بدلا من ٥ كحل مؤقت ممكن حدث الخطأ لانك نسخت الكود مرتين بداخل المديول. اجعله واحدا فقط وقم بالتجربة مرة أخرى
  3. Sub فهرس_الأحاديث() ' ' فهرس_الأحاديث Macro ' ' Dim refaat As Double refaat = InputBox("اكتب عدد الإشارات المرجعية") Dim x As Double x = 1 ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _ 2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed With Selection.Tables(1) If .Style <> "شبكة جدول" Then .Style = "شبكة جدول" End If .ApplyStyleHeadingRows = True .ApplyStyleLastRow = False .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = False .ApplyStyleRowBands = True .ApplyStyleColumnBands = False End With Selection.TypeText Text:="الحديث" Selection.MoveRight Unit:=wdCell Selection.TypeText Text:="الصفحة" Selection.MoveRight Unit:=wdCell For x = 1 To refaat Selection.InsertCrossReference ReferenceType:="إشارة مرجعية", _ ReferenceKind:=wdContentText, ReferenceItem:="H" & x, InsertAsHyperlink:= _ True, IncludePosition:=False, SeparateNumbers:=False, SeparatorString:= _ " " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="إشارة مرجعية", _ ReferenceKind:=wdPageNumber, ReferenceItem:="H" & x, InsertAsHyperlink:=True _ , IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" " Selection.MoveRight Unit:=wdCell x = x + 1 Next End Sub
  4. يشترط لتقوم بعمل ذلك برمجيًا أن يكون إدخال الإشارات المرجعية بهذا النمط فليكن هذا المثال على فهرس الأحاديث. سوف نرمز للحديث الذي تم التحديد عليه في البحث بالرمز H إذًا سوف يكون تسلسل إدخال الإشارات المرجعية للأحاديث هكذا H1, H2, H3, H4 .............. وهكذا حتى نتنهي من كامل البحث . ويجب أن تكون على علم بآخر إدخال مرجعي قمت بعمله فليكن على سبيل المثال إجمالي الإشارات المرجعية للأحاديث 10 أحاديث على سبيل المثال . (يعني انتهيت من آخر حديث H10). سوف تقوم بنسخ الكود ولصقه في ال vba كما تعلم. ثم بعد تشغيل الكود اكتب هذا الرقم 10 بداخل المربع الحواري الذي سوف يظهر. ودع الكود يقوم بتنزيل الإشارات المرجعية. وهذا هو الكود:
  5. جدول.docx تقصد هكذا استبدال النقطة بفاصلة ام ماذا ؟
  6. الإشارة المرجعية خليها للآيات والأحاديث والآثار لكن العنوان الرئيسي والفرعي اجعله بالفهرسة العادية إدراج (جدول محتويات).
  7. هذا سوف يوضح لك بإذن الله تعالى example2.docx الطريقة السهلة هي: عن طريق إزالة علامة الصح من الارتباطات التشعبية. وطريقة التحديد لا بد أن تكون كما أشرت في الملف المرفق.
  8. الغموض سوف يزول إذا علمت بأني لم أقم بعمل إدراج فهرسة من الأساس ولكن فقط قمت بنسخ التعليمة التي أشرت لك عليها الخاصة بحقول toc ثم عمل لصق لهذه التعليمة في أسفل المستند ثم عمل تحديث ليظهر لك جدول المحتويات مع إمكانية التعديل بإضافة أنماط أو حذف أنماط بداخل التعليمة نفسها التي تجدها بين علامتين هكذا {toc...} على سبيل المثال. الغموض كله سوف يزول إذا استطعت إظهار حقل ال TOC الخاص بالجدول الذي ارسلته لك عن طريق كليك يمين ثم ظهار * ان لم تستطع التطبيق ولا زال الغموض في هذه النقطة قائمًا سأحاول الوثيق بفيديو بإذن الله تعالى
  9. لم أفهم ما المقصود. هل لا زالت المشكلة قائمة أم تم حلها بشكل مرضي ؟؟؟
  10. الطريقة مشروحة في الملف السابق المرفق. تجد كلمة شعريمين وشعريسار هي الأنماط المستخدمة الشطر الأول من البيت والشطر الثاني من البيت وهكذا نفس لباقي الأنماط مثل عنوان1 وعنوان2 وهكذا كما في الصورة المرفقة الحالية. الطريقة مشروحة في الملف السابق المرفق. تجد كلمة شعريمين وشعريسار هي الأنماط المستخدمة الشطر الأول من البيت والشطر الثاني من البيت وهكذا نفس لباقي الأنماط مثل عنوان1 وعنوان2 وهكذا وبعد تجميع الأبيات الشعرية أو أي فهرس بشكل عام تقوم بالتحديد على الفهرس وتختار تحويل النص إلى جدول باختيار علامة الجدولة تجده يتحول إلى جدول مقسوم عمودين
  11. الحل هو عملها يدويًا بحيث تنقل الشطر الثاني بجوار الشطر الأول بعد عمل إدراج جدول بجوار الشطر الأول من البيت بعض التفاصيل تجدهم في الملف المرفق. لكن المشكلة انه لا بد من عمل أنماط على ال 500 بيت . أو ابعتلي الملف وانا اعمله وارسله لك بإذن الله تعالى. هل غادر الشعراء من متردم.docx من عيوب هذه الطريقة انك لا تستطيع فهرسة الأبيات الشعرية الموجودة بالحواشي السفلية. اما لو أردت الفهرسة بشكل كامل فلا بد من طريقة الإشارة المرجعية .
  12. هذا نموذج مبسط هل هذا هو المقصود أم ماذا ؟ النموذج في المرفقات. هل غادر الشعراء من متردم.docx
  13. جزاك الله خيرًا عندي استفسار أريد البحث عن حرف كلمة أو كلمة أخرى في نفس الوقت بمعنى مثلاً أريد أن أبحث عن [محمد أو إبراهيم]
×
×
  • اضف...