批量提取多个word中的文字 如果批量提取多个WORD的文件名

假如你d:\word目录下

复制如下代码:

dir d:\word\*.doc >d:\word.txt

在桌面新建一个文本文档，将代码粘贴进入，将文本文档的后缀名改为.bat

双击运行，它会把d:\word目录下的word文件全部找出来写在d:\word.txt文件里。。。

word批量提取文字

是可以简洁操作的，步骤：

1.全选文字区域，ctrl+F

查找：

<(品牌:)*(面料)>

下面的高级选项中勾选使用通配符，其他不勾选

查找全部

将此时被选区域复制到新的文档

此时为：

品牌:童语坊 款式:女童短袖T恤 面料

品牌:幸运熊 款式:短袖T恤 面料

品牌:童语坊 款式:短裙 面料

品牌:童语坊 款式:女童短裤 面料

品牌:童语坊 款式:中裤 短裤 面料

2.在新文档中，ctrl+h，

查找：面料

替换留空

替换全部

此时为：

品牌:童语坊 款式:女童短袖T恤

品牌:幸运熊 款式:短袖T恤

品牌:童语坊 款式:短裙

品牌:童语坊 款式:女童短裤

品牌:童语坊 款式:中裤 短裤

ok，大功告成！

以上均实际操作通过，不还有不明请HI我。

祝你成功！

如何从多个WORD文件中提取想要的文字到EXCEL里

方法如下：

　　1、首先，打开媒介工具“记事本”，将word文件里需要导入的数据，复制粘贴到记事本当中，然后保存成为txt文件，本例中将txt文件取名为“1.txt”。

　　2、打开excel表格，点击“数据”选项卡，在“获取外部数据”当中，找到“自文本”。

　　3、点击“自文本”，弹出下一窗口，选择刚才保存的名为1的txt类型文件，点击“导入”。因“自文本”方式数据导入默认的只有三种文件类型txt、csv、prn，所以需要事先将word转变为txt。

　　4、弹出文本导入对话框，选择默认的固定宽度，意思就是数据与单元格一一对应。如果选择分隔符号，则导入的所有数据将会在一个单元格当中，接着，点击下一步。

　　5、设置分行线，其实就是导入数据列数的控制，单击鼠标，可以在任意位置增加分行线。双击任意分行线，就会删除。完成设定后，点击下一步。

　　6、设置输出数据的格式，一般不需要进行任何设置，选择常规即可，点击“完成”。

　　7、导入完成。

word中如何批量提取word文件？ 收到一个word文件，里面有100多个word文档对象，这些

word文档里面一般是有文字和图片交叉在一起构成一个可读性强的文本，我们在读取文档的时候看到有很多的精美图片，想保存下来自己欣赏，但是一张一张的复制很麻烦，这里http://jingyan.baidu.com/article/4b52d702ac93a9fc5c774b89.html演示怎么一次性提取所有图片。

请问如何将多个word表格里的内容批量提取到一张excel表中？

Sub 自动把word表格转换到Excel()

On Error Resume Next ''''''出错继续（应对不规范的表格）

''''''重命名所有WORD文件为大写“A”。如 A (1).docx。

''maxcolumn(xex)

Dim maxrowend2

Dim wdApp

For w3 = 1 To 2 想合并多少个文档？

maxrowend2 = Sheets("sheet1").[a65536].End(xlUp).Row

Set wdApp = CreateObject("word.application")

path_ = ThisWorkbook.Path

wdApp.Documents.Open (path_ & "\" & "A (" & w3 & ")" & ".docx")

wdApp.Visible = True

n = wdApp.ActiveDocument.Tables.Count ''''有多少个表格

'x = 0

x = maxrowend2 + 1 ''''初始行号

y = 0

For i = 1 To n

rs = wdApp.ActiveDocument.Tables(i).Rows.Count ''''有多少个行

cs = wdApp.ActiveDocument.Tables(i).Columns.Count ''''有多少个列

''''''ghg = MsgBox(rs & "行列" & cs) '''''''''''''''''''''''''''''''提示

For m = 1 To rs

x = x + 1

y = 1

ThisWorkbook.Sheets("Sheet1").Cells(x, 1) = "源自A (" & w3 & ")" & ".docx" & "； 第" & i & " 表 " ''''''''''9999999999999999999

For n = 1 To cs

vv = wdApp.ActiveDocument.Tables(i).Cell(m, n)

ThisWorkbook.Sheets("Sheet1").Cells(x, y + 1) = Mid(vv, 1, Len(vv) - 1) '''空第一列

y = y + 1

Next

Next

Next

wdApp.Application.Quit '关闭word文档

Set wdApp = Nothing '释放对象变量的内存

Next

End Sub

如何批量把word中的文字提取到excel中对应位置

按照下面的步骤来就能达到你的效果了。把excel中的名字批量导入到word文件中的同一位置:

1、打开文字文档以后，先做好表格，接着找到文档中工具栏的“工具”按钮。

2、点击之后，就会弹出一个命令菜单，在其中找到“邮件合并工具栏”，点击“邮件合并工具栏”以后就会出现一个工具栏了。

3、在这个工具栏中找到图标，点击打开数据源。

4、接着就会出现一个选择框，选择好需要导入的数据源excel文件，点击确定。

5、接着鼠标点击要导入数据文档表格中的单元格，让光标在这个单元格总闪动，然后点击图标“插入合并域”。

6、接着选择要输入的项目，点击确定，就能看到单元格里出现了《姓名》，出生日期和性别也可以用同样的方法输入。

7、然后点击”合并到新文档“，在合并到新文档设置中选择要导入的数据起始行和结束行，点击确定。

8、接着会发现excel中的数据全部导入到了文档的表格里。

如何批量删除很多个WORD中相同文字

1、使用word打开我们得文件，可以看到在文件里有重复的段落

2、将所有的文字选择，然后在上面后找到替换选项

3、选择替换选项在查找内容和替换为里分别输入内容

4、输入好查找和替换内容之后再找到全部替换选项

5、连续点击全部替换可以看到多余的就被删除了

怎么提取两个word文档里面的相同文字

审阅-比较，生成新的文档，没有修订的内容就是两个文档重复的内容。

1、审阅-比较,在”原文档“中点击选择要比较的文档1,在”修订的文档“中选择要比较的文档2，确定。

2、以”修订的文档“——文档2为基础生成一个新的文档，该文档显示修订的地方就是文档2与文档1不同的地方，包括内容和格式。

转载请注明出处51数据库 » 批量提取多个word中的文字 如果批量提取多个WORD的文件名