Word文档页数随意变

核心提示： 图二：自动调整文档页数本文的目标是模仿WordPerfect，在Word中实现文档页数自动调整功能，Word文档页数随意变(2)，调整页数的界面如图二所示，用户可以选择调整哪些项目、调整的范围，Word会提示这个错误，也许Word认为这是可以保证文档清晰可读的最小字体，然后点击&ldquo

图二：自动调整文档页数

本文的目标是模仿WordPerfect，在Word中实现文档页数自动调整功能。调整页数的界面如图二所示，用户可以选择调整哪些项目、调整的范围，然后点击“确定”按钮开始自动调整。当然，实现这种功能需要用到Word宏，也就是要用VBA编程。不过本文的代码并不是特别复杂，只要了解一些基础知识，就很容易理解本文的代码。本文的插件适用于Word 2000和XP，文章中凡是涉及菜单名字、对话框的地方，都以Word XP为标准。

一、调整文档占用空间的基本手段

Word提供了七个改变字体大小和调整行距的内建命令，所有这些命令都可以用等价的VBA代码表示。在图三中，我把这些命令和“减少一页”集中到了一个自定义的工具栏上。

图三：调整文档占用空间的内建命令

如果你也想得到这个工具栏，可按如下步骤设置：选择菜单“工具->自定义”，选择“工具栏”选项卡，新建一个工具栏，将它命名为“扩展与缩减文档页数”，然后选择“自定义”对话框的“命令”页，在“类别”列表中选择“所有命令”，接着从“命令”列表把各个命令拖到新建的工具栏上就可以了。

1.1 调整字体

首先来看第一个命令“减少一页”。在Word宏中，该命令对应的VBA指令是ActiveDocument.FitToPages。需要注意的是，调用该指令的代码必须有健全的错误处理机制，因为如果 Word 无法将文档的页数减少一页，则该方法会导致出错。Word的帮助只提到了编号为5538的错误“Word无法按一页缩小文档，因为此文档只有一页”。但在实际应用中，出现另一个编号为5539的错误可能性更大。5539错误的意思是“经过数次尝试，Word无法按一页来缩小文档”。据测试，只要文档的字体被缩小到6磅，Word会提示这个错误，也许Word认为这是可以保证文档清晰可读的最小字体，所以不再继续缩小字体。