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

صفر على الشمال


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

أحيانا تأتي الملفات بها أرقام تبدأ بصفر (0) أو أكثر، مثل (05)، (006)، (00010)، ونحو ذلك.

ويحتاج الباحث إلى حذف هذه الأصفار، فيصبح الرقم: (5)، (6)، (10)

والطريقة سهلة للغاية، وهي كتابة: <0 في خانة البحث، مع ترك خانة الاستبدال فارغة، واختيار حروف البدل.

سيقوم هذا الأمر بحذف هذه الأصفار التي على يسار الرقم.

رابط هذا التعليق
شارك

  • 4 weeks later...

**كود حذف الأصفار من شمال الأرقام في ملفات 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" لتشغيل الكود.

سيقوم هذا الكود بحذف جميع الأصفار الموجودة على يسار الأرقام في الملف.

**ملاحظة:**

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

  • Like 1
رابط هذا التعليق
شارك

  • 1 month later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information