节末的自动空白页(Microsoft Word)
Word允许您在文档中添加几种类型的分节符。如有必要,两种分节符类型会导致在文档中添加空白页。例如,如果使用奇数页分节符,并且上一节以奇数页结尾,则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
注意:
如果您想知道如何使用此页面(或_WordTips_网站上的任何其他页面)中描述的宏,我准备了一个包含有用信息的特殊页面。
_WordTips_是您进行经济有效的Microsoft Word培训的来源。
(Microsoft Word是世界上最流行的文字处理软件。)本技巧(12565)适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里: