word文档页数随意变

《word文档页数随意变》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、Word文档页数随意变　　遇到麻烦了吧？老总要你写一份10页的报告，但你却洋洋洒洒写了12页。怎么办呢？重写当然不可能，删掉几段文字？也来不及了，因为再过5分钟会议就要开始。如果ent.FitToPages。需要注意的是，调用该指令的代码必须有健全的错误处理机制，因为如果Word无法将文档的页数减少一页，则该方法会导致出错。Word的帮助只提到了编号为5538的错误Word无法按一页缩小文档，因为此文档只有一页。但在实际应用中，出现另一个编号为5539的错误可能性更大。5539错误的意思是经过数次尝试，Word无法按一页来缩小文档。据测试，只要文档的字体被缩小到6磅，Word会提示这个错

2、误，也许Word认为这是可以保证文档清晰可读的最小字体，所以不再继续缩小字体。　　缩小字体和增大字体两个命令分别对应Selection.Font.Shrink和Selection.Font.Grow，这两个方法可用来调整选中区域的字体大小。Shrink方法把字体缩小一级，如果用户选中的内容字体大小不一，则每种字体大小分别被缩减一级。Grow方法的作用恰好相反。一级这个概念的含义必须说明一下。如果文字的当前大小是20，则比它大一级不是21，而是22；比20小一级的不是19，而是18。也就是说，Word对文字大小级别的解释与格式工具栏上列表框的值对应，如图四所示。　　图四：Word的字体分级

3、　　仔细观察图四的列表，每一级之间的距离没有任何规律，有的距离大，有的距离小。微软没有解释这么安排的理由，但可以猜想，如果一段文字既有标题也有正文，用Shrink和Grow方法调整大小时，这种分级安排有利于维持某种平衡。　　用FitToPages和Shrink方法缩减文档页数时，应注意两者的工作方式有所不同。Shrink按照预定义的级别缩减字体大小，字体可以小到1磅。FitToPages不同，它按照0.5磅的精度精确调整字体大小，但不允许正文字体小于6磅。　　VBA没有提供直接与图三将字体缩小1磅、将字体增大1磅&1234567下一页——..，。rdquo;对应的命令。如果用记录宏的办法

4、获取这两个按钮对应的代码，可得到如下结果：　　将字体缩小1磅：Selection.Font.Size=Selection.Font.Size-1　　将字体增加1磅：Selection.Font.Size=Selection.Font.Size+1　　如果选中一段包含多种字体大小的文字，然后点击将字体缩小1磅按钮，argin、LeftMargin和RightMargin属性属于PageSetup对象，属性的类型是Single，可用来设置或返回页边与文字边缘的距离，单位是磅。如果你不习惯用磅作为计量单位，可以借助转换函数使用自己熟悉的单位，例如英寸。例如，下面的例子中，InchesToPoi

5、nts函数把1.5英寸转转成108磅（1英寸等于72磅）：argin=InchesToPoints(1.5)　.RightMargin=InchesToPoints(1.5)EndWith　　PageSetup对象属于Section对象上一页1234567下一页——..，。。也就是说，如果一个文档包含多个节（Section），就可以提取出多个PageSetup对象，每一个PageSetup对象可能有不同的边距。所以，如果文档包含多个节且各个节的左边距不同，下面的代码不能得到正确结果，它将返回ent.PageSetup.LeftMargin　　如果要调整整个文档的边距，就必须分别处理各个节

6、的边距，如下面的例子所示。这段代码首先获取各个节的当前左、右边距，然后把它们缩小20%：DimObjSectionAsSectionForEachObjSectionInActiveDocument.Sections　argin=.LeftMargin*0.8　　.RightMargin=.RightMargin*0.8　EndarginLeft（4），adjMarginRight（8），adjMarginTop（16），andadjMarginBottom（32）。如果忽略，则默认是adjAll常量（63），即前面6个选项的组合。NumTargetPages必需，Long，可读写。指定

7、目标页数，与现有页数的差距不能超过50%。　　MinLeftMargin　　MinRightMarginMinTopMarginMinBottomMargin可选，Single。用来指定必须保留的最小边距，可用来防止边距缩小得太多以至于超出打印机允许的范围。如果忽略，默认保留的最小边距是文档第一节边距的70%。MinFontSize可选，Single。指定正文样式的字体最小可以调整到多少。如果忽略，则默认最小允许的字体是6磅。Min