简单明了的邮件合并，Excel数据每行批量到Word模板

常扬帆 · 发表于 2024-4-23 06:44

插入照片不行吧？看附件。

1013182120 · 发表于 2024-4-23 14:15

lizhipei78 发表于 2024-4-22 23:13
期待你的精彩作品

楼主您好，用了你的逆向提取，从word提取数据到excel，在2013版办公软件提取数据没有问题，但是在2021版就取空白，能解决下吗。

lizhipei78 · 发表于 2024-4-23 18:59

1013182120 发表于 2024-4-23 14:15
楼主您好，用了你的逆向提取，从word提取数据到excel，在2013版办公软件提取数据没有问题，但是在2021版 ...

一般word与Excel之间提取数据，会比较容易出错，特别是WPS，我的代码测试有时候也出错，最好还是单纯Word版吧，速度又快，提取好数据好，手动复制到Excel就好。
我最近没有什么心思研究这个了，论坛内高手有好多类似的，比我的要写的要好，你搜索一下。且还有特别的工具。

mythqiu · 发表于 2024-4-23 19:12

本帖最后由 mythqiu 于 2024-4-23 23:08 编辑

1013182120 发表于 2024-4-22 22:14
能分享下吗

可以测试下，已经修正错误

mythqiu · 发表于 2024-4-23 21:52

1013182120 发表于 2024-4-23 14:15
楼主您好，用了你的逆向提取，从word提取数据到excel，在2013版办公软件提取数据没有问题，但是在2021版 ...

注意，我这个是加载宏。你要开发工具加载宏，加载这个文件。那你搜一下论坛如何加载Xlam

猫猫__ · 发表于 2024-5-2 02:15

作者能否优化增加自定义选择模板功能，省得替换模板每次都得改名一次

summeren · 发表于 2024-5-18 16:28

可乐的乐发表于 2024-4-17 16:40
你好，问一下那个插入图片是怎么搞的

我用了下面这段代码：

                                          With wdDoc.Tables(1)
                                             ' 在第一行第七列插入图片
                                             .cell(findrow, findcol).Range.InlineShapes.AddPicture (imgPath1)
                                             '设置图片的高度和宽度，确保一致
                                             .cell(findrow, findcol).Range.InlineShapes(1).Height = imgHeight
                                             .cell(findrow, findcol).Range.InlineShapes(1).Width = imgWidth
                                          End With

lizhipei78 · 发表于 2024-5-28 19:05

sunshuangzhong 发表于 2023-12-13 14:13
能否加照片，比如批量生成准考证

发现加入照片还是一个实用的功能，初步弄了Word版，支持插入多张图片。稍后再弄Excel版的，麻烦测试一下，并且提一下要求。

根据模板批量生成文档（支持插入图片）.rar (606.02 KB, 下载次数: 27)

lizhipei78 · 发表于 2024-5-28 19:06

常扬帆发表于 2024-4-23 06:44
插入照片不行吧？看附件。

已经支持插入图片

根据模板批量生成文档（支持插入图片）.rar (606.02 KB, 下载次数: 80)

lizhipei78 · 发表于 2024-5-28 19:23

单纯Word板（可插入图片）.rar (612.68 KB, 下载次数: 112)

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

[分享] 简单明了的邮件合并，Excel数据每行批量到Word模板