根据word文档内容批量修改文件名

freshbd · 发表于 2020-4-29 14:55

本帖最后由 freshbd 于 2020-4-29 15:59 编辑

所有文档内容格式相同，文档格式有doc和docx。希望能用vba代码提取文档内表格中的身份证号码和姓名，并将文件名修改成身份证号码+姓名的格式
因为数量大，存在内容重复的问题，重复的文档能不能改成序号+身份证号码+姓名的格式如： 0001-643312199804230993-陈茂序号与号码与名字中间用小横线隔断一下

ming0018 · 发表于 2020-4-29 17:51

下班了，明天上班给你写一个。

freshbd · 发表于 2020-4-30 09:02

谢哥老倌！

ming0018 · 发表于 2020-4-30 09:44

这个vba的方法　当然还有更效率的办法　一会给你送上

freshbd · 发表于 2020-4-30 10:18

ming0018 发表于 2020-4-30 09:44
这个vba的方法　当然还有更效率的办法　一会给你送上

劳您费心了！有什么新思路还请告知
代码运行正常
我这重复文件太多，有的是文件名重复；有的是文件名不一样但内容重复；有的是文件名重复，文档中的姓名和身份证号码相同但其他内容又不一样或者没填！
很麻烦，所以想至少能解决一下文件名的问题，谢谢，帮大忙了。

freshbd · 发表于 2020-4-30 10:29

我傻了，应该把名字改成身份证号码+姓名+编号的格式，能不能请你改一下
自己试着改了一下，但是运行错误
我只改了下面这一条
fileName = fileName & "-" & Format(FileNameDic(fileName), "0000")

freshbd · 发表于 2020-4-30 10:38

本帖最后由 freshbd 于 2020-4-30 10:44 编辑

我的回复咋没显示呢我刚改了条代码的顺序，想把编号放在最后，改了过后也能运行，
只是不能对已经改过名的文件二次使用

ming0018 · 发表于 2020-4-30 11:32

极速版，有需求可以加我ＱＱ改进。

ming0018 · 发表于 2020-4-30 11:33

本帖最后由 ming0018 于 2020-4-30 11:37 编辑

这里副件这里副件这里副件

		自动登录	找回密码
密码			免费注册

[求助] 根据word文档内容批量修改文件名

评分