大力茹
怎么才能把excel表里的数据提取到word文档里
如何将excel表里的数据提取到word文档里的解决方法如下：1、复制法。
即将原来的数据直接复制后，在word中进行粘贴，这样数据就直接导入到word文档中了。
2、邮件合并法。
在word中启用邮件合并，按向导的过程分别制作好需要插入的需要，数据源，对应关系，最后执行合并就可以了。
3、程序法。
在word中插入合并域（如果是有规律的表格，可以不用这一步），然后编写vba程序，从excel文件中读取数据，然后写入到word中指定的位置。
上面三个方法中，方法1简单快捷，但是每次都需要操作，如果数据不是连续的块，需要复制粘贴多次，相对来说麻烦一点。
方法2，一次设置可以多次使用，但不够灵活。
方法3方便可以多次重复使用，但需要有一定的编程基础，可以根据工作的实际选择一个最适合的完成这个工作。
如何从EXCEL中提取相应数据批量生成WORD文档
展开全部 准备好将生成文档的数据（excel格式）。
将制式的文档的打开，按照文档每一项的顺序依次插入数据源（下面会用简单的数据作为例子）。
首先点击word工具栏中的引用，然后点击邮件。
3.此时，工具栏中显示是邮件合并，然后点击打开数据源，查找你需要导入的数据表格，点击打开即可。
4.光标落到任意项即可，不分先后顺序，但最好按顺序依次插入。
文档上的项必须和插入域中选中的项一致，然后点击插入，然后点击关闭，依次插完合并域，注：每项插完后必须点击关闭，要不然就是重复插入呦，（注：操作正确的话，默认为数据库域）如果一不小心，在插入合并域时不小心点到工具栏中的其他选项，不要着急，直接点引用-邮件可以继续插入呢 5.全部合并域插完后，是这个样子滴，提醒小伙伴们，一定要再三检查完插入是否正确呦 6.检查无误后，点击工具栏中的合并到新文档 7.最后生成就是这个样子啦 ...
怎样从word中提取数据到excel
如果是一个word中的，复制粘贴；如果是多个word中的，需要写个代码（如下），或者在网上找一下相关的工具。
此方法适用于多个word文档里面的所有表格：1、将多个含有表格的word文档放入一个目录；2、在该目录中新建一个空的excel表格；3、在excel表格中运行以下宏命令，即可。
Sub WordTabletoExcel()Dim WordApp As Object, DOC, mTable, Fn$, Str$On Error Resume Next '设置容错代码CreateObject(＂wscript.shell＂).Run ＂cmd.exe /c dir ＂＂＂ & ThisWorkbook.Path & ＂\*.doc＂＂ /s/b>＂＂＂ & ThisWorkbook.Path & ＂\list.txt＂＂＂, False, True '取得指定目录下的word文档清单Set WordApp = CreateObject(＂word.application＂) '创建word程序项目（用于操作word文档）WordApp.Visible = True '设定word程序项目可见Open ThisWorkbook.Path & ＂\list.txt＂ For Input As #1 '打开清单文件并读取内容While Not EOF(1) '循环读取清单文件各行内容Input #1, Str '输入一行文本到变量str中If Trim(Str) ＂＂ Then '如果文本有效则Set DOC = WordApp.documents.Open(Trim(Str)） '利用word程序项目打开对应的word文档With DOCFor Each mTable In .Tables '循环文档中的各个表格WordApp.Activate '激活word程序，使之窗体前置mTable.Range.Copy '复制表格区域With Windows(1) '激活excel程序窗体，使之前置.ActivateWith ThisWorkbook.ActiveSheet '选中当前使用区A列下面的第一个单元格，并粘贴复制的word中的表格数据.Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1).Select.PasteEnd WithEnd WithNext mTable.Close False '关闭word文档End WithEnd IfWendClose #1 '关闭清单文件If Dir(ThisWorkbook.Path & ＂\list.txt＂) ＂＂ Then Kill ThisWorkbook.Path & ＂\list.txt＂ '删除清单文件WordApp.Quit 'word程序项目关闭Set DOC = Nothing '清空对应项目变量Set WordApp = NothingEnd Sub满意请采纳哟~~~~~~
怎么用vba实现按条件提取word文档中的数据？
直接利用Word“文件”菜单里的“另存为网页”选项，并在弹出的窗口中选择“保存类型”为“网页（*.htm;*html）”。
随后，你很快会获得一个网页文件，并自动生成一个与网页文件名相同的文件夹，其扩展名“.files”。
在这个文件夹里，Word文档中所有的图片都一张张地自动保存为图片文件了。
经测试使用，发现还生成一大一小两张图片。
此方法适用于多图保存。
方法二软件保存法将office自带的PhotoEditor设置成默认的图片器，在word文档中选定需要保存或转换的图片（以前没有使用“Microsoftword”过），从右键菜单中选择“图片”，这时word会自动调用PhotoEditor将图片打开，从“文件”菜单下选择“另存为”命令，在弹出的对话框中我们可以选择保存图片的格式为GIF、JPG、BMP、TIF或者PNG，同时下方还有一个“高级”按钮，可以对图像转换时一些参数进行设置。
此方法适用于经常性需要保存word图片。
方法三POWERPOINT（幻灯片）法把word中的图像，先拷贝到幻灯片中，然后点右键另存为就行了。
方法四zip法打开要提取图片的Word文档，单击“文件”→“另存为”，将文件保存类型设为“Word2007文档（*.docx）”格式，文件名可自定义。
点击“确定”按钮生成一个*.docx格式的文件。
将生成的.docx格式的文件重命名为.zip格式的文件（更改文件的扩展名即可）。
之后会弹出“更改可能会导致文件不可用，确认是否更改”提示对话框，选择“是”。
将生成的zip格式的文件解压缩，然后再在文件的解压缩目录下打开wordmedia文件夹，即可看到提取好的所有Word文档中的图片，而且是每张图片各一张，文件名也是按图片的先后顺序来命名。
转载请注明出处51数据库 » 提取word文档数据
