[求助]求助高手！！！能否通过VBA代码实现成绩单的生成，并能够批量预览、打印的

约定的童话 · 发表于 2022-1-7 18:59

顽火的辉石发表于 2022-1-7 13:04
你这是通过VBA插入图片吧

文字内容跟图片都可以实现，实在没人帮你CALL我

nevercool · 发表于 2022-1-9 11:26

批量生成excel版

顽火的辉石 · 发表于 2022-1-9 17:19

nevercool 发表于 2022-1-9 11:26
批量生成excel版

您好！你这个我下载下来没有看到任何的代码或者操作链接呢

nevercool · 发表于 2022-1-9 18:23

顽火的辉石发表于 2022-1-9 17:19
您好！你这个我下载下来没有看到任何的代码或者操作链接呢

这是生成导出的文件。你这种形式的批量成绩单以前我还没做过，试着做了一下。因为不是在excel中写的，代码不能直接用。如你需要可以给你批量导出来

新人求罩 · 发表于 2022-1-10 19:18

本帖最后由新人求罩于 2022-1-10 19:20 编辑

见附件及代码，目前代码word页脚部分不知道怎么修改，其他部分已调试完成，建议先把打印段的代码注释掉，看生成的word文档是否正确及调整哈...

VBA 代码在启用宏的excel中... 个人能力有限，不知道怎么修改页脚，望有缘人补全....

C:\Users\FM\Pictures\12345.png

顽火的辉石 · 发表于 2022-1-11 12:52

新人求罩发表于 2022-1-10 19:18
见附件及代码，目前代码word页脚部分不知道怎么修改，其他部分已调试完成，建议先把打印段的代码注释掉，看 ...

您好，能增加一段代码，将所有学生的成绩单放到同一个word中，因为有几个表格超出了1页，可以单独调整一下页面。

新人求罩 · 发表于 2022-1-11 14:24

顽火的辉石发表于 2022-1-11 12:52
您好，能增加一段代码，将所有学生的成绩单放到同一个word中，因为有几个表格超出了1页，可以单独调整一 ...

合并成一个，可以打开一个空白的word文档，用插入 - 对象 - 文件中的文字选择所有要合并的word文档点击确定即可。
页面调整的话，也可以，只是需要明确什么条件下需要调整，记录多久删减点(只显示前几个)，保证一个页面，还是第2页没多少字符的情况下调整为一个页面。

顽火的辉石 · 发表于 2022-1-12 17:14

新人求罩发表于 2022-1-11 14:24
合并成一个，可以打开一个空白的word文档，用插入 - 对象 - 文件中的文字选择所有要合并的word文档点 ...

我想在后面加上一张印章图片（浮于文字上方），能随着表格的变化自动调整位置。但是我把它插入模板后，运行代码就会没了，证件照也变形了

顽火的辉石 · 发表于 2022-1-12 17:26

新人求罩发表于 2022-1-11 14:24
合并成一个，可以打开一个空白的word文档，用插入 - 对象 - 文件中的文字选择所有要合并的word文档点 ...

想要在模板后面插入一个印章，浮于文字上方，但是运行代码后，生成的结果印章就没有了，证件照也变形、跑偏了，这有解决的办法吗？

新人求罩 · 发表于 2022-1-27 15:04

顽火的辉石发表于 2022-1-12 17:26
想要在模板后面插入一个印章，浮于文字上方，但是运行代码后，生成的结果印章就没有了，证件照也变形、 ...

但是证件照的位置是手动调整的，当只有一个图片的时候没问题，如果增加印章就需要再次手动调整下位置的

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

[求助] [求助]求助高手！！！能否通过VBA代码实现成绩单的生成，并能够批量预览、打印的

评分