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

الردود الموصى بها

قام بنشر

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

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

مطلوب: فهرسة الكترونية للأبيات الشعرية

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

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

آمل المساعدة لطفاً

دمتم بخير

قام بنشر

وعليكم السلام.. عندك استعداد تنسخ الأبيات مرة أخرى؟

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

صناعة كود الفهرسة: ستختار من القائمة مراجع ثم وضع علامة الإدخال

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

 

وبعد عمل الكود ستظلله وتختار إدراج + الأجزاء السريعة + نص تلقائي وتضغط على حفظ التحديد إلى معرض النصوص التلقائية

ثم من علامة التبويب تختار ملف + خيارات + تخصيص الشريط وتضغط على زر تخطيط 

وتختار من القائمة الأولى كتل الإنشاء وستجد في القائمة المقابلة ظهر فيها نص الكود الذي أضفناه للنصوص التلقائية لتختاره (انظر الصورة)

ثم تدرج في خانة مربع مفتاح الاختصار الجديد أي اختصار تريد وليكن مثلا F3 يعني تضغط على الكيبورد زر F3

ثم تضغط زر تعيين ثم موافق .. وبهذا تكون قد انتهيت من اختصار وضع الكود بضغطة واحدة وهي F3

 

مرحلة الفهرسة

ستظلل بيت الشعر وتضغط ctrl + C لنسخه ثم تأتي في نهايته وتضغط F3 لإدراج الكود ثم تضغط مرتين فوق الخط ــــــــــــــــــــــــ لتظلله ثم تضغط ctrl + V للصق بيت الشعر... هذه الحركة لن تستغرق ثانيتين

وتكرر هذه الخطوة مع كل بيت شعر

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

.. العملية ليست بصعبة واعذرني إن أطلت الشرح ولكن لأبين الفكرة.. مع تحياتي

 

--1.jpg

--2.jpg

قام بنشر

بارك الله فيك أخي العزيز عبدالرحمن هاشم

سلمت يداك على الشرح، قمت بالمحاولة، والأمور تمام.

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

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

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

قام بنشر

سؤال ثاني ممكن يحل المشكلة

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

دمتم بخير

قام بنشر

نعم بإذن الله ممكن.. حمل هذه الأداة من هنا

وقمت بتثبيتها وبعدها شغل ملفك الوورد ستجدها أضيفت في القائمة باسم KUTOOL 

اختر tables + select tables وسيقوم بتحديد كافة الجداول الموجودة بالملف

xdoc-select-a-table-with-a-click-0.png.pagespeed.ic.45YJpegZaz.png

قام بنشر

الأخ الفاضل/ عبدالرحمن هاشم  المحترم

بارك الله فيكم، تم نسخ جميع الجداول مرة واحدة.

معلومة للاستفادة لمن لا يعرفها:

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

الشكر الجزيل للأستاذ/ عبدالرحمن هاشم ولكل القائمين على هذا الصرح العظيم

دمتم بعز

قام بنشر
12 ساعات مضت, رفعت يسري حامد said:

هذا نموذج مبسط هل هذا هو المقصود أم ماذا ؟

 

سلمت يمينك، وعلى جهودكم المباركة

تقريباً وصلنا للحل، لكن المطلوب الشطرين بنفس الصف، وليس كل شطر شعري بصف منفصل.

وإذا تكرمت علينا الطريقة التي قمت بعمل هذا العمل الرائع.

دمتم بخير

قام بنشر (معدل)

الحل هو عملها يدويًا بحيث تنقل الشطر الثاني بجوار الشطر الأول بعد عمل إدراج جدول بجوار الشطر الأول من البيت

بعض التفاصيل تجدهم في الملف المرفق.

لكن المشكلة انه لا بد من عمل أنماط على ال 500 بيت .

أو ابعتلي الملف وانا اعمله وارسله لك بإذن الله تعالى. 

هل غادر الشعراء من متردم.docx

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

اما لو أردت الفهرسة بشكل كامل فلا بد من طريقة الإشارة المرجعية .

تم تعديل بواسطه رفعت يسري حامد
قام بنشر

العمل أكثر من رائع، وهذا ما أبحث عنه

لكن ما أريد أن أتعلمه كيف قمت بعمل فهرسة الكترونية داخل جدول.

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

الشيء المهم والذي يفيدني في عملي كيف قمت بوضعهم داخل جدول بطريقة الكترونية (معلومة في غاية الأهمية).

أشكر لك اهتمام أخي الفاضل

دمتم بعز

قام بنشر

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

 

التعليمة.jpg

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

 

قام بنشر (معدل)

أرجو الاطلاع لطفاً على مشاركة لي سابقاً بخصوص الموضوع نفسه

https://www.officena.net/ib/topic/84485-%D8%A5%D8%AF%D8%B1%D8%A7%D8%AC-%D9%81%D9%87%D8%B1%D8%B3-%D8%A7%D9%84%D9%85%D8%AD%D8%AA%D9%88%D9%8A%D8%A7%D8%AA-%D8%AF%D8%A7%D8%AE%D9%84-%D8%AC%D8%AF%D9%88%D9%84/?tab=comments#comment-540803

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

تم تعديل بواسطه مصطفى شاهين
قام بنشر
3 ساعات مضت, رفعت يسري حامد said:
لم أفهم ما المقصود. هل لا زالت المشكلة قائمة أم تم حلها بشكل مرضي ؟؟؟

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

لم أستطع وضع فهرس المحتويات داخل جدول.

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

لا أعرف أين الخطأ بالتطبيق.

لاطلاعكم لطفاً

22.rar

1.JPG

2.JPG

قام بنشر (معدل)

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

الشكل 1: المثال المطبق من قبلكم، لاحظ أنني عند تحويل النص لجدول يظهر لي عدد الأعمدة 2، وعدد الصفوف 8.

الشكل 2: المثال المطبق من قبلي، عدد الأعمدة 1 وعدد الصفوف 1 أيضاً.

لا أعرف أين المشكلة في التطبيق

سامحني بكثرة أسئلتي

1.PNG

2.PNG

تم تعديل بواسطه مصطفى شاهين
قام بنشر (معدل)

 

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

مع إمكانية التعديل بإضافة أنماط أو حذف أنماط بداخل التعليمة نفسها التي تجدها بين علامتين هكذا {toc...}  على سبيل المثال. 

الغموض كله سوف يزول إذا استطعت إظهار حقل ال TOC الخاص بالجدول الذي ارسلته لك عن طريق كليك يمين ثم ظهار 

* ان لم تستطع التطبيق ولا زال الغموض في هذه النقطة قائمًا سأحاول الوثيق بفيديو بإذن الله تعالى 

تم تعديل بواسطه رفعت يسري حامد
قام بنشر (معدل)

الأستاذ/ رفعت يسري حامد المحترم

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

مرفق ملف الوورد المطبق عليه المثال.

دمتم بخير

 

1.PNG

2.PNG

3.PNG

4.png

5.PNG

6.PNG

7.PNG

example.zip

تم تعديل بواسطه مصطفى شاهين
قام بنشر
في ٣‏/١٠‏/٢٠١٨ at 12:12, رفعت يسري حامد said:

 

هذا سوف يوضح لك بإذن الله تعالى

example2.docx

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

  • Like 1
  • Thanks 1
قام بنشر

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

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

بارك الله فيكم، وإن شاء الله هذا يكون يكون في ميزان حسناتكم.

سامحني غلبتك كثير بأسئلتي

شكراً خاص لكم أخ رفعت، ولهذا الصرح العظيم منتدى أوفيسنا

دمتم بود

  • 1 year later...
قام بنشر

موضوع قيِّم للغاية، استفدت منه كثيراً، فألف شكر للسائل وللمجيب.

وللإفادة، يمكن تحديد كل الجداول الموجودة ضمن المستند من خلال هذا الماكرو:

  Dim objDoc As Document
  Dim objTable As Table
 
  Application.ScreenUpdating = False
 
  'Initialization
  Set objDoc = ActiveDocument
 
  'Set each table in document as a range editable to everyone.
  With objDoc
  For Each objTable In .Tables
    objTable.Range.Editors.Add wdEditorEveryone
  Next
  objDoc.SelectAllEditableRanges wdEditorEveryone
  objDoc.DeleteAllEditableRanges wdEditorEveryone
  Application.ScreenUpdating = True
  End With

 

  • Like 1
  • 8 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information