批量生成word文档(批量生成Word文档一对多)

如何利用Excel表格中的数据批量生成文档？

万能的vba可以实现。下面这段代码所实现的功能就是从EXCEL读取数据后批量生成WORD文档的。

Dim gjzArr(1 To 100, 1 To 2) '1-关键字 2-值

Dim gjzGs As Integer

Dim gjzZD 'key-关键字 item-序号

Sub scbG(x As Integer)

On Error GoTo err

Dim lastHH As Integer

Dim I As Integer, J As Integer

Dim MB As String

Dim TName As String

Dim hzMc As String

Dim wordApp

Dim myDoc

Dim Str1 As String, Str2 As String

Application.ScreenUpdating = False

gjzGs = 0

Set gjzZD = CreateObject("SCRIPTING.DICTIONARY")

'读取B列的值

Call dqsJ(2)

'读取D列的值

Call dqsJ(4)

'读取F列的值

Call dqsJ(6)

MB = Trim(Range("P2").Text)

hzMc = Split(MB, ".")(1)

TName = ThisWorkbook.Path & "\报告\" & gjzArr(gjzZD("B7"), 2) & "." & hzMc

FileCopy MB, TName

Set wordApp = CreateObject("word.application")

wordApp.Visible = True

Set myDoc = wordApp.DOCUMENTS.Open(TName)

myDoc.Unprotect Password:="123456"

myDoc.Activate

With wordApp.ActiveWindow.View

.ShowRevisionsAndComments = False

.RevisionsView = wdRevisionsViewFinal

End With

Dim Bj As Boolean

With wordApp

'关键字替换

For J = 1 To gjzGs '

Str1 = "&" & gjzArr(J, 1) & Space(1)

Str2 = gjzArr(J, 2)

Bj = True

Do While Bj

.Selection.HomeKey Unit:=wdStory '光标置于文件首

If .Selection.Find.Execute(Str1) Then '查找到指定字符串

.Selection.Text = Str2 '替换字符串

Else

Bj = False

End If

Loop

Next J

End With

'写入表格内容

Dim myTable

'表一填写

Set myTable = myDoc.Tables(1)

myTable.Range.Cells(2).Range.Text = gjzArr(gjzZD("B24"), 2) '房屋权证号

myTable.Range.Cells(4).Range.Text = gjzArr(gjzZD("B20"), 2) '房屋所有权人

myTable.Range.Cells(6).Range.Text = gjzArr(gjzZD("B26"), 2) '产别

myTable.Range.Cells(8).Range.Text = gjzArr(gjzZD("B21"), 2) & gjzArr(gjzZD("B22"), 2) & gjzArr(gjzZD("B23"), 2) '房屋坐落

myTable.Range.Cells(18).Range.Text = gjzArr(gjzZD("B27"), 2) '幢号

myTable.Range.Cells(19).Range.Text = gjzArr(gjzZD("B28"), 2) '房号

myTable.Range.Cells(21).Range.Text = gjzArr(gjzZD("B29"), 2) '总层数

myTable.Range.Cells(22).Range.Text = gjzArr(gjzZD("B30"), 2) '所在层数

myTable.Range.Cells(23).Range.Text = gjzArr(gjzZD("B31"), 2) '建筑面积

myTable.Range.Cells(27).Range.Text = gjzArr(gjzZD("B25"), 2) '房屋共有人

If myDoc.Revisions.Count >= 1 Then myDoc.Revisions.AcceptAll

myDoc.Protect Password:="123456", NoReset:=False, Type:=wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False

myDoc.Save

myDoc.Close

wordApp.Quit

Application.ScreenUpdating = True

MsgBox ("报告已经完成")

Exit Sub

err:

MsgBox ("同名文件已经打开，请关闭后重新运行！")

End Sub

Sub dqsJ(Lh As Integer)

Dim lastHH As Integer

If Lh <= 1 Then

MsgBox ("不可选择小于等于1的列")

Exit Sub

End If

lastHH = Cells(1000, Lh - 1).End(xlUp).Row

For I = 1 To lastHH

If Trim(Cells(I, Lh - 1).Text) <> "" Then

gjzGs = gjzGs + 1

myT1 = Replace(Cells(I, Lh).Address, "$", "")

myT2 = Cells(I, Lh).Text

gjzZD.Add myT1, gjzGs

gjzArr(gjzGs, 1) = myT1

gjzArr(gjzGs, 2) = myT2

End If

Next I

End Sub

批量生成word文档(批量生成Word文档一对多)

如何用word批量制作文件

使用邮件合并，建立一个Excel文件，在A1填上“号码”，从A2开始自动填充这一千多个号码，保存，再建立Word文档，设计好门票的文字等，留出号码的位置，保存，将光标置于要填号码的位置，工具菜单－信函与邮件－邮件合并－目录－下一步－使用当前文档－下一步－使用现有列表，底下点“浏览”，选定你刚保存的有号码的excel文件－一路确定－下一步（撰写信函）－点“其他项目”－选“号码”，点插入，在word中就会出现“《号码》”域－下一步（预览信函）－完成合并－创建新文档（合并到新文档，有多少个号码，就生成多少张门票，可保存下来，慢慢打印）

谁知道怎样批量新建空白WORD文档！希望操作方便！谢谢！

word是基于Windows操作系统的应用程序，在DOS下好像不能用。

不过办法总是有的，你可以在某个文件夹下先建一个空白的word文档，如命名为"abc.doc"，然后利用copy命令，如其他文件名依次为：abc1.doc、abc2.doc、abc3.doc、……

将下列文字（可在excel中生成，再复制）复制到文本文件中（txt格式的文件，下例以创建12个文件为例，当然10000个文件也没问题）

copy

abc.doc

abc1.doc

copy

abc.doc

abc2.doc

copy

abc.doc

abc3.doc

copy

abc.doc

abc4.doc

copy

abc.doc

abc5.doc

copy

abc.doc

abc6.doc

copy

abc.doc

abc7.doc

copy

abc.doc

abc8.doc

copy

abc.doc

abc9.doc

copy

abc.doc

abc10.doc

copy

abc.doc

abc11.doc

copy

abc.doc

abc12.doc

然后将此文本文件的后缀“.txt“更改为“.bat"，确定，执行此文件即可。

Excel+Word！批量生成各类办公文档！自动高效，办公首选！

对于HR、其他文员等岗位的朋友，每天都要做各类Excel、Word等文档，如： 面试通知书、员工工资条、工作证、简历表、收据等 ，是否很费时？

类似这些重复性的工作，小可劝大家不要再逐个操作啦！

巧用邮件合并功能，就能批量生成各种办公文档，想要生成多少份都OK！ 还能以邮件的形式批量发送、批量打印，非常快速方便！

1、 批量生成并打印收据

步骤1

对收款数据加工处理

如下GIF，步骤：

① 打开公司提供的Excel收款表 -删除表头 - 新插1列 - 命名为：“大写 ”。

② 对【金额】进行大写转换 - 保存，即可。

学会再也不愁！

步骤2

邮件合并

如下GIF，步骤：

① 点击【邮件】- 选择收件人 - 使用现有列表 - 选中“收款表” - 确定。

② 选中相应的目标区域 - 点击【插入合并域】- 选择相应的字段插入到相应的区域。

③ 点击【预览结果】- 选择向右的箭头，浏览记录。

④ 点击【完成合并并打印】 - 打印文档 - 确定，就ok！

利用 邮件合并功能打印准考证 ，相信很多小伙伴都用过。

可是却存在很多没有解决的问题 ，比如：不能打印对应的照片，或是照片无法更新等。

接下来小可就教大家搞定它！

2、 批量打印带照片的证件

步骤1

整理数据源及照片

如下GIF，进行前期材料准备：

① 考生的照片等相关文件，最好都放到一个文件夹下面。

② 将照片，要以姓名命名。

接下来，开始大展身手啦！

如下G IF， 步骤：

① 删除Excel表头，也就是第一行数据必须为准考证号、姓名等数据，不能添加其它的说明性表头。

② 复制粘贴：照片文件夹路径，到Excel表。

③ 照片文件夹路径中的反斜杠，全部替换为双反斜杠。

注意 （不要弄错，大部分人就是弄错这个细节） ：

步骤2

邮件合并

如下G IF，步骤 ：

① 在Word中，制作好模板。

② 邮件合并（插入文字信息）。

方法：

1、【邮件】-【开始邮件合并】-【目录】。

2、【选择收件人】-【使用现有列表】-找到信息数据的存放位置，并打开-【确定】。

3、 将【插入合并域】中的【姓名】、【性别】、【身份证号】、【准考证号】、【考点】插入到相应的位置上。

注意：

③ 邮件合并（插入照片）。

方法：

1、点击【插入】- 文档部件 - 域 - IncludePicture，在【文件名或URL】处输入：照片 - 确定。

#Excel培训,#PPT培训,#秒可职场,#职业培训,#在线教育平台

2、选中照片显示控件，并调整其大小。

3、按Alt+F9键，选中“照片”。

4、【邮件】-【插入合并域】- 输入：照片，按Alt+F9键。

5、点击【预览结果】，并按F9键刷新。

步骤3

批量生成准考证

如上G IF，步骤 ：

① 单击【预览结果】-【完成并合并】-【编辑单个文档】-【全部】-【确定】。

② 生成了一个新的文档，用Ctrl+A全选稳定，并按F9键更新数据。

③ 查阅核对数据，大功告成哦，剩下的就是直接打印啦！

今天秒可职场分享的这些实用的技巧，你学会了嘛？灵活运用最重要~建议分享给你的朋友哟！

如何从EXCEL中提取相应数据批量生成WORD文档

准备好将生成文档的数据（excel格式）。将制式的文档的打开，按照文档每一项的顺序依次插入数据源（下面会用简单的数据作为例子）。

首先点击word工具栏中的引用，然后点击邮件。

3.此时，工具栏中显示是邮件合并，然后点击打开数据源，查找你需要导入的数据表格，点击打开即可。

4.光标落到任意项即可，不分先后顺序，但最好按顺序依次插入。文档上的项必须和插入域中选中的项一致，然后点击插入，然后点击关闭，依次插完合并域，注：每项插完后必须点击关闭，要不然就是重复插入呦，（注：操作正确的话，默认为数据库域）如果一不小心，在插入合并域时不小心点到工具栏中的其他选项，不要着急，直接点引用-邮件可以继续插入呢

5.全部合并域插完后，是这个样子滴，提醒小伙伴们，一定要再三检查完插入是否正确呦

6.检查无误后，点击工具栏中的合并到新文档

7.最后生成就是这个样子啦

哪里有根据文本中的内容批量生成不同文件名的word文档软件?

要实现要求的操作，需要进入dos状态：

1、程序--〉附件--〉命令提示符：

2、为了操作方法，我们把所有的word复制进D盘“1”这个文件夹内。

3、转到D盘文件夹“1”，先按D：回车

4、接着按cd D:\1回车（cd与1之间要一个空格符）

5、输入命令dir *.* >>abc.txt（意思为显示当前文件夹下所有内容，并且把显示的内容存在（同时也是新建）abc.txt这个文本文件中。

6、关闭命令提示符窗口，在正常windows状态下，可以查看到该txt文件内容：

7、复制粘贴该文件内容至word，稍加编辑，至可达到想要的目的。