Word文档页数随意变

核心提示： 怎么办呢？我们知道，点击“将字体缩小/增加1磅”按钮不会因为存在多种字体大小而出现问题，Word文档页数随意变(4)，因此，只要我们模拟按钮点击动作，因为对于需要精确的场合，它们实在显得太粗糙了，就可以绕过Selection和Font对象，每一个Office的Com

怎么办呢？我们知道，点击“将字体缩小/增加1磅”按钮不会因为存在多种字体大小而出现问题。因此，只要我们模拟按钮点击动作，就可以绕过Selection和Font对象。

每一个Office的CommandBar按钮都有一个数值型的ID属性，“将字体缩小1磅”按钮的ID是310，“将字体增加1磅”按钮的ID是311。只要有了按钮的ID，就可以用CommandBars属性的FindControl方法创建按钮对象，然后利用Execute方法执行与CommandBar关联的操作。也就是说，用下面的代码可以执行“将字体缩小1磅”和“将字体增加1磅”命令：

CommandBars.FindControl(ID:=310).Execute

CommandBars.FindControl(ID:=311).Execute

1.2 调整行距

下面来看看如何模拟WordPerfect第二类调整文档空间的方法，即调整行距。Word有三个内建的命令来调整行距（各个行之间的垂直距离），如图三最下方的三个按钮所示，它们对应的VBA代码是：Selection.ParagraphFormat.Space1，Selection.ParagraphFormat.Space15，Selection.ParagraphFormat.Space2。

Space1方法为指定段落设置单倍行距，准确的间距将取决于各行内字符最大的字号。Space15方法为指定段落设置1.5倍行距，即各段内字符的最大字号加上6磅；Space2方法设置2倍行距，即各段内字符最大的字号加上12磅。

但是，利用这些方法来调整行间距不是最好的办法，因为对于需要精确的场合，它们实在显得太粗糙了。使用“格式->段落”菜单可以更精确地控制行距，如图五所示：