Word文档页数随意变

核心提示： '调整行距,略...'调整边距,略...End WithEnd SubPrivate Sub UndoAll()'撤消所有调整页数的操作,略...End Sub可以看到，扩展页数的过程（StretchToFit）比较简单，Word文档页数随意变(10)，缩减页数的过

'调整行距,略...

'调整边距,略...

End With

End Sub

Private Sub UndoAll()

'撤消所有调整页数的操作,略...

End Sub

可以看到，扩展页数的过程（StretchToFit）比较简单，缩减页数的过程（ShrinkToFit）稍微复杂一点。代码的主要思路是：每次调整字体大小、行距或边距之后，检查一下CurPageCount属性，看看是否已经达到目标页数。如果已经达到，调整过程结束，Execute方法返回True；如果调整之后页数变得太多（或太少），例如缩小字体之后页数小于目标页数，则撤消最后一次操作，尝试另一种调整页数的办法。当所有调整页数的办法都已经试遍，而页数仍未能达到要求，则Execute返回False。

建议至少用字体和行距两种办法调整文档的页数，这样可以大大增加调整成功的可能性。当然，不能排除未能达到目标页数的情形出现，导致这种情形的主要原因可能是文档包含太多手工插入的分页符、大型图片，或者是因为目标页数和现有页数的差距太大。

三、设计用户界面

前面介绍了调整文档页数的核心思路和代码。下面来看看制作用户界面的过程。用户界面主要包括两部分：菜单和对话框。图六是加入到“文件->打印预览”前面的“调整页数”菜单。

图六：“调整页数”菜单

“调整页数”菜单包括三个选项。第一个选项允许指定目标页数，然后根据默认的参数执行调整操作。第二个选项等同于Word的“减少一页”功能，但原来这个功能只能在打印预览状态下使用。第三个选项显示出图二的对话框，用户自定义调整页数的参数，然后点击“确定”按钮开始调整页数。如果用户试图调整文档页数时，文档没有保存，会出现图七的提示。