Word文档页数随意变

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

图四：Word的字体分级

仔细观察图四的列表，每一级之间的距离没有任何规律，有的距离大，有的距离小。微软没有解释这么安排的理由，但可以猜想，如果一段文字既有标题也有正文，用Shrink和Grow方法调整大小时，这种分级安排有利于维持某种平衡。

用FitToPages和Shrink方法缩减文档页数时，应注意两者的工作方式有所不同。Shrink按照预定义的级别缩减字体大小，字体可以小到1磅。FitToPages不同，它按照0.5磅的精度精确调整字体大小，但不允许正文字体小于6磅。

VBA没有提供直接与图三“将字体缩小1磅”、“将字体增大1磅”对应的命令。如果用记录宏的办法获取这两个按钮对应的代码，可得到如下结果：

将字体缩小1磅：Selection.Font.Size = Selection.Font.Size - 1

将字体增加1磅：Selection.Font.Size = Selection.Font.Size + 1

如果选中一段包含多种字体大小的文字，然后点击“将字体缩小1磅”按钮，Word会自动根据原有的字体大小，分别将它们减小1磅。但是，如果将这个操作记录成宏，然后再重新执行这个宏，Word会提示错误“运行时错误4120，参数无效”。有兴趣的读者，可在VB调试器中分析代码的运行过程。对于“将字体增加1磅”按钮，情况也完全一样。可见，对于这两个命令，VBA不支持包含多种字体大小的情形！