通过Excel+Word批量生成文档及批量提取和修改文档名字

excel和word是日常的办公软件,最近老师给了我一个任务,任务内容如下:
给了我一个班级同学成绩单excel表格和一个给家长的一封信word模板,在word模板中有相应的成绩表格要填写,即:我要去创建全部同学对应的文档,文档中成绩也必须对应每个同学的成绩,同时文档的命名格式也要改成:致某某家长的一封信。
这么多份文档要生成,还要填写每份的成绩并修改名字,一个个复制粘贴,肯定麻烦,故乘此机会简单了解了一下如何批量生成文档和并进行批量修改名字,并做记录。

  1. Excel数据准备
    表中的数据必须是横向分布的,需要用到的数据都必须带有表头,如下表为正确格式:
    在这里插入图片描述
  2. 打开word模板,通过邮件中的导入数据合并的方法批量生成文档(本人使用的是WPS,OFFICE也是一样的操作方法)。
    *(1)word --> 引用 --> 邮件 --> 打开数据源 -->选择Excel数据表
    在这里插入图片描述
    在这里插入图片描述
    (2)光标放到需要填入数据的位置–> 点击插入合并域 --> 弹出框内选择需要插入的数据表头 --> 把所有的需要插入数据的地方都按照这个方式弄好 --> 点击查看合并数据即可预览效果
    在这里插入图片描述
    在这里插入图片描述
    在这里插入图片描述
    (3)选择 合并到新文档 或者 合并到不同新文档,操作完成,稍微等待,即可得到批量的文档在这里插入图片描述
  3. 这里文档的命名不符合我们的要求,还需要再进行批量修改。
    累了,不想写了QAQ,自己看链接去吧,
    批量修改文件名链接

记录一下脚本代码:

提取文件名代码:DIR "." /B> 文件名.txt
修改文件名代码:REN 旧的文件名.docx 新的文件名.docx

4.Excel中创建全部的 修改文件名的代码:
在这里插入图片描述

Excel VBA可以通过自动化Word应用程序来批量生成Word文档。具体的实现过程如下: 1. 在Excel中,首先需要创建一个具有必要数据数据源。可以将数据存储在Excel表格中,也可以使用其他文件数据源。 2. 在VBA中,使用创建Word应用程序对象的代码来创建Word应用程序实例。如下所示: Dim wordApp As Object Set wordApp = CreateObject(“Word.Application”) 3. 然后,使用Word应用程序对象中的不同方法属性来创建Word文档。如下示例代码: Dim wordDoc As Object Set wordDoc = wordApp.Documents.Add 4. 确定或使用数据源的内容来更新Word文档。如下代码示例: Dim table As Object Set table = wordDoc.Tables.Add(Range:=wordDoc.Range(0, 0), NumColumns:=3, NumRows:=5) With table '设置表头 .Cell(1, 1).Range.Text = "姓名" .Cell(1, 2).Range.Text = "学号" .Cell(1, 3).Range.Text = "分数" '设置数据 .Cell(2, 1).Range.Text = "张三" .Cell(2, 2).Range.Text = "20200901" .Cell(2, 3).Range.Text = "88" .... End With 5. 将文件保存到指定的文件夹或位置。如下所示: wordDoc.SaveAs (“C:\Users\myfolder\file1.docx”) 6. 完成后,关闭Word应用程序实例并释放所有对象,以避免内存泄漏。如下所示: wordApp.Quit Set wordDoc = Nothing Set wordApp = Nothing 在以上的示例代码中,可以根据需要进行修改,以满足所需的文档样式内容。通过Excel VBA来生成Word文档,可以实现高效、快速、准确地批量生成文档
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

莽晨

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值