范范范范范范范范范儿
假如你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的文件名
