[求助] 批量生成word文件，并打印所生成的word文件

3190496160 · 发表于 2022-11-24 21:02

这就是代码生成的结果

生成的文档.rar (80 KB, 下载次数: 10)

dnvjfdeuff · 发表于 2022-11-24 21:09

3190496160 发表于 2022-11-24 21:02
这就是代码生成的结果

我的电脑只能生成二个文件

dnvjfdeuff · 发表于 2022-11-24 21:10

3190496160 发表于 2022-11-24 21:01
在你上传的附件中，根据合同编号，需要生成6个word文档，刚刚又测试了，我这里是可以正常运行的，也生成 ...

我测试N次，就是不行

dnvjfdeuff · 发表于 2022-11-24 21:11

dnvjfdeuff 发表于 2022-11-24 21:10
我测试N次，就是不行

Set wdD = wdApp.Documents.Open(myPath & "采购合同.docx")

这句话出错

dnvjfdeuff · 发表于 2022-11-24 21:14

3190496160 发表于 2022-11-24 21:01
在你上传的附件中，根据合同编号，需要生成6个word文档，刚刚又测试了，我这里是可以正常运行的，也生成 ...

Set wdD = wdApp.Documents.Open(myPath & "采购合同.docx")
这句话出错

dnvjfdeuff · 发表于 2022-11-24 21:20

dnvjfdeuff 发表于 2022-11-24 21:14
Set wdD = wdApp.Documents.Open(myPath & "采购合同.docx")
这句话出错

发现一个问题，生成每个文件时序号应该要从1开始

dnvjfdeuff · 发表于 2022-11-24 21:34

dnvjfdeuff 发表于 2022-11-24 21:10
我测试N次，就是不行

With wdD.Tables(1)
执行到这里说出错

3190496160 · 发表于 2022-11-24 22:25

dnvjfdeuff 发表于 2022-11-24 21:34
With wdD.Tables(1)
执行到这里说出错

代码本身是没错的，而且，我再微软office2019和wps2019中测试一切正常。

dnvjfdeuff · 发表于 2022-11-25 07:18

3190496160 发表于 2022-11-24 22:25
代码本身是没错的，而且，我再微软office2019和wps2019中测试一切正常。

可能是我电脑问题

dnvjfdeuff · 发表于 2022-11-25 07:20

dnvjfdeuff 发表于 2022-11-25 07:18
可能是我电脑问题

是不是我电脑没有连接打印机的原因

		自动登录	找回密码
密码			免费注册