宏命令word批量更改文件名

『壹』 怎么批量修改word文档名字怎么批量修改word文档名字和内容

你可以按照以下步骤进行操作：
1. 打开文件所在的扰虚文件夹：在文件资源管理器(Windows)或Finder(Mac)中，导航到包含要修改文件名的 Word 文档的文件夹。
2. 选择要修改的文件：按住 Ctrl 键(Windows)或 Command 键(Mac)，同时点击要修改的多个 Word 文档，以选择它们。
3. 批量重命名文件：右键单击选中的文件，然后选择“重命名”或类似选项。你也可以使用快捷键 F2(Windows)或回车键(Mac)来重命名文件。
4. 输入新的文件名：输入你想要用于重命名的新文件名。你可以保留原始的文件名部分，并在后面添加一个共同的前缀或后缀，以便区分这些文件。
5. 应用重命名：按下回车键，或点击文件资源管理器或 Finder 窗口的其他位置，以应用新的文件名。系统将会将选中的所有文件按照你指定的命名规则进行批量重命名。
介绍一个使用Excel宏表函数，实现查找文件名的方法：
1.新建一个excel表格;
2. 组合键Ctrl+F3，召唤名称管理器点击新建，创建一个files宏表函数星号(*)前面是你的word文件存放的位置;
3.现在这个名为“doc”的函数就建好了，接下来就是通过随便什么方法(index，offset)把所需的文件名调出来就OK了，例如=INDEX(doc,ROW())然后往下拉……效果如缓兆燃下：
4. 所有文件名字都出来了，猜猜之后的筛选我相信楼主你行的!
5.这个是测试文件夹内容

『贰』 关于WORD文件作者名如何一次性全部修改

第1步，打开Word 2013窗口，依次单击“文件”→“选项”命令，如图所示。

『叁』 批量更改多个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

『肆』 VBA怎样实现 批量选择word文档读取其文件名并填表 的功能

SubTest()
Dimf,n,x,wb,fName

OnErrorResumeNext

Cells.Clear

'打开文件(可多选)
f=Application.GetOpenFilename("Word文件,*.docm,",1,"选择文件",MultiSelect:=True)

'遍历每个选择的文件
Forx=1ToUBound(f)
sFile=f(x)

'取文件名,并赋值给单元格
n=Len(sFile)-InStrRev(sFile,"")
fName=Right(sFile,n)
Cells(x,1)=Left(fName,InStr(fName,"")-1)'取1到空格前的字符
'Cells(x,1)=Left(fname,9)'取文件名的前9个字符
Cells(x,2)=Mid(fName,InStr(fName,"")+1,Len(fName)-InStr(fName,".")+1)'取空格后到点之前的字符
'Cells(x,2)=Mid(fName,10,Len(fName)-InStr(fName,".")+1)'从10开始取到点之前的字符
Nextx

EndSub

『伍』 使用word怎么批量修改txt小说章节名称

ctrl+H打开替换对话框，单击高级，勾选使用通配符，在查找框中原样输入：第[一二三四五六七八九十]@章
在替换为框中输入：究极武装^&
单击全部替换即可。熟悉word的通配符替换，可以实现很多你意向不到的功能。
第二个问题要采用VBA编程才能实现！
在工具=宏-宏...中，打开对话框，新建一个宏，创建，打开VBA编辑器，将里面的内容清空，然后将如下代码粘贴进去后按F5键运行即可。（只适用于<1000的情形下）
Sub MyReplace()
Selection.HomeKey
Selection.WholeStory
WholeText = Selection.Text
Debug.Print WholeText
WholeTextTmp = ""
Do Until WholeText = ""
MyChTmp = Left(WholeText, 1)
If InStr("一二三是五六七八九十百", MyChTmp) Then
MyCh = MyCh + MyChTmp
Else
If Len(MyCh) = 1 Then
Select Case MyCh
Case "一": MyCh = "001"
Case "二": MyCh = "002"
Case "三": MyCh = "003"
Case "四": MyCh = "004"
Case "五": MyCh = "005"
Case "六": MyCh = "006"
Case "七": MyCh = "007"
Case "八": MyCh = "008"
Case "九": MyCh = "009"
Case "十": MyCh = "010"
End Select
ElseIf Len(MyCh) = 2 Then
Select Case MyCh
Case "二十": MyCh = "020"
Case "三十": MyCh = "030"
Case "四十": MyCh = "040"
Case "五十": MyCh = "050"
Case "六十": MyCh = "060"
Case "七十": MyCh = "070"
Case "八十": MyCh = "080"
Case "九十": MyCh = "090"
Case "一百": MyCh = "100"
Case "十一": MyCh = "011"
Case "十二": MyCh = "012"
Case "十三": MyCh = "013"
Case "十四": MyCh = "014"
Case "十五": MyCh = "015"
Case "十六": MyCh = "016"
Case "十七": MyCh = "017"
Case "十八": MyCh = "018"
Case "十九": MyCh = "019"
End Select
ElseIf Len(MyCh) = 3 Then
Select Case Left(MyCh, 1)
Case "二": a = "2"
Case "三": a = "3"
Case "四": a = "4"
Case "五": a = "5"
Case "六": a = "6"
Case "七": a = "7"
Case "八": a = "8"
Case "九": a = "9"
End Select
Select Case Right(MyCh, 1)
Case "一": b = "1"
Case "二": b = "2"
Case "三": b = "3"
Case "四": b = "4"
Case "五": b = "5"
Case "六": b = "6"
Case "七": b = "7"
Case "八": b = "8"
Case "九": b = "9"
End Select
MyCh = "0" + a + b
ElseIf Len(MyCh) = 4 Then
Select Case Left(MyCh, 1)
Case "一": a = "1"
Case "二": a = "2"
Case "三": a = "3"
Case "四": a = "4"
Case "五": a = "5"
Case "六": a = "6"
Case "七": a = "7"
Case "八": a = "8"
Case "九": a = "9"
End Select
Select Case Right(MyCh, 1)
Case "一": b = "1"
Case "二": b = "2"
Case "三": b = "3"
Case "四": b = "4"
Case "五": b = "5"
Case "六": b = "6"
Case "七": b = "7"
Case "八": b = "8"
Case "九": b = "9"
End Select
MyCh = a + "0" + b

ElseIf Len(MyCh) = 5 Then
Select Case Left(MyCh, 1)
Case "一": a = "1"
Case "二": a = "2"
Case "三": a = "3"
Case "四": a = "4"
Case "五": a = "5"
Case "六": a = "6"
Case "七": a = "7"
Case "八": a = "8"
Case "九": a = "9"
End Select
Select Case Mid(MyCh, 3, 1)
Case "一": b = "1"
Case "二": b = "2"
Case "三": b = "3"
Case "四": b = "4"
Case "五": b = "5"
Case "六": b = "6"
Case "七": b = "7"
Case "八": b = "8"
Case "九": b = "9"
End Select
Select Case Right(MyCh, 1)
Case "一": c = "1"
Case "二": c = "2"
Case "三": c = "3"
Case "四": c = "4"
Case "五": c = "5"
Case "六": c = "6"
Case "七": c = "7"
Case "八": c = "8"
Case "九": c = "9"
End Select
MyCh = a + b + c
End If
WholeTextTmp = WholeTextTmp + MyCh + MyChTmp
MyCh = ""
End If
WholeText = Mid(WholeText, 2)
Loop
Selection.WholeStory
Selection.Text = WholeTextTmp
MsgBox "查找替换完毕!"
End Sub