برای اماده سازی کتاب پیام نور ناچار شدم همهی فایل ها را ادغام کنم. یک مشکل مهم، فعال بودن 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