问VBA未定义的字符串结构

EN

我正尝试在我的代码中编写一个函数，它允许我根据文件的名称搜索特定的文件。函数正常工作，但现在名称的结构发生了变化，这给我带来了麻烦。

我的代码是控制word文档的宏的形式。此文档从另一个程序获取信息，并将其放入word文档的表单字段中。然后，我的代码获取表单字段的“值”，并使用它们在特定文件夹中搜索名称与表单字段中存储的值匹配的.txt。

现在.txt的名称已更改，该名称将包含一些我无法通过word文档访问的额外信息。

示例: W_X_Y_Z.txt，其中Y和Z在文档的表单字段中可用，并且可以访问，但W和X对我来说是未知的。

需要解决:所以我需要做的是找出一种方法来忽略W和X，并仅基于Y和Z进行搜索。

想法:我有一个想法是搜索一个结构为??_??_Y_Z.txt的文件，但我不确定这将如何工作，因为在做"??“如果数字在字符串中并且包含"??“，则包括数字。意思是只有2个未知字符或任何数量？如果只有两个，有没有办法定义一个未知的字符串，其中字符和字符数都是未知的？

第二个想法是在_上使用分隔符，并以某种方式弄清楚如何告诉宏如何忽略第二个_之后的所有内容。

欢迎任何我应该做的想法或建议的调查。

谢谢。

我现在将尝试添加一些代码，但请记住，我继承了本文档中的许多代码，因此我不知道每个细节都做了什么，这就是为什么我避免键入代码的原因。

目前为止的代码：

ActiveDocument.FormFields("Remissnummer").Select
Remiss = Selection.Text
Selection.Collapse Direction:=wdCollapseStart

ActiveDocument.FormFields("Personid").Select
strTmpPersonnr = Selection.Text
intNumCharsPersNr = Len(strTmpPersonnr)
Selection.Collapse Direction:=wdCollapseStart

strFileName = strTmpPersonnr
p_strFileReportPath = "G:\HMC\Fysiologiska kliniken\Eko\Export\"
strImportFile = p_strFileReportPath & "*" & strFileName & "_" & Remiss & strFileExt

If Len(Dir$(strImportFile)) = 0 Then
MsgBox "Error"
Else
'starts importing values from the file

当文件名有一个已知的结构时，这种方法是有效的，也就是说，现在只有Y_Z.txt虽然结构已经改变了，正如我上面解释的那样，两个新的变量是未知的，可以是从字母到数字的任何东西。

我尝试过：

Ignore = "*"

strImportFile = p_strFileReportPath & Ignore & "_" & Ignore & "_" & strFileName & "_" & Remiss & strFileExt

但它只是冻结了，当进入任务管理器时，你可以看到越来越多的内存被分配给word……我在10分钟后停止了它。

所以我猜我不能用"*“来解释文件名中的未知部分，但我现在有点迷路了。