فرمت کردن خودکار یک فایل ASCII

Question

یکی از بزرگ‌ترین مشکلات در قالب‌بندی فایل ASCII، تغییر آن است به طوری که در انتهای پاراگراف‌ها فقط بازگشت‌های سخت وجود دارد. اکثر فایل‌های ASCII دارای یک بازگشت سخت در انتهای هر خط فایل، و دو بازگشت سخت در پایان هر پاراگراف هستند. اگر یک فایل ASCII دارید که به این شکل قالب بندی شده است، مانند چیزی که از اینترنت دانلود کرده اید، ماکرو زیر ارزشمند خواهد بود. این یک فایل کامل را فرمت می کند، بنابراین فقط در انتهای پاراگراف ها برگشت های سخت وجود دارد.

Sub ConvertASCII()
    Fmt "^p^p", "{|}"
    Fmt "^p", " {@}"
    Fmt " {@}", " "
    Fmt "{@}", " "
    Fmt "{|}", "^p"
End Sub

Sub Fmt(sFromWord, sToWord)
    Set myRange = ActiveDocument.Content
    myRange.Find.ClearFormatting
    myRange.Find.Execute FindText:=sFromWord, _
      ReplaceWith:=sToWord, MatchCase:=0, _
      Replace:=wdReplaceAll
End Sub

شما باید ماکرو ConvertASCII را اجرا کنید. چندین بار ماکرو Fmt را فراخوانی می کند تا ترکیبات مختلفی از کاراکترهای برگشتی را جایگزین کند تا به نتیجه دلخواه برسد.