Word文档页数随意变

图五：指定行距的六种规则

“段落”对话框允许按照六种不同的规则指定行距。如果指定了后面三种规则之一，还必须指定“设置值”。与此对应，在Word VBA中，行距是由两个属性控制的：LineSpacingRule和LineSpacing。Paragraph、ParagraphFormat、Paragraphs集合对象都提供了这些属性。行距的规则通过LineSpacingRule属性值设定，可以指定的常量值包括：wdLineSpaceSingle、wdLineSpace1pt5、wdLineSpaceDouble、wdLineSpaceAtLeast、wdLineSpaceExactly和wdLineSpaceMultiple。如果把规则设置成后面三个常量值之一，同时还必须设定LineSpacing属性。LineSpacing属性用来返回或设置指定段落或范围的行距，单位是磅。要在文档中扩展或收缩文字，最好把LineSpacingRule属性设置成wdLineSpaceMultiple。这样，我们可以让行距总是和段落中最大字体的大小有关。例如下面的代码将当前文档所有段落的行距增加百分之三：

With ActiveDocument.Paragraphs

.LineSpacingRule = wdLineSpaceMultiple

.LineSpacing = LinesToPoints(1.03)

End With

这里用到了LinesToPoints方法。这个方法用来把度量单位从行转换为磅（1行=12磅），返回值是Single类型。按照这种方法，行距值可以调整到相当精确的程度。但应当注意的是，Word会以二十分之一磅为单位调整最终的行距。例如在上面的例子中，最终的行距不是12.36磅（1.03 X 12），而是12.35磅。　　为了便于阅读，最好不要将行距缩小到90-92%（约11磅）以下。如果小于这个值，行的高度可能不够，某些文字的顶端或末端可能被切割。但是，如果要扩展一个文档，这种办法是非常理想的，不仅效果显著，而且永远不会影响文档的可读性。1.3 页边距　　WordPerfect允许修改页四边的空白距离，下面来看看如何在Word中作类似的调整。不过首先需要注意的是，无限制减小页边距不一定安全，因为可能与打印机支持的边距范围产生冲突。另外，如果文档包含页眉、装订线等，调整整个文档的边距之后可能会出现意外的结果。　　在Word VBA中，与四种边距对应的TopMargin、BottomMargin、LeftMargin和RightMargin属性属于PageSetup对象，属性的类型是Single，可用来设置或返回页边与文字边缘的距离，单位是磅。如果你不习惯用磅作为计量单位，可以借助转换函数使用自己熟悉的单位，例如英寸。例如，下面的例子中，InchesToPoints函数把1.5英寸转转成108磅（1英寸等于72磅）：With ActiveDocument.PageSetup　.LeftMargin = InchesToPoints(1.5)　 .RightMargin = InchesToPoints(1.5) End With