ملتقى أهل الحديث

العودة   ملتقى أهل الحديث > المنتديات الخاصة > استراحة الملتقى
.

الملاحظات

إضافة رد
 
أدوات الموضوع
  #41  
قديم 18-01-14, 02:16 AM
أبو عمير اليماني أبو عمير اليماني غير متصل حالياً
وفقه الله
 
تاريخ التسجيل: 02-05-11
الدولة: اليمن - حماها الله تعالى من شر الرافضة البغاة
المشاركات: 266
Arrow رد: من يصنع لنا هذه الماكروهات في الوورد ؟

السلام عليكم ورحمة الله وبركاته.
نحتاج إلى ماكرو يقوم بحذف النص الذي يكون داخل المعقوفين ( [ ] )، سواءً كان الذي بينهما عبارة عن حروف أو أرقام أو كليهما، وسواءً كان النص طويلاً أو قصيراً، وذلك في جميع المستند.
وإن أمكن أن نجعل الماكرو يحذف المعقوفين أيضاً مع النص الذي بينهما فحَسَنٌ.
وجزاكم الله خيراً.
رد مع اقتباس
  #42  
قديم 18-01-14, 08:52 AM
ابوعمر ابراهيم عثمان ابوعمر ابراهيم عثمان غير متصل حالياً
وفقه الله
 
تاريخ التسجيل: 17-10-13
المشاركات: 747
افتراضي رد: من يصنع لنا هذه الماكروهات في الوورد ؟

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

رد مع اقتباس
  #43  
قديم 06-12-18, 06:25 PM
أبو أكرم الحلبي أبو أكرم الحلبي غير متصل حالياً
وفقه الله
 
تاريخ التسجيل: 29-11-04
الدولة: سجن المؤمن
المشاركات: 1,319
Lightbulb حذف أو تلوين ما بين معقوفين

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

نحتاج إلى ماكرو يقوم بحذف النص الذي يكون داخل المعقوفين ( [ ] )، سواءً كان الذي بينهما عبارة عن حروف أو أرقام أو كليهما، وسواءً كان النص طويلاً أو قصيراً، وذلك في جميع المستند.

وإن أمكن أن نجعل الماكرو يحذف المعقوفين أيضاً مع النص الذي بينهما فحَسَنٌ.

وجزاكم الله خيراً.
وعليكم السلام ورحمة الله وبركاته
تفضل أخي العزيز:
ما كرو حذف ما بين معقوفين:

كود:
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
رد مع اقتباس
إضافة رد

أدوات الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML متاحة

الانتقال السريع


الساعة الآن 03:39 AM.


vBulletin الإصدار 3.8.11

حَيَّاكُمُ اللهُ فِيْ مُلْتَقَى أَهْلِ الْحَدِيْثِ

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.