如何高效编写VBA调用命令提示符的语句？实现文件重命名

我编写了一个Word宏，用于高亮文件夹中各文档指定列表内的特定词汇。希望在宏结束时，通过命令提示符给每个文件名添加“_Highlight”后缀。

我尝试在VBA中复现以下cmd命令：

for %a in ("C:\path\*.docx*") do ren "%~a" "%~Na_Highlight%~Xa"

通过FileDialog选择文件夹并将路径存入变量strShellFldr，但拼接代码时处理特殊字符、空格和引号十分麻烦。我写出的代码虽能运行但过于繁琐：

Shell.Run "cmd.exe /c" & "for %a in" & Chr(32) & "(" & Chr(34) & strShellFldr & Chr(34) & ")" & Chr(32) & "do ren" & Chr(32) & Chr(34) & "%~a" & Chr(34) & Chr(32) & Chr(34) & "%~Na_Hilight%~Xa" & Chr(34)

请问是否有更高效的写法？是否存在原生VBA函数可实现文件名追加操作？

一、简化Shell命令的写法 #

你可以利用VBA中双引号转义（用两个双引号表示一个实际双引号）和直接使用空格的方式，简化命令拼接，避免大量Chr(32)和Chr(34)的冗余写法：

Shell.Run "cmd.exe /c for %a in (""" & strShellFldr & """) do ren ""%~a"" ""%~Na_Highlight%~Xa"""

这种写法逻辑更清晰，和原cmd命令的结构几乎一致，只是把原本的双引号替换成VBA字符串里的两个双引号即可。

二、使用原生VBA函数实现（更推荐） #

完全可以通过VBA的FileSystemObject对象实现文件重命名，不需要调用cmd，这样能彻底避免路径特殊字符、引号的处理问题，代码更易维护：

实现代码 #

Sub RenameDocumentsWithHighlightSuffix()
    Dim fso As Object
    Dim targetFolder As Object
    Dim docFile As Object
    Dim strShellFldr As String
    
    ' 假设你已经通过FileDialog获取了目标文件夹路径，示例：
    ' With Application.FileDialog(msoFileDialogFolderPicker)
    '     .Show
    '     strShellFldr = .SelectedItems(1)
    ' End With
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set targetFolder = fso.GetFolder(strShellFldr)
    
    ' 遍历文件夹中的docx文件
    For Each docFile In targetFolder.Files
        If LCase(fso.GetExtensionName(docFile.Name)) = "docx" Then
            ' 拼接新文件名：原文件名（不含后缀） + _Highlight + 原后缀
            Dim newFileName As String
            newFileName = fso.GetBaseName(docFile.Name) & "_Highlight." & fso.GetExtensionName(docFile.Name)
            ' 执行重命名
            docFile.Name = newFileName
        End If
    Next docFile
    
    ' 释放对象
    Set docFile = Nothing
    Set targetFolder = Nothing
    Set fso = Nothing
End Sub

优势说明： #

• 无需处理cmd命令的引号和特殊字符问题，兼容性更强
• 代码逻辑直观，便于调试和修改
• 原生VBA操作，避免依赖外部命令行环境

内容的提问来源于stack exchange，提问作者Mr_Tambourine_Man