word宏批量处理多个打开的文件

㈠ word中如何批量执行宏命令

Sub 批量操作WORD()
Dim path As String
Dim FileName As String
Dim worddoc As Document
Dim MyDir As String
MyDir = "C:\Users\123456\Downloads" '文件夹路径根据需要自己修改，需要处理的文件都放该文件夹内
FileName = Dir(MyDir & "\*.doc*", vbNormal)
Do Until FileName = ""
If FileName <> ThisDocument.Name Then
Set worddoc = Documents.Open(MyDir & "\" & FileName)
worddoc.Activate
Call Word文件改名 '调用宏,换成你自己宏的名字
worddoc.Close True
FileName = Dir()
End If
Loop
Set worddoc = Nothing
End Sub
'======================下面的宏换成你自己的宏=================================
Sub Word文件改名()
Dim myS, myP As String
myP = ActiveDocument.path
Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=13
Selection.EndKey wdLine
Selection.HomeKey wdLine, wdExtend
myS = Selection.Range.Text
ActiveDocument.SaveAs FileName:=myP & "\" & myS & ".doc"
End Sub

㈡ 如何用宏批量处理多个word文档

请问前10行都是相同的内容吗?

如果是我只知道用Dreamweaver建一个站点(400文档所在的文件夹),然后替换成空格.

如果不是相同的内容,我就帮不了你.

㈢ 批量更改多个word文件中的数据

用宏命令可以解决，大概的步骤如下：
（1）先打开一个文档，单击“工具”→“宏”→“录制新宏”命令，出现宏的对话框，单击“确定”按钮。
（2）单击“文件”→“打开”，选择要修改数据的文件，将其打开。
（3）单击“编辑”→ “替换”命令，在查找替换框中将所有的日期、数量替换为0000。
（4）然后单击“文件”→“另存为”命令，将文件另存到另外一个文件夹中，最后关闭文件。
（5）单击“工具”→“宏”→“停止录制”命令，完成上述步骤
（6）对新录制的宏命令进行一定的修改，使它能对多个文件进行批量修改和保存。方法是：
单击“工具”→“宏”→“宏”命令，选择刚才录制的宏的名称，单击“编辑”按钮。打开Visual Basic编辑器，对宏进行一些修改。主要的修改地方有以下几个方面：
① 将刚才录制的宏的文件打开路径修改为你的文件夹的路径，例如“E:\123\old”，修改替换数据后的文件保存的路径，如“E:\123\new”
② 给宏命令添加一个for循环，例如，for i=6300，6300是你的文件数量，这是告诉宏修改6300个文件就结束
③ 其他的地方酌情修改，例如是否忽略报错，是否忽略数字的格式等
（7）最后一步就是在Visual Baisic编辑器中按F5键执行宏，六千多个文件一会儿就可以修改完毕。
注意，这样的操作需要懂一些简单的VB中有关逻辑循环执行的知识，如果逻辑循环修改正确的话，你只要按一次F5键执行就可以了。。。不然的话就要将六千多个文件逐个打开，逐个执行这样的宏命令操作，相当于按六千多次的F5

㈣ 文件夹下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：表示在所查找内容后面添加制表位。

㈤ 如何同时批量修改多个word文档内容

使用word文档批量处理大师

1、把要批量修改的文档都放在同一个文件夹中
2、在修改前，先确定多个word文档文件要被修改的内容，如小小要修改的内容是多个word文档中的“西平县”，
3、双击“word文档批量处理大师”
4、点击“选择目录”
5、在弹出的窗口中选择点击要批量修改的多个word文档文件所在的文件夹，然后点击“确定”按钮
6、此时，系统会自动添加该文件中的所有文档文件
7、点击“保存列表”
8、在弹出窗口输入框随便输入一个名字，然后点击“保存”按钮
9、在word文档批量处理选项中点击选择“1、内容批量替换”
10、在右边弹出'批量替换文档内容'框体中，在”把文字：“标签下输入要被修改的内容，如“西平县”，在“替换为：”标签下输入要改成的内容，如“我在这”。然后点击“添加为待处理任务”按钮
11、如果，要被批量修改的内容还有其他的，则先点击“添加到列表”按钮，然后再在”把文字：“标签下输入下一个要被修改的内容，如“啊”，在“替换为：”标签下输入下一个要改成的内容，如“哈“，然后点击“添加到列表”按钮。如此反复把所有要修改的文档内容全部添加到列表后再点击“添加为待处理任务”按钮
12、在弹出窗口点击”确定“按钮
13、在弹出窗口点击”是“按钮
14、在弹出窗口点击”确定“按钮
15、系统处理完后，会显示“任务完成！”
16、打开文件查看结果多个word文档文件全部批量完成

注意这里是批量修改多个word文档文件内容，没有修改文档标题。

㈥ word 批量处理 宏

这个用宏比较麻烦的。我给你一个方法。
替换B.为^pB.
替换D.为^pD.
不过至于那个正确的答案不可能通过VBA达到，除非答案都一样。机器不知道答案。如果有答案的文件的话，代码比较难写

㈦ 如何做到“多个WORD文件批量进行同一操作”

1.下载一个汉化版的WinHex，然后WinHex打开你需要替换内容的所有DOC文档（100多个打开也得要相当时间）;

2.点击“选项”菜单，选择“字符集”->“UNICODE”（方便你查看替换内容与UNICODE编码之间的关系，免得弄错。如你上边所给出的“[一-龥]*^13”的UNICODE编码应为“”，而替换内容UniCode编码应为“5E0031003300”）。

3.点击“搜索”菜单，选“替换16进制数值”(或者按快捷键“Ctrl+Alt+H”），在出现的替换对话框的“搜索”栏目中，填入你需要替换内容的十六值（如：），在“替换”栏中填入新的替换内容的十六值（如：5E0031003300）。

下边的各选项分别勾选“全部替换”、“全部”搜索、以及“在所有打开文件中替换”。

4.点“确定”。

5.保存全部更改后的文件。

注意：1.特别得认准你需要替换内容的UniCode编码；

2.没把握之前，最好别勾选“全部替换”以及“在所有打开文件中替换”。先用某一个文档做做实验。

3.如果替换错了，别保存更改后的文档！！！以免大批量文档的破坏。

4.此方法仅对OFFICE2003之前的DOC文档有效。OFFICE2007以后的文档结构不同于此，不得用此方法。

5.如果对替换内容的UniCode编码不确定，可将替换的内容追加提问，我会给出相关内容正确的UniCode编码。