要将Word文件中的内容通过程序读取到数据库中，怎么通过VBA来实现

Sub abc() Dim App, WrdDoc, MyPath, MyFile, BM, Str Mypath = "文件实际路径\doc" '请修改实际储存路径！ Set App = CreateObject("WordApplication") '用Set关键字创建Word应用成序对象！ MyFile = Dir(Mypath) ' 获得第一个WORD文档 do w

选择表格第一行的内容右键点击复制，在新的区域点击鼠标右键粘贴；

因为是逐个粘贴，文本自然没有边框，将表格内的内容提取出来采用如此方法重复多次即可，之前的方法虽然简单，但当数量比较多时非得让手抽筋不可。

现在介绍个简单的方法，当鼠标移动到表格区域的时候在表格的左上角会出现一个符号，点击这个符号，点击之后整个表格都被选中；

选中表格之后点击右键选择复制，复制之后在新的区域选择鼠标右键，在d出的菜单中选择最后一个粘贴，粘贴文本；

点击粘贴之后表格中的所有内容都被提取了出来，这样只要一个回合就可以完成之前多步的 *** 作，轻松不少。粘贴为文本以后原来表格中的格式全部都被去除，如果需要原来表格的文字格式则需要重新设置，除此之外，当旧的表格不再需要的时候则还要手动去删除之前旧的表格。

另外再介绍一种一步到位的方法，即保留了原本文字的格式同时又去除掉表格框而且不用再另外去删除之前的旧表格，选择整个表格以后点击布局工具栏中的转换为文本，在d出的对话框中点击确定；

相比较之前的方法更加的方便快速，如此一个回合word中的表格边框被删除，而且文字保持了原有样式。

改表格的序号和单元格，你没有问题吧？

ActiveDocumentTables(1)Cell(3, 3)Select

SelectionCopy

ActiveDocumentTables(1)Cell(2, 2)Paste

ActiveDocumentRange(ActiveDocumentParagraphs(1)RangeStart, ActiveDocumentParagraphs(1)RangeStart)Select

SelectionPasteAndFormat wdFormatPlainText

解释：

Tables(1)取第一个表格，改数字为要取的表格

Cell(3, 3)取第3行第3列，改数字为要取的小格

SelectionCopy复制到剪贴板，

在第一个表格的第2行第2列粘贴

在本文档的第一个段落前粘贴 文本

以上就是关于要将Word文件中的内容通过程序读取到数据库中，怎么通过VBA来实现全部的内容，包括:要将Word文件中的内容通过程序读取到数据库中，怎么通过VBA来实现、vb如何提取word表格中的数据、100求：word的VB程序中需要提取word中其中一个表格内的内容时怎样提取等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！