أبو عاصم المصري قام بنشر April 30 مشاركة قام بنشر April 30 أحيانا تأتي الملفات بها أرقام تبدأ بصفر (0) أو أكثر، مثل (05)، (006)، (00010)، ونحو ذلك. ويحتاج الباحث إلى حذف هذه الأصفار، فيصبح الرقم: (5)، (6)، (10) والطريقة سهلة للغاية، وهي كتابة: <0 في خانة البحث، مع ترك خانة الاستبدال فارغة، واختيار حروف البدل. سيقوم هذا الأمر بحذف هذه الأصفار التي على يسار الرقم. رابط هذا التعليق شارك More sharing options...
Saleh Ahmed Rabie قام بنشر مايو 23 مشاركة قام بنشر مايو 23 **كود حذف الأصفار من شمال الأرقام في ملفات Word:** ``` Sub RemoveLeadingZeros() Dim rng As Range Dim findWhat As String findWhat = "<0" Set rng = ActiveDocument.Range With rng.Find .ClearFormatting .Text = findWhat .Replacement.ClearFormatting .Replacement.Text = "" .MatchCase = False .MatchWholeWord = False .MatchWildcards = True .Execute Replace:=wdReplaceAll End With End Sub ``` **كيفية استخدام الكود:** 1. افتح ملف Word الذي يحتوي على الأرقام التي تريد تعديلها. 2. اضغط على "Alt + F11" لفتح محرر Visual Basic. 3. انقر فوق "إدراج" > "وحدة نمطية". 4. الصق الكود في وحدة النمط. 5. اضغط على "F5" لتشغيل الكود. سيقوم هذا الكود بحذف جميع الأصفار الموجودة على يسار الأرقام في الملف. **ملاحظة:** * هذا الكود يحذف فقط الأصفار الموجودة على يسار الأرقام. * إذا كنت تريد حذف أصفار إضافية من داخل الأرقام، يمكنك تعديل الكود وفقًا لذلك. 1 رابط هذا التعليق شارك More sharing options...
تومي محمد قام بنشر يونيو 27 مشاركة قام بنشر يونيو 27 شكرا رابط هذا التعليق شارك More sharing options...
أبو عاصم المصري قام بنشر يوليو 1 الكاتب مشاركة قام بنشر يوليو 1 عفوا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان