Vba在特定文件夹中查找名称包含“一个”的文档

可以使用以下代码在特定文件夹中查找名称包含“一个”的文档：

Sub SearchFiles()
Dim MyFolder As String
Dim MyFile As String
Dim MyPath As String
Dim i As Integer

MyFolder = "C:\MyFolder\" '替换为你要查找的文件夹路径
MyPath = MyFolder & "*.doc*" '查找扩展名为.doc或.docx的文档

MyFile = Dir(MyPath, vbDirectory)
i = 1

Do While MyFile <> ""
If InStr(MyFile, "一个") > Then '如果文件名包含“一个”
Debug.Print i & ": " & MyFolder & MyFile '输出文件路径和名称
i = i + 1
End If
MyFile = Dir
Loop
End Sub