Word中按文件名查找文件的宏代码

　　宏代码
　　Sub ztwj()
　　Set cxf = Application.FileSearch
　　With cxf
　　Dim wjj, wjmc
　　wjj = InputBox("请输入文件所在的文件夹路径及名称", "查找文件")
　　wjmc = InputBox("请输入需要查找文件名的字符", "查找文件")
　　.LookIn = wjj
　　.FileName = "*" + wjmc + "*.*"
　　If .Execute > 0 Then
　　MsgBox "共找到" & .FoundFiles.Count & "个符合条件的文件", 0, "查找结果"
　　For i = 1 To .FoundFiles.Count
　　MsgBox .FoundFiles(i), 0, "依次是："
　　Next i
　　Else
　　MsgBox "没有符合条件的文件。"
　　End If
　　End With
　　End Sub

　　说明：
    ①代码中的变量“cxf”和“wjmc”，可以修改为其他字符。
    ②宏运行时，会弹出相应的对话框，提示输入“所要查找文件所在文件夹的路径、名称”，以及“需要查找文件名中的部分字符”。
    ③查询结束后，会弹出查询结果消息框，如果查询到符合条件的文件，随后会以消息框的形式一一列出完整的文件名。