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

[أبو عاصم المصري]

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

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

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

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

[Saleh Ahmed Rabie]

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

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

**ملاحظة:**

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

[تومي محمد]

شكرا

[أبو عاصم المصري]

عفوا