قالب بندی فایل های متنی با VBA

Question

غیر معمول نیست که نیاز به قالب بندی فایل های متنی در Word داشته باشید. به عنوان مثال، ممکن است یک پیام ایمیل از شخصی دریافت کنید که نیاز به قالب بندی دارد، یا ممکن است یک فایل ASCII از یک دوست دریافت کنید. رایج‌ترین نیاز در قالب‌بندی چنین فایلی، حذف فاصله‌ها یا زبانه‌های اضافی از ابتدای یک خط، فاصله‌ها یا تب‌های اضافی از انتهای یک خط، حذف کاراکترهای «پاسخ» از ابتدای هر خط و ترکیب خطوط برای پاراگراف بسازید

انجام همه این کارها با دست کار زمان‌بر است و به‌راحتی می‌تواند شما را به دردسر بیاندازد، به خصوص اگر فایل بسیار بزرگ باشد. ماکرو زیر باید کار را برای شما راحت کند. تمام کارهایی را که به تازگی بازگو شده انجام می دهد و آنها را خیلی سریع انجام می دهد.

Sub DoASCII()
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^w"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    For J = 1 To 4
        Selection.Find.Text = "^p> "
        Selection.Find.Execute Replace:=wdReplaceAll
    Next J
    Selection.Find.Text = "^p^w"
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Text = "^w^p"
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Text = "^p^p"
    Selection.Find.Replacement.Text = "[{}]"
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Text = "^p"
    Selection.Find.Replacement.Text = " "
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Text = "[{}]"
    Selection.Find.Replacement.Text = "^p"
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

باید توجه داشته باشید که این ماکرو تا چهار سطح از کاراکترهای "> " را جایگزین می کند که در ابتدای یک خط قرار می گیرند. همچنین فرض می‌کند که تنها جایی که می‌خواهید پاراگراف‌ها را بشکنید، مکان‌هایی هستند که یک خط خالی وجود دارد.