主题：word 报表给生成的报表中段落编号问题

出情况差

销售部:

1、(省外)派出二娃。赴石河子出差。

2、派出二娃。赴深圳出差。

服务部:

1、(省外)派出李。赴迪拜出差。

2、(省外)派出李思。赴广州出差。

生产部:

联络部:

1、(省外)派出哈哈。赴美国出差。

2、派出李仪。赴南昌出差。

3、派出王二。赴南京出差。

4、(省外)派出哈哈。出差。

但问题是前面建议的那种方法，给的 for each dr as datatrow in dataTables("表A").select("部门='" & s1 & "'")   这行代码显示错误，不知怎么改。所以自己写了代码想要实现，但由于每个部分自动从1开始编号的代码始终没有写对，结果生成的报表，每段没有序号，且无端多出很多空行，如下：

出情况差

销售部:

(省外)派出二娃。赴石河子出差。

 派出二娃。赴深圳出差。

服务部:

(省外)派出李。赴迪拜出差。

(省外)派出李思。赴广州出差。

生产部:

联络部:

(省外)派出哈哈。赴美国出差。

 派出李仪。赴南昌出差。

 派出王二。赴南京出差。

(省外)派出哈哈。出差。