文件夹下Word批量处理

在日常学习和工作中，我们每天都可能需要处理很多文档，使用快捷键是我们常用的高效办法之一，但其实还有很多批量处理方法也能快速解决问题，下面分享5个好玩的批量处理技巧。

一、批量Word中的提取

1、在Word文档处右击选择“重命名”，将docx格式更改为rar压缩包格式；



2、之后将更换格式后的文件解压，在解压后的文件夹找到“word”再打开“Media”文件就能看到所有。



二、批量拆分Word中的文本和数字

1、选中Word中需要拆分的内容区域后，按Ctrl+H打开替换设置窗口；



2、在查找中输入([0-9]{5,6})，在替换为输入^&^t，并且勾选使用通配符；



3、设置完成后点击“全部替换”即可看到文档中的数字和文本中间自动出现空格被分开。



说明：

[0-9]：表示0到9之间的任意数字

{5,6}：表示出现的5个或6个数字

()：是一个表达式，在这里我们将其看做一个整体

^&：要查找的内容

^t：制表位

^&^t：表示在所查找内容后面添加制表位。

三、批量生成新的文件夹

1、新建一个txt文本，在记事本中输入数据MD+空格+文件夹名称，然后保存一下。



2、然后将记事本的扩展名更改为bat格式；



3、最后双击文件即可批量创建以记事本输入名称的文件夹。1、批量生成文件夹

在记事本中输入数据MD+空格+文件夹名称，保存，然后将记事本的扩展名更改为bat格式，双击文件即可批量创建文件夹。



2、批量提取

将Word文档的docx格式更改为rar格式，之后解压文件，找到相应的Media文件即可看到所有。



3、批量对文件重命名

长按Shift键不放，右击选择复制路径，先将文件名提取出来，粘贴到Excel表格中，并利用Excel中的数据分列，将相应的原文件名提取出来。

然后将需要重新命名的内容输入表格中，利用公式="ren "&A2&" "&B2，连接内容，再复制到记事本中保存，最后将记事本扩展名更改为bat格式，双击即可。





PS：注意中间的空格和重命名末尾的扩展名需要与原扩展名一致。

4、文本批量快速排版

先将文本内容按等级进行缩进，不同的层级，等级缩进方式有所不同，具体如下图所示：



之后点击插入——插图——SmartArt，选择一个层级结构，随后将相应的内容复制到SmartArt图形中，把不需要的内容删除即可。



5、批量拆分文本和数字

选中需要拆分的内容区域，按Ctrl+H打开查找和替换，在查找中输入([0-9]{5,6})，在替换为输入^&^t，并且勾选使用通配符，随后点击全部替换即可 *** 作。

说明：

[0-9]：表示0到9之间的任意数字

{5,6}：表示出现的5个或6个数字

()：是一个表达式，在这里我们将其看做一个整体

^&：要查找的内容

^t：制表位

^&^t：表示在所查找内容后面添加制表位。

在新文档中批量插入你的这些文件，然后将多余的东西删掉，只留下姓名和电话，在姓名和电话之间加个回车，复制全部，粘进excel,就成了一格一个了。

你可以把那些文件中的电话和号码标成其他颜色，如红色，然后批量插入文件，再在新文件中批量删掉黑色文字，不就行了。

方法如下： 1、首先，打开媒介工具“记事本”，将word文件里需要导入的数据，复制粘贴到记事本当中，然后保存成为txt文件，本例中将txt文件取名为“1txt”。 2、打开excel表格，点击“数据”选项卡，在“获取外部数据”当中，找到“自文本”。 3、点击“自文本”，d出下一窗口，选择刚才保存的名为1的txt类型文件，点击“导入”。因“自文本”方式数据导入默认的只有三种文件类型txt、csv、prn，所以需要事先将word转变为txt。 4、d出文本导入对话框，选择默认的固定宽度，意思就是数据与单元格一一对应。如果选择分隔符号，则导入的所有数据将会在一个单元格当中，接着，点击下一步。 5、设置分行线，其实就是导入数据列数的控制，单击鼠标，可以在任意位置增加分行线。双击任意分行线，就会删除。完成设定后，点击下一步。 6、设置输出数据的格式，一般不需要进行任何设置，选择常规即可，点击“完成”。 7、导入完成。

*** 作步骤。

第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。

第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。

第三，在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。

第四，双击该按钮，进入VB代码编写模式，将以下代码复制进去。

Private Sub CommandButton1_Click()

ApplicationScreenUpdating = False

Dim myPas As String, myPath As String, i As Integer, myDoc As Document

With ApplicationFileDialog(msoFileDialogFolderPicker)

Title = "选择目标文件夹"

If Show = -1 Then

myPath = SelectedItems(1)

Else

Exit Sub

End If

End With

myPas = InputBox("请输入打开密码：")

With ApplicationFileSearch

LookIn = myPath

FileType = msoFileTypeWordDocuments

If Execute > 0 Then

For i = 1 To FoundFilesCount

Set myDoc = DocumentsOpen(FileName:=FoundFiles(i), Passworddocument:=myPas)

SelectionFindClearFormatting

SelectionFindReplacementClearFormatting

With SelectionFind

Text = "大家好"

ReplacementText = "你好"

Forward = True

Wrap = wdFindAsk

Format = False

MatchCase = False

MatchWholeWord = False

MatchByte = True

MatchWildcards = False

MatchSoundsLike = False

MatchAllWordForms = False

End With

SelectionFindExecute Replace:=wdReplaceAll

myDocSave

myDocClose

Set myDoc = Nothing

Next

End If

End With

ApplicationScreenUpdating = True

End Sub

第五，保存上面代码，退出VB编辑模式，返回Word文档界面。

第六，单击选中该按钮，再单击控件工具箱的第一个按钮“退出设计模式”。

第七，进行测试：点击按钮，选择要放置多个WORD文档所在的文件夹，确定后即可完成！注意如果WORD文档没有加密的话，密码项就不填，直接确认。

如果是多个word中的，需要写一个代码（参考以下网址），或者在网上找一下相关的工具。

>

以上就是关于文件夹下Word批量处理全部的内容，包括:文件夹下Word批量处理、从word中批量提取数据、表格里数据很多，怎样按提取多个数据到word等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！