خاموش کردن "پیوند به قبلی" توسط پیش فرض

Question

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

هیچ راهی برای تعیین یک پیش فرض برای تنظیمات Link to Previous در خود Word وجود ندارد. با این حال، می‌توانید نحوه افزودن وقفه‌ها به سند خود را تغییر دهید. اگر این کار را از طریق ماکرو انجام دهید، ماکرو به راحتی می‌تواند تنظیمات پیوند به قبلی را برای بخش جدید اضافه شده خاموش کند. در اینجا یک راه سریع برای انجام آن وجود دارد:

Sub AddBreak()
    Dim iSec As Integer

    Selection.InsertBreak Type:=wdSectionBreakNextPage

    iSec = Selection.Information(wdActiveEndSectionNumber)
    With ActiveDocument.Sections(iSec)
        .Headers(wdHeaderFooterPrimary).LinkToPrevious = False
        .Headers(wdHeaderFooterEvenPages).LinkToPrevious = False
        .Headers(wdHeaderFooterFirstPage).LinkToPrevious = False
        .Footers(wdHeaderFooterPrimary).LinkToPrevious = False
        .Footers(wdHeaderFooterEvenPages).LinkToPrevious = False
        .Footers(wdHeaderFooterFirstPage).LinkToPrevious = False
    End With
End Sub

روش .InsertBreak در واقع شکست را درج می کند. در این حالت، یک شکستن صفحه بعدی است. شما می توانید انواع مختلفی از شکست ها را با تغییر شمارش wdSectionBreakNextPage به یکی از این انواع دیگر از شکست ها مشخص کنید:

• wdSectionBreak Continuous
• wdSectionBreakEvenPage
• wdSectionBreakOddPage

سپس ماکرو iSec را برابر با شماره شاخص بخش فعلی تنظیم می کند. سپس در ساختار With برای تنظیم ویژگی LinkToPrevious برای هر سه نوع هدر و هر سه نوع پاورقی استفاده می شود.

اگر ترجیح می‌دهید، می‌توانید ویژگی LinkToPrevious را برای همه سرصفحه‌ها و پاورقی‌ها در تمام بخش‌های سندتان به‌طور هم‌زمان تغییر دهید:

Sub ChangeAll()
    Dim s As Section

    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