WORD中用VBA更改当前图片下所有图片的文件名

yjwdjfqb · 发表于 2015-4-1 12:32

WORD中用VBA更改当前图片下所有图片的文件名

用VBA把当前图片下的图片进行指改名。

例如：

扫描01.jpg 改为　　　1.jpg
扫描02.jpg 改为　　　2.jpg

也就是说:把图片名称的前三个字（扫描0）删除

请高手老师们帮帮忙，谢谢大家了！

WORD中用VBA更改当前图片下所有图片的文件名.rar (13.43 KB, 下载次数: 14)

413191246se · 发表于 2015-4-2 09:37

楼主，用ACDSEE3.1美化版（网络上搜索一下）批量改名即可，何必用VBA？（不过VBA代码我会打开DOC文档，不会打开JPG图片。）

sqhsqhli · 发表于 2015-4-2 16:35

Sub dddd()
With Application.FileSearch
      .LookIn = ActiveDocument.Path
      .FileName = "*.jpg"
      .Execute msoSortByFileName
      For Each s In .FoundFiles
      Name s As Replace(s, "扫描0", "") '这是清除文件名的，文件夹不要有这个字符哦
   Next
  End With
End Sub

loquat · 发表于 2015-4-2 16:39

本帖最后由 loquat 于 2015-4-2 23:53 编辑

cmd命令也很简单啦
rename c:\扫描*.jpg *.jpg

sqhsqhli · 发表于 2015-4-3 08:02

loquat 发表于 2015-4-2 16:39
cmd命令也很简单啦
rename c:\扫描*.jpg *.jpg

dos也很好用shell整到VBA

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

[求助] WORD中用VBA更改当前图片下所有图片的文件名