可通过四种方法在word中批量插入表格：一、用excel数据源配合邮件合并；二、用vba宏嵌入多个excel表格；三、用快速部件（autotext）调用预存模板；四、用csv结合查找替换转为表格。
如果您需要在Word文档中快速插入多个表格，而非逐个手动创建，则可以通过批量导入外部数据的方式实现。以下是完成此任务的具体步骤：
一、使用Excel数据源通过邮件合并功能插入多个表格
该方法适用于已有结构化Excel文件（每张工作表或区域代表一个独立表格），利用Word邮件合并机制将多个数据块分别生成对应表格。需确保Excel中各数据区域互不重叠且有明确标题行。
1、打开Word文档，切换到【邮件】选项卡，点击【开始邮件合并】→【信函】。
2、点击【选择收件人】→【使用现有列表】，浏览并选中含多个表格数据的Excel文件，确认工作表名称后点击【确定】。
3、将光标置于文档起始位置，点击【插入合并域】，依次插入字段名（如“序号”“姓名”“部门”）以构建首张表格列头。
4、在列头下方插入一个空表格，行数设为1，列数与字段数一致；选中该表格，点击【邮件】→【更新标签】，再点击【预览结果】查看是否按记录逐行映射。
5、若Excel中存在多个独立数据区域（如Sheet1、Sheet2），需分别保存为单独Excel文件，重复上述流程后将各生成文档内容复制粘贴至主文档。
二、通过VBA宏一次性插入多个嵌入式Excel表格
该方法直接调用Excel对象模型，在Word中生成多个可编辑的嵌入式表格对象，每个表格对应一个预定义的数据范围。要求本地已安装Microsoft Excel应用程序，且启用宏权限。
1、在Word中按Alt+F11打开VBA编辑器，右键【Normal】→【插入】→【模块】。
2、粘贴以下代码片段（需提前将Excel文件路径、工作表名及单元格区域替换为实际值）：
Sub InsertMultipleExcelTables()
Dim xlApp As Object, xlWb As Object, xlWs As Object
Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Open("C:\Data\Tables.xlsx")
Set xlWs = xlWb.Worksheets("Sheet1")
ActiveDocument.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.12", FileName:="", DisplayAsIcon:=False, Left:=0, Top:=0
xlWs.Range("A1:C10").Copy
Selection.PasteSpecial DataType:=wdPasteOLEObject
xlWs = xlWb.Worksheets("Sheet2")
ActiveDocument.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.12", FileName:="", DisplayAsIcon:=False, Left:=0, Top:=0
xlWs.Range("A1:D8").Copy
Selection.PasteSpecial DataType:=wdPasteOLEObject
xlWb.Close False: xlApp.Quit
End Sub
3、关闭VBA编辑器，返回Word，按Alt+F8调出宏列表，选中InsertMultipleExcelTables并点击【运行】。
4、运行完成后，文档中将出现两个嵌入式Excel表格对象，双击可启动Excel编辑界面进行修改。
三、利用Word快速部件（AutoText）批量插入预存表格模板
该方法适合重复使用固定格式的多个表格，例如标准报表、审批单等。需预先将各类表格保存为“快速部件”，后续通过字段代码或快捷键调用，避免重复绘制。
1、新建一个空白Word文档，插入第一个标准表格（如5列×3行），设置好边框、字体、居中等格式。
2、全选该表格，点击【插入】→【文本】→【文档部件】→【将所选内容保存到文档部件库】。
3、在弹出窗口中，输入名称（如“审批表_模板1”），库选择【快速部件】，类别设为【表格】，点击【确定】。
4、对其他类型表格重复步骤1–3，分别命名为“审批表_模板2”“统计表_模板1”等。
5、在目标文档中，按Ctrl+F9插入域代码括号{ }，输入：{ AUTOTEXT "审批表_模板1" }，然后按F9刷新，表格即插入；同理插入其余模板代码。
6、选中全部域代码，按F9批量更新，所有预存表格将按顺序一次性呈现于文档中。
四、通过CSV文件结合查找替换生成多表格文本结构
该方法适用于纯文本数据源（如逗号分隔的CSV），无需Excel依赖，依靠Word通配符查找替换将数据流转换为表格标记语言，再批量转换为表格。要求CSV中每组数据以空行分隔。
1、用记事本打开CSV文件，确保每张待转表格的数据块之间用两个连续段落标记（即空行）隔开。
2、复制全部内容，粘贴至新Word文档，保持原始换行与逗号分隔格式。
3、按Ctrl+H打开替换对话框，勾选【使用通配符】，在“查找内容”栏输入：([!^13]{1,})(\n\n)([!^13]{1,})，在“替换为”栏输入：\1^p^p\3，点击【全部替换】统一段落间距。
4、再次打开替换对话框，关闭【使用通配符】，查找内容输入：,，替换为：^t（制表符），点击【全部替换】将逗号转为制表符。
5、选中第一组数据（含标题行与若干数据行），点击【插入】→【表格】→【文本转换成表格】，列数自动识别，文字分隔位置选【制表符】，点击【确定】。
6、对后续每组数据重复步骤5，直至所有数据块均转为独立表格。
