حذف همه سرصفحه ها و پاورقی ها

Question

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

کارهای تکراری و وقت گیر همیشه کاندیدای اصلی برای ماکروها هستند. این استثنا نیست ماکرو زیر مستقیماً در هر بخش از یک سند فشرده می شود و تمام سرصفحه ها و پاورقی های تعریف شده را حذف می کند.

Sub RemoveHeadAndFoot()
    Dim oSec As Section
    Dim oHead As HeaderFooter
    Dim oFoot As HeaderFooter

    For Each oSec In ActiveDocument.Sections
        For Each oHead In oSec.Headers
            If oHead.Exists Then oHead.Range.Delete
        Next oHead

        For Each oFoot In oSec.Footers
            If oFoot.Exists Then oFoot.Range.Delete
        Next oFoot
    Next oSec
End Sub

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