تغییر پیوند به پیش فرض قبلی برای سرصفحه ها و پاورقی ها

Question

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

هیچ راهی برای رسیدگی به این موضوع با تنظیمی در Word وجود ندارد. به نظر می رسد که تنظیم همیشه به "پیوند به قبلی" برمی گردد. در عوض، باید از یک ماکرو برای انجام یک راه حل برای آنچه می خواهید استفاده کنید. ایجاد یک ماکرو که یک بخش جدید ایجاد می کند و هدرها و پاورقی ها را جدا می کند، کار نسبتاً ساده ای است.

Sub AddNewSection()
    Selection.InsertBreak Type:=wdSectionBreakNextPage
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.LinkToPrevious = False

    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Selection.HeaderFooter.LinkToPrevious = False
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

ماکرو یک بخش استراحت را وارد می کند و سپس تنظیمات "پیوند به قبلی" را برای بخش جدید خاموش می کند. درک کنید که در فرآیند اضافه کردن بخش جدید، سرصفحه و پاورقی آن بخش جدید مانند بخش قبلی خواهد بود. با این حال، پیوند آنها لغو می شود، بنابراین می توان با خیال راحت بدون تأثیر بر بخش قبلی، آنها را ویرایش کرد.

شما به راحتی می توانید این ماکرو را به نوار ابزار دسترسی سریع خود اضافه کنید یا یک کلید میانبر برای اجرای آن تعریف کنید. ماکرو یک بخش "صفحه بعدی" را اضافه می کند. اگر می‌خواهید نوع دیگری از شکست بخش را داشته باشید، تنها کاری که باید انجام دهید این است که wdSectionBreakNextPage را با یکی از ثابت‌های دیگر برای شکست بخش‌ها جایگزین کنید: wdSectionBreakContinuous (شکست بخش پیوسته)، wdSectionBreakEvenPage (تقطع بخش زوج صفحه)، یا wdSectionBreakOd-P شکست بخش صفحه).

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

Sub UnlinkAllHeadersFooters()
    Dim s As Section
    On Error Resume Next

    For Each s In ActiveDocument.Sections
        s.Headers(wdHeaderFooterEvenPages).LinkToPrevious = False
        s.Headers(wdHeaderFooterFirstPage).LinkToPrevious = False
        s.Headers(wdHeaderFooterPrimary).LinkToPrevious = False
        s.Footers(wdHeaderFooterEvenPages).LinkToPrevious = False
        s.Footers(wdHeaderFooterFirstPage).LinkToPrevious = False
        s.Footers(wdHeaderFooterPrimary).LinkToPrevious = False
    Next s
End Sub