Word به شما امکان می دهد چندین نوع شکست بخش را به سند خود اضافه کنید. دو مورد از انواع شکست بخش منجر به اضافه شدن صفحات خالی به سند در صورت لزوم می شود. به عنوان مثال، اگر از یک شکست بخش Odd Page استفاده می کنید و بخش قبلی به یک صفحه فرد ختم می شود، Word به طور خودکار یک صفحه زوج خالی را وارد می کند تا بخش بعدی بتواند در صفحه فرد بعدی شروع شود.
مشکل این است که Word یک صفحه کاملاً خالی را وارد می‌کند—حتی سرصفحه یا پاورقی را در صفحه چاپ نمی‌کند. اگر سرصفحه‌ها و پاورقی‌ها یا برخی اطلاعات دیگر در صفحه را ترجیح می‌دهید (مانند "این صفحه عمداً خالی مانده است") ، پس نمی توانید به تنهایی به شکست های بخش Word اعتماد کنید.
یک روش این است که به صورت دستی به یک سند نگاه کنید و در صورت لزوم، متن نامرئی خود را اضافه کنید که در صفحه‌ای که در غیر این صورت خالی بود، «چاپ» می‌شود. شما با افزودن متن معمولی و قالب بندی آن به صورت سفید، متن نامرئی ایجاد می کنید. رنگ سفید روی سفید، وقتی چاپ می شود، نامرئی است. با این حال، Word متوجه این موضوع نیست و سرصفحه ها و پاورقی ها را در صفحه "خالی" ارائه می دهد.
یک رویکرد جالب این است که متن استاندارد انتهای بخش خود را ایجاد کنید. یک ورودی بلوک ساختمانی ایجاد کنید که حاوی متن انتهای بخش شما باشد، از جمله یک صفحه شکستن در ابتدای ورودی. نام ورودی را چیزی مانند "BLANKPAGE" بگذارید. سپس در انتهای هر بخش، درست قبل از شکست بخش، فیلد ترکیبی زیر را اضافه کنید:
{ if { =int( {page} / 2 ) * 2 } = { page } " " { autotext "BLANKPAGE" } }
به یاد داشته باشید که بریس های نشان داده شده در این مثال، قرار است مهاربندهای میدانی باشند. با فشار دادن Ctrl+F9 برای هر مجموعه، پرانتزهای فیلد را وارد می‌کنید . فیلد بررسی می کند که آیا صفحه فعلی، در این مورد، یکنواخت است یا خیر. اگر اینطور است، پس فیلد به طور خودکار بلوک ساختمان شما را با استفاده از فیلد AUTOTEXT وارد می کند.
در صورت تمایل، می‌توانید یک ماکرو نیز ایجاد کنید که در سند قدم بگذارد، به هر بخش نگاه کند، تصمیم بگیرد چند صفحه در آن بخش وجود دارد و سپس در صورت لزوم یک صفحه شکستن در انتهای بخش اضافه کنید. ماکرو زیر دقیقاً این کار را انجام می دهد:
Sub CheckSecLen()
Dim iSec As Integer
Dim oRng As Range
Dim iValue As Integer
With ActiveDocument
" go through each section (except for the last one)
For iSec = 1 To .Sections.Count - 1
" create a range object at the start of the section
Set oRng = .Sections(iSec).Range
oRng.Collapse wdCollapseStart
" insert a sectionpages field
.Fields.Add Range:=oRng, Type:=wdFieldSectionPages
" divide the sectionpages field by 2
" if it gives a zero as the remainder, then
" you have an even number of pages in the section,
" which is what you want with an odd section page break
If (.Sections(iSec).Range.Fields(1).Result Mod 2) <> 0 Then
" if you have an odd number of pages, then insert
" a page break before the section"s section break
Set oRng = .Sections(iSec).Range
With oRng
.Collapse Direction:=wdCollapseEnd
.MoveEnd unit:=wdCharacter, Count:=-1
.InsertBreak Type:=wdPageBreak
End With
End If
" remove the sectionpages field that was added
.Sections(iSec).Range.Fields(1).Delete
Next iSec
End With
End Sub
