Spaces Trailing Strip

Question

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

من از یک ماکرو برای مراقبت از چنین ریزه هایی در سند استفاده می کنم. ماکرو زیر، StripSpaces، تمام فاصله‌ها و برگه‌های انتهایی را قبل از علامت‌های پاراگراف و خط‌های دستی در سرتاسر سند شما حذف می‌کند.

Sub StripSpaces()
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^w^p"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWholeWord = False
        .MatchWildcards = False
    End With
    Selection.Find.Execute

    Selection.Find.Text = "^w^l"
    Selection.Find.Replacement.Text = "^l"
    Selection.Find.Execute
End Sub

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