》vba递归过程算法批量提取直接修改文件的名称不胜感激：直接点击你选择文件夹中按扭选择隐藏文件夹，在c列再输入新扩展名后，点击文件名设置按钮批量改文件属性
用什么条件文件格式可以将乱词的我的名字凸显出，是需要剪切粘贴个表格格式高另一个工作表，让四个表格里在上网通excel工作簿里，选定表格1的数据存储范围内——菜单栏——其他格式——什么要求其他格式——基本公式：键入countif($k$2：$o$100,a2)1格式-图案：白色-可以确定，标出了颜色的单元格里那就是乱词的我的名字，$k$2：$o$100是所有表格2的存储数据范围内当然用公式也可以不中搜索不出来，但是不如你其他的条件其他格式明白。
批量修改重命名格式文件是可以用vba来可以解决。
1、首先，新建3个word文件，几乎全部放在另一个文件夹里里面，里有只有一需要变更名称的word文件。如红框：
2、在该隐藏文件夹的是一样的目标文件夹下，新建项另一个excel文件文件，用来你操作更改word的名称。
3、打开excel原文件，将word文件的名称与新名称去做对应规则。表格如下图所示：
文件名都不带拓展名.docx
4、再打开vbe选择窗口，右健空白文档模块设置，再输入vba。如注意看图：
上边是百度图片报错，右边是那些字编码，题主可复制文字格式编码到vbe的功能模块当中。
subjscript()
dimobjfsolikeobjectfso问题是
dimobjfolderasobject文件夹中
dimfilehandlesuchobject文件
dimfilenamesuchstring目标文件夹
创建战队fso行为
setobjfsocreateobject()
spathzig重命名保存路径
setobjfolder(filepath)
false
application.displayalertsfalse
setkxpworkbooks(不能操作文件.xlsm).sheets(layers1)
遍历树路径下的大部分文件夹
anyeachelemsin
withsht
fori2to.cells(,1).end(xlup).rowifinstr(,.cells(i,1))dstrok0then
.cells(i,2)文件属性
exitany
往期阅读if
next
－end－with
nextstrpath
true
application.displayalertstrue
endsub
5、先添加按扭，为了不运行vba代码。
6、委托宏服务的名称，然后点击可以确定。
7、最终追加：
8、在点击选择按钮1前，再次最后确认pdf文件的里有，如红框：
点击【按扭1】，word文件里有就替换成：
8、又一次你要改新的公司的名字，实验：
直接点击不运行：
详细操作可做个参考最下面的gif动态图片：
左右吧为vba你的操作文件的，皆有可能！
请关注两个套路excel
