آموزش گام‌به‌گام تبدیل اعداد انگلیسی به فارسی در Word با ماکرو VBA

[Tazari (محمد طزری)]

آیا تا به حال با متنی روبه‌رو شده‌اید که اعداد آن به‌صورت انگلیسی نوشته شده‌اند، در حالی که شما نیاز دارید آن‌ها را به‌صورت فارسی نمایش دهید؟
در این آموزش حرفه‌ای، یاد می‌گیرید چگونه با استفاده از یک ماکروی هوشمند در Word، تمام اعداد انگلیسی را به‌صورت خودکار و دقیق به فارسی تبدیل کنید — حتی اعداد چندرقمی مثل 123 یا 2025!

---

چرا از ماکرو استفاده کنیم؟

سرعت بالا در اسناد طولانی
تبدیل دقیق و کامل اعداد چندرقمی
مناسب برای پایان‌نامه‌ها، مقالات علمی، متون رسمی فارسی
قابل اجرا با یک کلیک، بدون نیاز به Replace دستی

---

مرحله ۱: ورود به محیط برنامه‌نویسی Word

1. نرم‌افزار Microsoft Word را باز کنید
2. کلیدهای Alt + F11 را فشار دهید تا وارد محیط Visual Basic for Applications (VBA) شوید (یا از زبانه Developer گزینه Visual Basic را انتخاب کنید. برای آشنایی با نحوه افزودن زبانه مذکور به اینجا مراجعه کنید )
3. از منوی بالا، روی Insert > Module کلیک کنید
4. یک پنجره سفید باز می‌شود؛ اینجا محل نوشتن ماکرو است

---

مرحله ۲: کپی و درج کد ماکرو

کد زیر را در پنجره‌ی بازشده Paste کنید:

Sub ReplaceAllEnglishNumbersWithPersian()
    Dim rng As Range
    Dim regEx As Object
    Dim matches As Object
    Dim match As Variant
    Dim faNum As String
    Dim i As Integer
    Dim digit As String

    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Global = True
    regEx.Pattern = "\d+"

    Set rng = ActiveDocument.Content

    If regEx.test(rng.Text) Then
        Set matches = regEx.Execute(rng.Text)
        For Each match In matches
            faNum = ""
            For i = 1 To Len(match.Value)
                digit = Mid(match.Value, i, 1)
                faNum = faNum & ChrW(1776 + CInt(digit))
            Next i
            rng.Find.Execute FindText:=match.Value, ReplaceWith:=faNum, Replace:=wdReplaceAll
        Next match
    End If
End Sub

---

مرحله ۳: اجرای ماکرو

[!important] توجه
قبل از اجرا، از سند خود پشتیبان تهیه کنید.

1. کلید F5 را فشار دهید یا از منوی بالا روی دکمه Run کلیک کنید
2. Word به‌صورت خودکار تمام اعداد انگلیسی موجود در سند را پیدا کرده و نسخه‌ی فارسی آن‌ها را جایگزین می‌کند
3. نتیجه را بررسی کنید: اعداد مثل 2025 به ۲۰۲۵ تبدیل شده‌اند!

---

جمع‌بندی

با استفاده از این ماکرو:

• دیگر نیازی به Replace دستی و وقت‌گیر ندارید
• دقت و سرعت کارتان در نگارش متون فارسی بالا می‌رود
• سند شما از نظر نگارشی و زیبایی‌شناسی حرفه‌ای‌تر به نظر می‌رسد