PowerPoint查找替换中*与?通配符的使用方法咨询

首先得明确：PowerPoint VBA里的通配符分两种场景，别和Excel的规则混着用：

1. VBA通用Like运算符的通配符 #

你代码里写的If txtRange.Text Like "*??.??.????*"是没问题的，这里遵循VBA通用的通配符规则：

• ?：匹配任意单个字符
• *：匹配任意长度的字符（包括0个）

所以*??.??.????*能准确匹配包含“两位.两位.四位”格式的日期文本，这部分逻辑是对的。

2. PowerPoint TextRange.Replace的通配符规则 #

这是你代码里踩坑的核心！PowerPoint的Replace方法和Excel的规则不一样，而且必须明确开启通配符开关：

• ?：匹配任意单个字符（和Like规则一致）
• *：匹配任意长度的字符，但不需要在模式前后额外加*，因为Replace默认会查找所有包含匹配模式的内容；如果要匹配字面的*或?，需要加转义符~
• 必须显式设置MatchWildcards:=True，否则PowerPoint会把?和*当成普通字符处理

另外，你代码里混用了PowerPoint的txtRange.Replace和VBA内置的Replace函数——后者完全不支持通配符，它只会把*??.??.????*当成字面字符串替换，这就是你没得到预期结果的原因。

修正后的代码 #

删掉无效的VBAReplace调用，只用PowerPoint对象模型的Replace方法，调整后代码如下：

For i = 1 To pptTitle.Shapes.Count
    If pptTitle.Shapes(i).HasTextFrame = True Then
        Set txtRange = pptTitle.Shapes(i).TextFrame.TextRange
        ' 匹配DD.MM.YYYY格式的日期，开启通配符匹配
        txtRange.Replace FindWhat:="??.??.????", ReplaceWhat:=ind_date, MatchWildcards:=True
        ' 匹配类似"X 20XX"的日期格式（比如"Oct 2024"）
        txtRange.Replace FindWhat:="? 20??", ReplaceWhat:=ind_date2, MatchWildcards:=True
    End If
Next

关键细节： #

• 如果你的日期前后可能有多余字符（比如空格、标点），可以把匹配模式改成*??.??.????*，但一定要保持MatchWildcards:=True
• 若需要匹配字面的.，不需要转义，因为它在通配符模式里就是普通字符

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