المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : من يصنع لنا هذه الماكروهات في الوورد ؟


أبو عمير اليماني
08-12-12, 11:09 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته، وبعد:
هل يستطيع أحد الخبراء في الوورد أن يُنشئ (ماكروهاً) يقوم بحذف المسافة البيضاء التي قد تحصل -لسبب ما- في بداية كل فقرة من فقرات المستند أو في بعضها ؟
وكذلك لو كان هناك أكثر من مسافة بيضاء في بداية تلك الفقرات، إن أمكن ذلك.
بحيث يشمل هذا الماكرو جميع المستند دون تكرار تشغيله.

- ومن عنده بعض الماكروهات المفيدة فلْـيُتحفنا بها.

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

أبو عمير اليماني
10-12-12, 12:06 AM
كذلك:
ماكرو لإضافة (فاصل صفحات) في نهاية كل صفحة من صفحات المستند مهما بلغ عدد الصفحات دون تكرار تشغيل الماكرو.

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

أبو أكرم الحلبي
10-12-12, 02:32 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته، وبعد:
هل يستطيع أحد الخبراء في الوورد أن يُنشئ (ماكروهاً) يقوم بحذف المسافة البيضاء التي قد تحصل -لسبب ما- في بداية كل فقرة من فقرات المستند أو في بعضها ؟
وكذلك لو كان هناك أكثر من مسافة بيضاء في بداية تلك الفقرات، إن أمكن ذلك.
بحيث يشمل هذا الماكرو جميع المستند دون تكرار تشغيله.


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

كذلك:
ماكرو لإضافة (فاصل صفحات) في نهاية كل صفحة من صفحات المستند مهما بلغ عدد الصفحات دون تكرار تشغيل الماكرو.


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

أبو عمير اليماني
12-12-12, 01:40 AM
جزاك الله خيراً أخي أبا أكرم الحلبي
هذا هو طلبك في المرفقات
أعانك الله تعالى وسددك

أبو أكرم الحلبي
13-12-12, 01:02 AM
السلام عليكم ورحمة الله وبركاته
بالنسبة لماكرو فاصل الصفحات طلب بالمرفقات
بالنسبة للمسافة البيضاء هنالك مشكلة :
كيف سيتم التمييز بين المسافات البيضاء الموجودة أول الأسطر والمسافات البيضاء الموجود في ثنايا الأسطر ؟
هذه حقيقة مشكلة ليست بالسهلة

أبو عمير اليماني
13-12-12, 09:16 AM
وعليكم السلام ورحمة الله وبركاته.
ما شاء الله، اللهم بارك.
تمت تجربة ماكرو فاصل الصفحات بنجاح تام.
أحسن الله إليك -أخانا الكريم أبا أكرم بسام الشيخ الحلبي- ونفع الله بك.

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

هل هناك مراجع (كتب) أو برامج مفيدة في هذا الباب على الشبكة؟

بالنسبة لِماكرو حذف المسافة البيضاء أول كل فقرة من فقرات المستند إن وُجدت:
أليس من الممكن إنشاء الماكرو على أساس أن شارة الكتابة تنتقل إلى بداية كل فقرة ثم يتم حذف مسافة بيضاء واحدة فقط بداية الفقرة -إن وُجدت- ثم الفقرة التالية، وهكذا. وإن لم توجد فلا يتم الحذف؛ حتى لا يُحذف الحرف الأول من الفقرة؟

أرجو ألا أكون أثقلتُ عليك.
وما على المحسنين من سبيل.

أبو أكرم الحلبي
14-12-12, 12:40 AM
استفهام:
أظن أنه لا يمكن إنشاء ماكرو فاصل الصفحات -المُرفق في مشاركتك السابقة- عن طريق الوورد نفسه من أيقونة (تسجيل ماكرو)، أليس كذلك؟
حيث أنه يظهر فرق بين طريقة تكوين الماكرو المُنشأ من الوورد نفسه وبين الماكرو الذي قُمتَ بإنشائه من عندك.
السلام عليكم ورحمة الله وبركاته
الماكرو عبارة عن إجراء يقوم بمهمة ما
وحتى يحقق كل ما تريده يجب أن تقوم بالتعديل عليه يدوياً
والحمد لله لدي خبرة متواضعة بالفيجوال بيسك
تجعل لدي القدرة على التعامل مع محرر الفيجوال بيسك الخاص بالوورد أو الأكسيس أو الإكسيل

هل هناك مراجع (كتب) أو برامج مفيدة في هذا الباب على الشبكة؟
هنالك منتدى أوفيسنا وهو الأول في مجاله :
http://www.officena.net/ib
لكن لا أخفيك قلما تجد من يهتم بمحرر الفيجوال بيسك المرفق مع الوورد بسبب تعقيداته
وبسبب وجود تنسيقات كثيرة تغنيك عن ذلك
أغلب المراجع تنصب على الإكسيل أو الأكسيس
بالنسبة لِماكرو حذف المسافة البيضاء أول كل فقرة من فقرات المستند إن وُجدت:
أليس من الممكن إنشاء الماكرو على أساس أن شارة الكتابة تنتقل إلى بداية كل فقرة ثم يتم حذف مسافة بيضاء واحدة فقط بداية الفقرة -إن وُجدت- ثم الفقرة التالية، وهكذا. وإن لم توجد فلا يتم الحذف؛ حتى لا يُحذف الحرف الأول من الفقرة؟
هذا سيزيد الأمر تعقيداً !!..
تخيل أن المستند مؤلف من عشرات الصفحات
أيضاً قد تكون المسافة البيضاء في أول الفقرة موجودة في مكان واحد أو في مكانين أو أكثر
المسألة تحتاج لإجراء منظّم ومركّز وسريع
وأخيراً اسمي شحادة بشير وليس بسام (ابتسامة)

السباعي
14-12-12, 04:13 AM
بالنسبة للمسافة البيضاء هنالك مشكلة :
كيف سيتم التمييز بين المسافات البيضاء الموجودة أول الأسطر والمسافات البيضاء الموجود في ثنايا الأسطر ؟
هذه حقيقة مشكلة ليست بالسهلة


استفسار
ألا يمكن الاستعانة بالتعبيرات القياسية في إنشاء الماكرو؟
أي اشتراط أن تكون المسافة البيضاء في بداية السطر

فمثلا في حالة استعمال خاصية البحث والاستبدال
يمكن حذف كل مسافة بيضاء موجودة بأول السطر وذلك بكتابة العبارة الآتية
^p^32
في خانة البحث

والعبارة الآتية في خانة الاستبدال
^l

أبو عمير اليماني
14-12-12, 10:02 AM
جزاكما الله خيراً ونفع الله بكما

وأخيراً اسمي شحادة بشير وليس بسام

الأخ أبا أكرم.. أعتذر عن خطئي في اسمك
تولَّد هذا الخطأ عن خطإٍ آخر قبله؛ حيث أني ظننتُ أن بريد الأخ بسام الشيخ هو بريدك؛ فاقتبستُ منه الاسم ونسبتُه إليك خطأً
وكان ذلك الاقتباس من الكتاب الإلكتروني المتضمن لمشاركات الملتقى، وهو في الشاملة.

فمثلا في حالة استعمال خاصية البحث والاستبدال
يمكن حذف كل مسافة بيضاء موجودة بأول السطر وذلك بكتابة العبارة الآتية
^p^32 في خانة البحث والعبارة الآتية في خانة الاستبدال ^l

وجدتُ في ذلك بُغيتي؛ وقد تم حذف مسافة بيضاء واحدة فقط في بداية كل فقرة، لكن حدث هناك مشكلة، وهي:
أن علامات الفقرات التي تكون في نهاية كل فقرة -والتي تميِّز الفقرات عن بعضها- تحوَّلتْ إلى امتدادات منعكسة، وهذه الامتدادات تؤثر على تنسيق المستند كما هو معلوم.

ثم توصلتُ بعد تكرار التجربة -ومستفيداً من مشاركة الأخ السباعي- إلى أنه عند استبدال العبارة (^p^w) بالعبارة (^l) يتم حذف كل مسافة بيضاء في بداية الفقرات ولو تعددت المسافات البيضاء، وهذا مرادي، ولله الحمد والمنة.
لكنْ لا تزال نفس المشكلة السابقة قائمة.

ثم بعد ذلك -وبعون الله تعالى- وجدتُ أن المراد يتم -دون المشكلة السابقة- عند استبدال العبارة (^p^w) بالعبارة (^p)؛ فيتم بذلك حذف كل المسافات البيضاء في بداية الفقرات -ولو تعددت تلك المسافات- مع بقاء علامات الفقرات كما هي.

وهذا هو الماكرو المُعد لذلك في المرفقات.

والحمد لله رب العالمين.

أبو أكرم الحلبي
14-12-12, 11:26 AM
السلام عليكم ورحمة الله وبركاته
شكراً للأخ السباعي على لفتته المميزة
الحمد لله أن المشكلة الثانية تم حلها أخي العزيز أبا عمير اليماني
بالنسبة للماكرو الخاص بحذف المسافات البيضاء :
ليتك تحمل الماكرو المرفق المعدل من قبلي
لأن الماكرو الخاص بك إن كان المؤشر في وسط المستند فلن يقوم بحذف المسافات الموجودة قبله في أول المستند
ستجد أنني أضفت لك لمسة يقوم من خلالها الماكرو بحذف المسافات من بداية المستند ثم يعود المؤشر للمكان الذي كان فيه

السباعي
14-12-12, 05:04 PM
بارك الله فيكما وحفظكما الله تعالى.


- ومن عنده بعض الماكروهات المفيدة فلْـيُتحفنا بها.


اقتراح جميل أن تُجمَّع الماكروات المفيدة والنافعة في هذه الصفحة.

أبو عمير اليماني
14-12-12, 07:59 PM
وعليكم السلام ورحمة الله وبركاته.
جزاكما الله خيراً.

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

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

أحسن الله إليكم.

السباعي
15-12-12, 12:25 AM
الأخ السباعي..
هل أجد عندك قائمة بالرموز أو التعبيرات القياسية وأسمائها المستخدمة في خاصية البحث والاستبدال في الوورد؟
أحسن الله إليكم.


بارك الله فيكم.

كنتُ حملت سابقا بعض المقالات من الشبكة التي تطرقت للتعبيرات القياسية ببرنامج الوورد وأوردتْ قائمة بالتعبيرات مع الشرح ، ولكن كلها باللغة الفرنسية، فالوورد عندي باللغة الفرنسية.

ومن تلك المقالات ما يلي:
باللغة الفرنسية
http://sepia.developpez.com/office/word/rechercherremplacer/

من موقع شركة مايكروسوفت (باللغة الفرنسية ولكن يمكن البحث عن نفس المقال باللغة العربية أو الإنجليزية)
http://office.microsoft.com/fr-fr/word-help/rechercher-et-remplacer-du-texte-ou-d-autres-elements-HA001230392.aspx

أبو عمير اليماني
17-12-12, 10:20 AM
السلام عليكم ورحمة الله وبركاته.

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

وهذا مثال للمطلوب:

لاَحَ شَيْبُ الرَّأْسِ مِنِّي فَاتَّضَحْ
بَعْدَ لَهْوٍ وَشَبَابٍ وَمَرَحْ
فَلَهَوْنَا وَفَرِحْنَا ثُمَّ لَمْ
يَدَعِ المَوْتُ لِذِي اللُّبِّ فَرَحْ
يَا بَنِي آدَمَ صُونُوا دِينَكُمْ
يَنْبَغِي لِلدِّينِ أَنْ لاَ يُطَّرَحْ
واحْمَدُوا اللهَ الَّذِي أَكْرَمَكُمْ
بِنَذِيرٍ قَامَ فِيكُمْ فَنَصَحْ
بِخَطِيبٍ فَتَحَ اللهُ بِهِ
كُلَّ خَيْرٍ نِلْتُمُوهُ وَشَرَحْ

فيصير بهذا الشكل:

لاَحَ شَيْبُ الرَّأْسِ مِنِّي فَاتَّضَحْ ... بَعْدَ لَهْوٍ وَشَبَابٍ وَمَرَحْ
فَلَهَوْنَا وَفَرِحْنَا ثُمَّ لَمْ ... يَدَعِ المَوْتُ لِذِي اللُّبِّ فَرَحْ
يَا بَنِي آدَمَ صُونُوا دِينَكُمْ ... يَنْبَغِي لِلدِّينِ أَنْ لاَ يُطَّرَحْ
وَاحْمَدُوا اللهَ الَّذِي أَكْرَمَكُمْ ... بِنَذِيرٍ قَامَ فِيكُمْ فَنَصَحْ
بِخَطِيبٍ فَتَحَ اللهُ بِهِ ... كُلَّ خَيْرٍ نِلْتُمُوهُ وَشَرَحْ

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

أبو عمير اليماني
29-12-12, 01:38 PM
السلام عليكم ورحمة الله وبركاته.

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

جزاكم الله خيراً وبارك فيكم.

أبو أكرم الحلبي
30-12-12, 08:04 PM
وعليكم السلام ورحمة الله وبركاته
طلبك بالمرفقات ولا تنسانا من دعاءك

أبو عمير اليماني
31-12-12, 08:16 AM
تمت العملية بنجاح.
سُررتُ جداً بصنعك.
أكرمك الله -أخانا أبا أكرم- وأدام عليك السرور في الدارين.
وأدخلك برحمته في عباده الصالحين.

أبو عمير اليماني
31-12-12, 10:42 AM
السلام عليكم ورحمة الله وبركاته.

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

فهل بالإمكان جعل الماكرو مستمراً إلى نهاية العملية دون تكرار التشغيل له لكل بيت؟

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

أعانكم الله، وجزاكم الله خيراً.

أبو أكرم الحلبي
01-01-13, 04:55 AM
وعليكم السلام ورحمة الله وبركاته
أسأل الله تعالى أن يستجيب دعاءك ولك مثل ذلك

تم تعديل ماكرو ترتيب أبيات الشعر ليكون مستمراً إلى نهاية العملية دون تكرار التشغيل له لكل بيت

أبو عمير اليماني
01-01-13, 08:15 AM
شكر الله لك -أخانا أبا أكرم- وحفظك الله.
تمَّ المراد ولا أدري كيف أشكرك على صنيعك!

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

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

أبو أكرم الحلبي
02-01-13, 03:25 PM
السلام عليكم ورحمة الله وبركاته
وضعت لك شرحاً فلاشياً بالمرفقات ..
لا تنسانا من دعاءك

أبو عمير اليماني
03-01-13, 01:26 AM
ما شاء الله، بارك الله فيك.
شرح واضح ومفيد.
أحسن الله إليك، وأجزل الله لك المثوبة، ورزقك الله مُناك من الخير في الدارين.
إنه سميع عليم كريم.

أبو حمزة القاهري
18-04-13, 07:51 AM
السلام عليكم ورحمة الله وبركاته
وضعت لك شرحاً فلاشياً بالمرفقات ..
لا تنسانا من دعاءك

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

أبو حمزة القاهري
21-04-13, 04:29 AM
يا أبا أكرم جزاك الله خيرًا وبارك الله فيك .......
الملف معطوب أرجو رفعه مرة أخرى بارك الله فيك ...
وأريد (أيضًا) من حضرتك شرح فديو (أو مصور) لتعليم تسجل ماكرو في الوورد للإستفادة منه.
وجزاك الله كل الخير ..........
أرجو الاستجابة بارك الله فيكم .............

محمود أبو طلحة
21-04-13, 06:12 AM
بارك الله فيمن نفع إخوانه

معتز ماهر
27-05-13, 09:01 PM
...........

أبو حمزة القاهري
28-05-13, 07:10 AM
نرجو شرح كيفية إضافة هذه الماكروهات إلى وورد 2010
بارك الله فيكم .........

أبو عمير اليماني
18-09-13, 06:32 AM
السلام عليكم ورحمة الله وبركاته.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
<o:p></o:p>
<o:p>Sub حذف_الحواشي_السفلية()
'
' حذف_الحواشي_السفلية Macro
'
'
Selection.GoToNext wdGoToFootnote
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
End Sub</o:p>
<o:p></o:p>

هذا (ماكرو) يقوم بحذف الحاشية السفلية التالية لشارة الكتابة بشرط أن تكون الشارة في المستند نفسه لا في الحواشي السفلية.<o:p></o:p>
لكن الحذف يكون لِحاشية تالية واحدة فقط لكل تشغيل جديد للماكرو.<o:p></o:p>
<o:p></o:p>
فهل بالإمكان جعل الماكرو مستمراً حتى يتم حذف جميع الحواشي في المستند دون تكرار تشغيل الماكرو؟<o:p></o:p>
<o:p></o:p>
وجزاكم الله خيراً.<o:p></o:p>

أبو أكرم الحلبي
26-09-13, 11:17 AM
وعليكم السلام ورحمة الله وبركاته
الأخ العزيز (أبو عمير اليماني) ليتك ترفع ملف وورد كمثال ليتم التطبيق عليه

أبو أكرم الحلبي
26-09-13, 04:31 PM
وعليكم السلام ورحمة الله وبركاته
بعد أن اطلعت على المثال الذي أرسلته لي على الخاص وجدت أن التعديل سهل جداً
وهو أن نضيف حلقة تقوم بتنفيذ المطلوب من أول المستند لآخره
تفضل الماكرو بعد التعديل :

Sub حذف_الحواشي_السفلية()

' www.shhada.net

Dim i As Integer
For i = 1 To ActiveDocument.Footnotes.Count
Selection.GoToNext wdGoToFootnote
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Next
End Sub


لا تنسانا من دعاءك أخي الحبيب

أحمد المواس
26-09-13, 11:13 PM
جزاكم الله خيرا

أبو عمير اليماني
27-09-13, 04:58 PM
ما شاء الله.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
اللهم بارك في أخينا أبي أكرم الحلبي، واهده سواء الصراط، واختم له بخير يا مجيب الدعاء.<o:p></o:p>
<o:p> </o:p>
نجحت العملية ولله الحمد.<o:p></o:p>
<o:p> </o:p>
لكن في هذا الماكرو يلزم أن تكون شارة الكتابة في بداية المستند، وإلا فإنه لا يتم حذف الحواشي السفلية التي تكون أرقامها سابقة للشارة إذا كان موضع الشارة عند تشغيل الماكرو في وسط المستند -مثلاً-.<o:p></o:p>
<o:p> </o:p>
وبالاستفادة من بعض مشاركات أخينا أبي أكرم -حفظه الله تعالى- السابقة في هذا الموضوع قمتُ بتعديل الماكرو ليقوم بحذف جميع حواشي المستند مهما كان موضع شارة الكتابة عند تشغيل الماكرو.<o:p></o:p>
<o:p> </o:p>
فيصير لدينا ماكروهان:<o:p></o:p>
<o:p> </o:p>
1- ماكرو لحذف جميع الحواشي السفلية في المستند مهما كان موضع شارة الكتابة عند تشغيل الماكرو، أي: في بداية المستند أو وسطه أو نهايته، حتى ولو كان موضع الشارة في الحواشي السفلية نفسها.<o:p></o:p>
وهو هذا:<o:p></o:p>
Sub حذف_الحواشي_السفلية()<o:p></o:p>
'<o:p></o:p>
' حذف_الحواشي_السفلية Macro<o:p></o:p>
'<o:p></o:p>
'<o:p></o:p>
Dim i As Integer<o:p></o:p>
' Set bookmark for return.<o:p></o:p>
ActiveDocument.Bookmarks.Add Name:="WhereYouWere", Range:=Selection.Range<o:p></o:p>
' Go to start of document.<o:p></o:p>
Selection.HomeKey Unit:=wdStory, Extend:=wdMove<o:p></o:p>
' Repaginate the document.<o:p></o:p>
ActiveDocument.Repaginate<o:p></o:p>
' Loop through the number of pages in the document.<o:p></o:p>
For i = 1 To ActiveDocument.Footnotes.Count<o:p></o:p>
Selection.GoToNext wdGoToFootnote<o:p></o:p>
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend<o:p></o:p>
Selection.Delete Unit:=wdCharacter, Count:=1<o:p></o:p>
Next<o:p></o:p>
End Sub<o:p></o:p>
<o:p> </o:p>
2- ماكرو لحذف الحواشي السفلية التالية لشارة الكتابة فقط إلى نهاية المستند، بشرط أن تكون الشارة في المستند لا في الحواشي.<o:p></o:p>
وهو هذا:<o:p></o:p>
Sub حذف_الحواشي_السفلية1()<o:p></o:p>
'<o:p></o:p>
' حذف_الحواشي_السفلية1 Macro<o:p></o:p>
'<o:p></o:p>
'<o:p></o:p>
Dim i As Integer<o:p></o:p>
For i = 1 To ActiveDocument.Footnotes.Count<o:p></o:p>
Selection.GoToNext wdGoToFootnote<o:p></o:p>
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend<o:p></o:p>
Selection.Delete Unit:=wdCharacter, Count:=1<o:p></o:p>
Next<o:p></o:p>
End Sub<o:p></o:p>
<o:p> </o:p>
والحمد لله الذي بنعمته تتم الصالحات.<o:p></o:p>

أبو عمير اليماني
28-09-13, 01:12 AM
نرجو شرح كيفية إضافة هذه الماكروهات إلى وورد 2010


بارك الله فيكم .........



الشرح:



أولاً: لا بد من إظهار علامة التبويب (المطور) في الواجهة الرئيسية للوورد.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>



لإظهار علامة التبويب (المطور) لتطبيقات Microsoft Office 2010<o:p></o:p>

1.ابدأ التطبيق. <o:p></o:p>

2.انقر فوق علامة التبويب (ملف). <o:p></o:p>

3.انقر فوق (خيارات). <o:p></o:p>

4.في جزء الفئات، انقر فوق (تخصيص الشريط). <o:p></o:p>

5.في قائمة علامات التبويب الرئيسية، حدد (المطور).<o:p></o:p>

6.انقر فوق (موافق) لإغلاق مربع الحوار (خيارات).<o:p></o:p>

___ منقول ___<o:p></o:p>


ثانياً: قم بتشغيل محرر الڤيجوال بيسك (Visual Basic) من علامة التبويب (المطور).<o:p></o:p>

ثالثاً: من علامة التبويب (عرض/ View) -أو من الزر الخاص بذلك الذي على الشريط- اختر (مستكشف المشروع/ Project Explorer) فتظهر لك قائمة على يسار المستخدم باسم (Project).<o:p></o:p>

رابعاً: انقر باليمين على المجلد (Normal) ثم اختر (استيراد ملف/ Import File) من القائمة المنسدلة؛ فيظهر لك مربع الحوار الخاص بالاستيراد.<o:p></o:p>

خامساً: قم باستيراد الماكروهات المرفقة -بتحديد مكانها باستخدام مربع الحوار الخاص بالاستيراد- إلى المحرر.<o:p></o:p>

عندها تجد الماكروهات المستوردة أمامك في (وحدات الماكرو/ Alt,F8) جاهزة للتشغيل والاستفادة منها.<o:p></o:p>

بارك الله فيكم.<o:p></o:p>

أبو عمير اليماني
30-09-13, 11:55 PM
السلام عليكم ورحمة الله وبركاته.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
<o:p> </o:p>
هذا ماكرو آخر لطيف وخفيف لحذف جميع الحواشي السفلية بشرط أن تكون الشارة في أي مكان من المستند وألا تكون في الحواشي:<o:p></o:p>
<o:p> </o:p>
<o:p> </o:p>
Sub حذف_الحواشي_السفلية ()<o:p></o:p>
'<o:p></o:p>
' حذف_الحواشي_السفلية Macro<o:p></o:p>
'<o:p></o:p>
'<o:p></o:p>
Selection.Find.ClearFormatting<o:p></o:p>
With Selection.Find.Font<o:p></o:p>
.Superscript = True<o:p></o:p>
.Subscript = False<o:p></o:p>
End With<o:p></o:p>
Selection.Find.Replacement.ClearFormatting<o:p></o:p>
With Selection.Find<o:p></o:p>
.Text = ""<o:p></o:p>
.Replacement.Text = ""<o:p></o:p>
.Forward = True<o:p></o:p>
.Wrap = wdFindContinue<o:p></o:p>
.Format = True<o:p></o:p>
End With<o:p></o:p>
Selection.Find.Execute Replace:=wdReplaceAll<o:p></o:p>
End Sub<o:p></o:p>
<o:p> </o:p>
<o:p> </o:p>
جزاكم الله خيراً.<o:p></o:p>

أبو حمزة القاهري
01-10-13, 12:19 AM
الشرح:



أولاً: لا بد من إظهار علامة التبويب (المطور) في الواجهة الرئيسية للوورد.<!--?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /--><o:p></o:p>




لإظهار علامة التبويب (المطور) لتطبيقات Microsoft Office 2010<o:p></o:p>


1.ابدأ التطبيق. <o:p></o:p>

2.انقر فوق علامة التبويب (ملف). <o:p></o:p>

3.انقر فوق (خيارات). <o:p></o:p>

4.في جزء الفئات، انقر فوق (تخصيص الشريط). <o:p></o:p>

5.في قائمة علامات التبويب الرئيسية، حدد (المطور).<o:p></o:p>

6.انقر فوق (موافق) لإغلاق مربع الحوار (خيارات).<o:p></o:p>

___ منقول ___<o:p></o:p>


ثانياً: قم بتشغيل محرر الڤيجوال بيسك (Visual Basic) من علامة التبويب (المطور).<o:p></o:p>

ثالثاً: من علامة التبويب (عرض/ View) -أو من الزر الخاص بذلك الذي على الشريط- اختر (مستكشف المشروع/ Project Explorer) فتظهر لك قائمة على يسار المستخدم باسم (Project).<o:p></o:p>

رابعاً: انقر باليمين على المجلد (Normal) ثم اختر (استيراد ملف/ Import File) من القائمة المنسدلة؛ فيظهر لك مربع الحوار الخاص بالاستيراد.<o:p></o:p>

خامساً: قم باستيراد الماكروهات المرفقة -بتحديد مكانها باستخدام مربع الحوار الخاص بالاستيراد- إلى المحرر.<o:p></o:p>

عندها تجد الماكروهات المستوردة أمامك في (وحدات الماكرو/ Alt,F8) جاهزة للتشغيل والاستفادة منها.<o:p></o:p>

بارك الله فيكم.<o:p></o:p>







جزاك الله خيرًا يا أبا عمير على هذه الشرح ......
لقد جربت الشرح على ماكرو استبدال الحاصرتين ({ ، }) بقوسين مزخرفين (﴿ ، ﴾).
والسؤال هنا: كيف اشغل الماكرو بعد ذلك للتنفيذ الأمر؟؟
وبارك الله فيكم جميعًا ............

أبو عمير اليماني
05-10-13, 07:15 AM
وجزاك الله خيراً.. أخانا أبا حمزة.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

لتشغيل أي ماكرو تم إنشاؤه في الوورد:<o:p></o:p>


- اذهب إلى علامة التبويب (المطور).<o:p></o:p>
- اضغط على الزر (وحدات الماكرو) ليظهر أمامك مربع حوار باسم (وحدات الماكرو).<o:p></o:p>
- اختر الماكرو المُراد تشغيله ثم اضغط على الزر (تشغيل) ليتم تنفيذ الأمر المطلوب.<o:p></o:p>


(تنبيه): يمكن إظهار مربع الحوار (وحدات الماكرو) مباشرة عن طريق لوحة المفاتيح بالضغط على الزرين (Alt) وَ (F8) معاً، ثم يمكن اختيار الماكرو المطلوب وتشغيله.<o:p></o:p>

بارك الله فيك ونفع بك.<o:p></o:p>

أبو حمزة القاهري
05-10-13, 05:49 PM
جزاك الله خيرًا يا أبا عمير وبارك الله فيك ..........

أبو حمزة القاهري
05-10-13, 06:05 PM
قمت بتجربة ادخال (ماكرو ترتيب الأبيات الشعرية)؛
ولكن عند تشغيله أتتني هذه الرسالة:
http://www.mlfnt.com/lives6/13809854991.png

ولم يشتغل الماكرو؟
أرجو التوضيح بارك الله فيكم .........

أبو عمير اليماني
06-10-13, 10:56 AM
وفيك بارك اللهُ -أخانا أبا حمزة- وجزاك الله خيراً. <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
<o:p> </o:p>
التوضيح:<o:p></o:p>
<o:p> </o:p>
- انظر هل باقي الماكروهات يتم تشغيلها على ما يُرام.<o:p></o:p>
ثم:<o:p></o:p>
- من مربع الحوار (وحدات الماكرو) حدد الماكرو المذكور ثم اضغط على الزر (تحرير) ليتم نقلك إلى بيانات الماكرو في محرر الڤيجوال بيسك.<o:p></o:p>
- تأكد من أن بيانات الماكرو في المحرر سليمة، وهي كما يلي:<o:p></o:p>
<o:p> </o:p>
<o:p> </o:p>
Sub ترتيب_أبيات_الشعر()<o:p></o:p>
'<o:p></o:p>
' ترتيب_أبيات_الشعر Macro<o:p></o:p>
'<o:p></o:p>
'<o:p></o:p>
Dim i As Integer<o:p></o:p>
Dim AD As Document<o:p></o:p>
Dim DP As Object<o:p></o:p>
Set AD = ActiveDocument<o:p></o:p>
Set DP = AD.BuiltInDocumentProperties<o:p></o:p>
' Set bookmark for return.<o:p></o:p>
ActiveDocument.Bookmarks.Add Name:="WhereYouWere", Range:=Selection.Range<o:p></o:p>
' Go to start of document.<o:p></o:p>
Selection.HomeKey Unit:=wdStory, Extend:=wdMove<o:p></o:p>
' Repaginate the document.<o:p></o:p>
ActiveDocument.Repaginate<o:p></o:p>
For i = 1 To DP("Number Of Lines") / 2<o:p></o:p>
Selection.EndKey Unit:=wdLine<o:p></o:p>
Selection.TypeText Text:=" ... "<o:p></o:p>
Selection.Delete Unit:=wdCharacter, Count:=1<o:p></o:p>
Selection.EndKey Unit:=wdLine<o:p></o:p>
Selection.MoveRight Unit:=wdCharacter, Count:=1<o:p></o:p>
Next<o:p></o:p>
' Return to starting ********.<o:p></o:p>
Selection.GoTo What:=wdGoToBookmark, Name:="WhereYouWere"<o:p></o:p>
' Delete the return marker.<o:p></o:p>
ActiveDocument.Bookmarks("WhereYouWere").Delete<o:p></o:p>
End Sub<o:p></o:p>
<o:p> </o:p>
<o:p> </o:p>
- إذا لم تكن بيانات الماكرو سليمة فأعد نسخها من هنا ثم ألصقها بدقة في المحرر، واحفظ التغييرات باستخدام زر الحفظ على يسارك أعلى شاشة المحرر.<o:p></o:p>
- أعد تجربة تشغيل الماكرو.<o:p></o:p>
<o:p> </o:p>
(تنبيه): في بعض الأحيان -وقد يندُر- يحدث اضطراب ما في برنامج الوورد مما يُسبّب خطأً في عمل وحدات الماكرو، ويتم تلافي ذلك بإغلاق البرنامج نهائياً ثم إعادة تشغيله مرة أخرى.<o:p></o:p>
<o:p> </o:p>
أعانك الله وسدّد خطاك.<o:p></o:p>

أبو حمزة القاهري
06-10-13, 05:29 PM
جزاك الله خيرًا يا أبا عمير وبارك الله فيك ..........
قمت بتنفيذ ما تفضلتَ به؛ ولكن جاءت نفس الرسالة ولم يفلح الأمر.
أما قولك: (انظر هل باقي الماكروهات يتم تشغيلها على ما يُرام)؟
لم استخدم إلا (الماكرو الذي يقوم باستبدال الحاصرتين ({ ، }) بقوسين مزخرفين (﴿ ، ﴾).).
وقد عمل معي بينجاح.
وعلى العموم بارك الله فيك وجزاك الله خيرًا .... على ما تقوم به من خدمة طلاب العلم.

أبو عمير اليماني
18-01-14, 02:16 AM
السلام عليكم ورحمة الله وبركاته.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
<o:p> </o:p>
نحتاج إلى ماكرو يقوم بحذف النص الذي يكون داخل المعقوفين ( [ ] )، سواءً كان الذي بينهما عبارة عن حروف أو أرقام أو كليهما، وسواءً كان النص طويلاً أو قصيراً، وذلك في جميع المستند.<o:p></o:p>
<o:p> </o:p>
وإن أمكن أن نجعل الماكرو يحذف المعقوفين أيضاً مع النص الذي بينهما فحَسَنٌ.<o:p></o:p>
<o:p> </o:p>
وجزاكم الله خيراً.<o:p></o:p>

ابوعمر ابراهيم عثمان
18-01-14, 08:52 AM
جزاكم الله خيرا

أبو أكرم الحلبي
06-12-18, 06:25 PM
السلام عليكم ورحمة الله وبركاته.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>
<o:p> </o:p>
نحتاج إلى ماكرو يقوم بحذف النص الذي يكون داخل المعقوفين ( [ ] )، سواءً كان الذي بينهما عبارة عن حروف أو أرقام أو كليهما، وسواءً كان النص طويلاً أو قصيراً، وذلك في جميع المستند.<o:p></o:p>
<o:p> </o:p>
وإن أمكن أن نجعل الماكرو يحذف المعقوفين أيضاً مع النص الذي بينهما فحَسَنٌ.<o:p></o:p>
<o:p> </o:p>
وجزاكم الله خيراً.<o:p></o:p>


وعليكم السلام ورحمة الله وبركاته
تفضل أخي العزيز:
ما كرو حذف ما بين معقوفين:
Sub DeleteSquarePark()
With Selection.Find
.Text = "(\[)(*)(\])"
.Replacement.Text = ""
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

ماكرو تلوين ما بين معقوفين باللون الأحمر:
Sub ColorSquarePark()
Selection.Find.Replacement.Font.Color = wdColorRed
With Selection.Find
.Text = "(\[)(*)(\])"
.Replacement.Text = ""
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub