[求助]如何每一页判断剩下的空间（附件已上传）

simatyga

我需要用VBA做一个表格系统，表格的每一行的内容从数据库中读取，内容可变，表格不止一页，在第一页的最后三行要留出来擦入另外一张表，用来放审核签名，第二页再继续插那个数据库对应的表，表头标题栏要重复。

我用循环读一条记录插一行表格，但是记录中的条目的字数不一样，占的行数也不一样，但我怎么才能知道该页只剩下3行来擦另外一张表呢。

样表已经上传，我要做一个输入界面，在输入界面中输入【单位名称】【标识与编号】【检验员】等信息。然后自动生成这张表 表中有多个大项（项目一到项目十，可能更多）。每个大项下面有小项，数目和内容也不定，大项和小项在两张数据库表中，另外有 程序修改。

我是用双重循环插表格，读一条记录查一行表格，主要问题是，审核那部分必须在第一页的最下方，我想在循环的中间用一个if判断该页 的剩余的空间，然后插入审核部分的表。现在这个if不会写。

我是初学VBA for Word，不知道这个思路行不行。请斑竹指点。

另外问一下，我用的是Word 2000的VBA，一不小心把窗口弄乱了，原来工程管理，属性和代码窗口都布局的很好，现在分成一个一个了，怎么才能还原

NKvxtOZA.rar (8.46 KB, 下载次数: 16)

2005-8-4 14:35 上传

点击文件名下载附件
[求助]如何每一页判断剩下的空间（附件已上传）

[此贴子已经被作者于2005-8-4 14:35:18编辑过]

守柔

请楼主上传你的附件，我看一下，应该不难搞定，问题是，需要有具体地实样。

守柔

一：你的数据库文件呢？

二：VBE界面，重新拖回原有位置即可。

三：我时间有限，今天做不了了，有时间我会尽快试着做一下。

simatyga

谢谢斑竹热心的帮助，数据库已上传，比较简单，两张表，一张放大项目的内容，一张放小项目的内容（还没有填全），有一个字段表示所属的大项。

表格中其他的内容都是在程序中的界面获得。

d71W74MY.rar (9.91 KB, 下载次数: 15)

2005-8-4 17:11 上传

点击文件名下载附件
[求助]如何每一页判断剩下的空间（附件已上传）

守柔

我觉得使用页脚即可达到你想要的目的了，只是表格之间有所距离（可适当调整）

simatyga

我也考虑过使用页脚可以很方便的实现这个功能，但是毕竟审核不是页脚，页脚中插入这么大一张表还不太习惯，而且对页脚的编辑还要双激，如果不是用程序，用手工做的话一般是不会放到页脚中。我希望的使用程序做出来的和手工作出来的是一样的效果，不仅仅是打印看上去一样。

谢谢斑竹的帮助，我想也就是没有直接的函数来判断剩下的空间，如果是我就只能用笨办法，通过用一个总的高度减去前面插入的每个表格的高累加来得到。