اصلاح نیم‌فاصله‌ها در کل متن با یک کلیک(ویژه پایان نامه، کتاب، مقاله)

Sub FixPersianZWNJ_Advanced()
    ' Macro designed for Professional Persian Editing
    ' Covers: Verbs (Mi/Nemi), Plurals (Ha), Suffixes (Tar/Tarin/Ye), and Units
    
    Dim ZWNJ As String
    ZWNJ = ChrW(8204) ' Zero-width non-joiner character
    
    Application.ScreenUpdating = False
    
    ' ۱. اصلاح پیشوندهای فعلی (می/نمی)
    Call RegexReplace("(<[نم]ی) ", "\۱" & ZWNJ) ' 2. اصلاح نشانه جمع (ها/های) ' با شرط عدم اتصال به علائم نگارشی Call RegexReplace("([! ]) (ها)([ .،:؛?!])", "\۱" & ZWNJ & "\2\3") Call RegexReplace("([! ]) (های)([ .،:؛?!])", "\۱" & ZWNJ & "\2\3") ' 3. اصلاح پسوندهای تفضیلی (تر/ترین) Call RegexReplace("([! ]) (تر)([ .،:؛?!])", "\۱" & ZWNJ & "\2\3") Call RegexReplace("([! ]) (ترین)([ .،:؛?!])", "\۱" & ZWNJ & "\2\3") ' 4. شناسه افعال و ی نکره (پس از ه) ' مثال: رفته ام -> رفته‌ام | خانه ای -> خانه‌ای
    Call RegexReplace("(ه) (ا[می][tdn]?)", "\1" & ZWNJ & "\2") 
    Call RegexReplace("(ه) (ای)([ .،:؛?!])", "\۱" & ZWNJ & "\2\3")
    
    ' ۵. استانداردسازی فاصله اعداد و واحدها
    ' مثال: ۱۰۰ تومان -> 100تومان (با نیم‌فاصله)
    Call RegexReplace("([0-9]) (تومان|ریال|دلار|یورو)", "\۱" & ZWNJ & "\2")
    Call RegexReplace("([0-9]) (گرم|کیلو|متر|سانت|میلی)", "\۱" & ZWNJ & "\2")
    Call RegexReplace("([0-9]) (سال|نفر|عدد|درصد|بار)", "\۱" & ZWNJ & "\2")

    Application.ScreenUpdating = True
    MsgBox "اصلاحات ساختاری و دستوری با موفقیت انجام شد.", vbInformation, "تکمیل عملیات"
End Sub

' تابع کمکی جستجو و جایگزینی
Sub RegexReplace(FindPattern As String, ReplacePattern As String)
    Dim MyRange As Range
    Set MyRange = ActiveDocument.Content
    With MyRange.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = FindPattern
        .Replacement.Text = ReplacePattern
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

💡 دامنه عملکرد و نظارت ویراستار

این ابزار هوشمند برای اصلاح قواعد ساختاری و دستوری (افعال، جمع‌ها، پسوندها) طراحی شده است که از قوانین ثابت پیروی می‌کنند.

با توجه به اینکه تشخیص کلمات مرکب (مانند «راه‌حل»، «گفت‌وجو») و واژه‌های دوپهلو (مانند پیشوند «هم» در «هم‌کلاسی» در مقابل کلمه مستقل «هم») نیازمند درک معنایی جمله است، پیشنهاد می‌شود پس از اجرای ماکرو، یک مرور سریع برای این کلمات خاص داشته باشید تا ظرافت‌های معنایی متن حفظ شود.