تحويل الأرقام (بين القوسين) إلى أرقام حواشي سفلية

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

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

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

سؤالي لو تكرمتم: كيف يمكن تحويل هذه الأرقام لتصبح حواشي سفلية مرتبطة مع توثيقها، علماً أن عدد الحواشي ما يقارب 1000 حاشية.

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

 

ملاحظة : تم تعديل المرفق فى مشاركة تالية

 

[برقش]

السلام عليكم

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

في خانة البحث:
(^2)\([0-9]@\)
في خانة الاستبدال:
(\1)

لا تنس تحديد "استخدام حروف البدل".

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

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

أشكر لكم اهتمامكم أستاذ برقش، دائماً بالميدان

أعتذر عن الخطأ بإرسال المرفق، مرفق مثال 2، الموجود به المشكلة، ولكن ما حدث معي في المثال الأول غريب نوعاً ما، ضغطت على خانة البحث والاستبدال ووضعت في خانة البحث (بحث عن أي رقم بين قوسين) واستبدالهم بحواشي سفلية، فظهرت النتيجة كما هو موجود بالمثال 1، حاولت تكرارها على الكتاب ولكن للأسف لم أنجح.

مرفق النموذج الموجود به المشكلة.

شاكراً لكم تواصلكم الدائم 

example2.rar

[برقش]

يبدو أن المسألة معقدة بسبب استعمال العلامات المخصصة custom marks وتستلزم استعمال الماكرو، وأنا لا خبرة لي بالماكرو.

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

أنا آسف لعدم قدرتي على المساعدة أكثر.

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

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

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

يعطيك العافية

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

الأستاذ/ برقش حفظه الله ورعاه

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

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

Sub CnvrtCstmFNs()
Dim FtNt As Footnote
For Each FtNt In ActiveDocument.Footnotes
  With FtNt
    With .Reference.FootnoteOptions
      .Location = wdBottomOfPage
      .NumberingRule = wdRestartContinuous
      .StartingNumber = 1
      .NumberStyle = wdNoteNumberStyleArabic
    End With
    .Reference.Footnotes.Add Range:=.Reference, Reference:=""
  End With
Next
End Sub

 

أشكر لك حُسن تعاونكم معنا

دمتم بخير

[محمد طاهر عرفه]

السلام عليكم

جميل أن المشكلة قد حلت ، و لكن صراحة لم افهم المشكلة تماما حتى الان

 

قرأت الملف قبل تعقيب الأخ برقش سريعا و لم افهم المطلوب على الفور ، و تركته لاعود له حين استطيع توفير وقت اكثر

و نشكر للأخ برقش مساهمته القيمة كالعادة و للأخ مصطفي طرح المشكلة و الحل 

و ليس متأكدا من اني فهمت المشكلة تماما من الحوار السابق

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

أيضا هل اقوم بحذف المرفق الاول و استبداله بالثاني ليكون الموضوع اوضح ؟ أم  هناك حاجة لاضافة شرح اضافي لتعم الفائدة من الموضوع ؟

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

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

حياك الله أستاذ محمد

 

2 ساعات مضت, محمد طاهر said:

هل اقوم بحذف المرفق الاول و استبداله بالثاني

يرجى حذف المرفق الأول.

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

أشكر لك اهتمامك أستاذ محمد، وللأخ الفاضل/ برقش على مساهمته.

يعطيكم العافية