Word VBA中Dir函数无法匹配指定文件名的问题排查

为什么Dir函数无法匹配目标文件？ #

VBA的Dir函数不支持正则表达式风格的字符匹配规则（比如你用的[0-9]），它仅支持三种基础通配符：

• ?：匹配任意单个字符
• *：匹配任意长度的任意字符
• #：匹配任意单个数字（0-9）

你代码里的[0-9]会被Dir当作普通字符串处理，只会寻找文件名中包含[0-9]这几个字符的文件，自然找不到“1 Values.docx”这类符合要求的文件。另外，路径拼接时如果ThisDocument.Path末尾没有反斜杠，会导致Dir识别的路径错误，也是潜在问题。

解决方案 #

根据你的需求，分两种场景提供解决代码：

场景1：仅匹配单个数字开头的文件（如“1 Values.docx”）

直接使用Dir的#通配符匹配单个数字开头，同时修复路径拼接问题：

Sub FindTables()
    Dim FolderPath As String
    Dim FileName As String
    Dim FoundTables As Boolean
    
    ' 设置文件夹路径，确保末尾带有反斜杠
    FolderPath = ThisDocument.Path
    If Right(FolderPath, 1) <> "\" Then FolderPath = FolderPath & "\"
    
    ' 匹配单个数字开头、包含Values的docx文件
    FileName = Dir(FolderPath & "#*Values*.docx")
    Do While FileName <> ""
        FoundTables = True
        ' 此处可添加文件处理逻辑，比如打开文件
        ' Documents.Open FolderPath & FileName
        
        ' 遍历下一个文件
        FileName = Dir
    Loop
    
    If FoundTables Then
        MsgBox "找到匹配文件。", vbInformation
    Else
        MsgBox "未找到匹配文件。", vbExclamation
    End If
End Sub

场景2：支持多个数字开头的文件（如“123 Values.docx”）

由于Dir的通配符无法直接匹配多个数字开头，需要先遍历所有docx文件，再通过代码判断文件名是否符合规则：

Sub FindTables()
    Dim FolderPath As String
    Dim FileName As String
    Dim FoundTables As Boolean
    
    ' 设置文件夹路径，确保末尾带有反斜杠
    FolderPath = ThisDocument.Path
    If Right(FolderPath, 1) <> "\" Then FolderPath = FolderPath & "\"
    
    ' 遍历所有docx文件
    FileName = Dir(FolderPath & "*.docx")
    Do While FileName <> ""
        ' 判断：文件名以数字开头 且 包含"Values"字符串
        If IsNumeric(Left(FileName, 1)) And InStr(FileName, "Values") > 0 Then
            FoundTables = True
            ' 此处可添加文件处理逻辑，比如打开文件
            ' Documents.Open FolderPath & FileName
        End If
        
        ' 遍历下一个文件
        FileName = Dir
    Loop
    
    If FoundTables Then
        MsgBox "找到匹配文件。", vbInformation
    Else
        MsgBox "未找到匹配文件。", vbExclamation
    End If
End Sub

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