批量修改文件夹内，多个Word文件名中的同一个字或符号

13907933959

413191246se 发表于 2016-9-2 17:28
139：请最好举例说明……（另外：不换帖了，那个“短标题”宏，里面引用了 TitleExtend 宏，我的通用模板 ...

师傅好！

例如：文件夹内多个Word文档文件名中，有 “A散剂” 3个中英混在一起的字符，修改为：C汤药……；有的文档文件名中，含有 “B”单个英文字母，修改为：E ……等等。

原来是这样呀，我只是单独测试了“短标题”宏，怪不得出错！

天边君子兰

413191246se 发表于 2016-8-30 18:45
139：双击进入所要处理的文件夹：

请问怎么在文件夹里面运行这个代码啊。好糊涂

天边君子兰

413191246se 发表于 2016-8-30 18:45
139：双击进入所要处理的文件夹：

请问怎么在文件夹里面运行这个代码啊。好糊涂

413191246se

楼上朋友，只须将其拷贝到 VBE 中即可执行之（打开WORD后，按CTRL+F11即到VBE界面）。

wdpfox

2016office 是不能使用filesearch

凌空一羽

Sub lkyy()
Set fso = CreateObject("Scripting.FileSystemObject")
Set Apt = Application.FileDialog(msoFileDialogFolderPicker)
If Apt.Show = -1 Then Mf = Apt.SelectedItems(1) Else Exit Sub
For Each f In fso.GetFolder(Mf).Files
    tn = Mid(f.Name, InStr(f.Name, ".doc"), 9)
    ff = Replace(f.Name, tn, "")
    fc = Replace(ff, "※", "～")
    f.Name = fc & tn
Next
End Sub