《Word自动空白页设置技巧69830》由会员分享，可在线阅读，更多相关《Word自动空白页设置技巧69830（9页珍藏版）》请在金锄头文库上搜索。
1、Wd自动空白页设置技巧出处:文档在线 作者:不详od支持多种分节符，如图一，其中两种分节符会在必要时自动插入空白页.例如，如果文档中插入了一个“奇数页”分节符，而上一节又在奇数页结束,则Word会自动插入一个空白的偶数页，使得下一节又属于一个新的奇数页。 但通过这两种分节符自动插入的空白页都存在同样的缺点它插入的是一个完全空白的页,连页眉/页脚都自作主张地省略了。在实际应用中，自动生成的空白页如果也有普通拥有的页眉/页脚，或者包含“（本页空白)”之类的文字，整个文档看起来就更规范一些。但这些问题单纯依靠Wo的分节符来自动插入空白页是无法解决的。图一 解决这个问题办法很多.第一种办法最简单,但比
2、较繁琐,属于“笨办法”，针对只需加入页眉/页脚的空白页：人工检视文档，在必要的地方(也即空白页)插入一些不可见的文本。所谓不可见的文本，就是将普通文本的颜色设置成和底色一样，一般是白色.这样，打印时空白页上不会看到这些文本,不过Word不会考虑到这一点，仍会象对待正常页那样在这个“空白”页上打印页眉/页脚. 如果要加入“（本页空白）”之类的文字，一种比较好的办法是利用域构造标准的“节终结文本”。首先创建一个AuoTet自动图文集，使它包含要打印在空白页上的文字，并在自动图文集的开始位置插入一个分页符.为该自动图文集词条指定适当的名称，例如BLNKPAGE.接下来，在每一个节的终结处，紧靠分节符
3、之前,加入下面的复合域（如图二）： i =nt( ag 2 ) page auttext ”LANKPE” . 这组域代码判断当前的页号是奇数还是偶数，根据判断结果决定是否插入名为BLNKP的自动图文集词条。图二 注意域代码中的花括号（“和“”）是域的标记,不能用输入普通文字的方法输入，每一对花括号必须按一次Ctr+F9输入. 如果你经常要执行类似的操作,那么最好的办法还是利用Wod宏。下面的hckSePage宏遍历当前文档，对于文档的每一节，计算该节包含的页数，然后判断页数的奇偶性，必要时插入分页符。 Su CecScPag(） Dim iSec As IntgeDim RgsRange D
4、im iValue AsIntegr WitActivocument 依次处理文档的每一节（最后一节除外) Fo Sec= 1 To .SectionsCn - 1 创建区域(Rane）对象 St ong = .Sectons（iec)。ang 将该区域折叠 (折叠之后起始位置和结束位置相同） oRng.Cllape wdColpseS 插入一个ectionPges域。 SctinPas域表示一节中的总页数 .FIElds。dang:=Rng, Typ：wdeSectioPes 将SectionPages的值除以2.如果余数为0,则当前节的页数是 偶数-这就是我们要用“奇数页”分节符达到的效果
5、 f（。Secios（iec)RangeFields(1）.ResulMod 2） 0 Then 如果页数是奇数,则在节的分节符之前 插入一个分页符Set on 。Sections().Rang Wi Rg 。ColpseDiection：=wdollapseEnd .MoveEdnit：=dCaracter， Count：1 .nertBreak ye：wdPagreak n WithEndI 删除前面创建的tionPages域 Sectios（iSec）.Rangeilds（1）.Dlete Nxt iSecEnd Wth End Sub在or中，按AltF1打开isual Basic宏编
6、辑器,输入CckePge宏的完整代码,如图三.完成后保存,关闭宏编辑器返回Wor。以后，只要运行ckSecages宏就可以自动设置空白页，非常方便.ord支持多种分节符，如图一，其中两种分节符会在必要时自动插入空白页。例如，如果文档中插入了一个“奇数页”分节符，而上一节又在奇数页结束，则Word会自动插入一个空白的偶数页,使得下一节又属于一个新的奇数页。 但通过这两种分节符自动插入的空白页都存在同样的缺点-它插入的是一个完全空白的页，连页眉/页脚都自作主张地省略了.在实际应用中，自动生成的空白页如果也有普通拥有的页眉页脚,或者包含“(本页空白）”之类的文字，整个文档看起来就更规范一些。但这些问
7、题单纯依靠Word的分节符来自动插入空白页是无法解决的。图一 解决这个问题办法很多。第一种办法最简单，但比较繁琐,属于“笨办法”，针对只需加入页眉/页脚的空白页:人工检视文档，在必要的地方(也即空白页）插入一些不可见的文本。所谓不可见的文本,就是将普通文本的颜色设置成和底色一样,一般是白色。这样,打印时空白页上不会看到这些文本，不过ord不会考虑到这一点,仍会象对待正常页那样在这个“空白页上打印页眉/页脚。 如果要加入“（本页空白）”之类的文字，一种比较好的办法是利用域构造标准的“节终结文本”。首先创建一个AtTet自动图文集,使它包含要打印在空白页上的文字，并在自动图文集的开始位置插入一个分
8、页符。为该自动图文集词条指定适当的名称，例如BLANKPAGE.接下来，在每一个节的终结处，紧靠分节符之前，加入下面的复合域（如图二）： if int( page / 2) 2 pae ” atoextBLAKPAGE” 。 这组域代码判断当前的页号是奇数还是偶数,根据判断结果决定是否插入名为BLANPAGE的自动图文集词条。图二 注意域代码中的花括号（“”和“”）是域的标记,不能用输入普通文字的方法输入，每一对花括号必须按一次Ctl+F9输入。如果你经常要执行类似的操作,那么最好的办法还是利用rd宏。下面的CheSecPags宏遍历当前文档,对于文档的每一节,计算该节包含的页数,然后判断页数
9、的奇偶性，必要时插入分页符。SubChekSecPges() Dm Se As Ieer DongAsange i iValu As Inteer ith tieDocmt 依次处理文档的每一节（最后一节除外) For iec = 1 T 。Sectin.ont - 1 创建区域（Rage）对象StoRng = Sections(i）。Rang 将该区域折叠 （折叠之后起始位置和结束位置相同)Rng.Collase wdCllapseStr 插入一个SectionPages域. ectnage域表示一节中的总页数 .FIElds.Ad ange：oRng,Type:=wFildectioPgs
10、 将SctnPages的值除以2。如果余数为,则当前节的页数是 偶数这就是我们要用“奇数页”分节符达到的效果 If (。Seions（Sc)。Rnge.Fis（1)。Reul od2） Te 如果页数是奇数,则在节的分节符之前 插入一个分页符 Se oRng = .Secons（ec).ange With oRng 。olapse Directin:=wCollapsn oveEndunt：=wdharaer，Cot：-1。Insereak ype:=dPaerek End Wih EndIf 删除前面创建的SectioPages域Sctins（Sec）.Rang.ilds（1）.DeeNex
11、 iSEnd Wih Endub 在Wor中，按Al+F11打开VsualBasic宏编辑器，输入ChkePages宏的完整代码,如图三.完成后保存,关闭宏编辑器返回rd。以后，只要运行eckSecPaes宏就可以自动设置空白页，非常方便。支持多种分节符,如图一，其中两种分节符会在必要时自动插入空白页.例如,如果文档中插入了一个“奇数页分节符,而上一节又在奇数页结束,则W会自动插入一个空白的偶数页，使得下一节又属于一个新的奇数页。 但通过这两种分节符自动插入的空白页都存在同样的缺点-它插入的是一个完全空白的页,连页眉/页脚都自作主张地省略了.在实际应用中,自动生成的空白页如果也有普通拥有的页眉/页脚，或者包含“（本页空白）之类的文字,整个文档看起来就更规范一些。但这些问题单纯依靠Word的分节符来自动插入空白页是无法解决的.图一解决这个问题办
