اضافه کردن Session Break در Word با غیرفعال کردن Link to Previous

برای اماده سازی کتاب پیام نور ناچار شدم همه‌ی فایل ها را ادغام کنم. یک مشکل مهم، فعال بودن Link to previous در Header ها و Footer ها بود. به همین دلیل از این ماکرو برای ایجاد Page Break

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

و از این ماکرو نیز برای اطمینان از درست بودن همه چیز استفاده کردم:

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

مرجع: 

https://wordribbon.tips.net/T013502_Turning_Off_Link_to_Previous_by_Default.html