Outlook/Word通配符转正则：时间匹配及VBA正则使用咨询

一、Outlook/Word兼容的通配符表达式 #

针对你需要匹配的时间格式（如9:54、10:23，带或不带大小写的am/a.m./pm/p.m.），转换后的Outlook/Word通配符表达式如下：

[0-9]{1,2}:[0-9]{2}( {0,1}[AaPp][.]?[Mm][.]?)?

规则说明： #

• [0-9]{1,2}：匹配1-2位数字的小时部分
• :[0-9]{2}：匹配冒号加两位数字的分钟部分
• ( {0,1}[AaPp][.]?[Mm][.]?)?：可选的后缀部分，其中：
  • {0,1}：匹配0个或1个空格（兼容带空格/不带空格的后缀格式）
  • [AaPp][.]?[Mm][.]?：匹配大小写的am/pm，允许中间带点或不带点（如am、A.M.、p.m.等）
• 使用前需在查找替换对话框中勾选「使用通配符」选项。

二、在Word/Outlook VBA中使用正则搜索替代通配符 #

完全可以通过VBA调用正则表达式来替代通配符搜索，灵活性更高，步骤如下：

1. 启用正则引用 #

打开VBA编辑器（按Alt+F11），点击「工具」→「引用」，勾选「Microsoft VBScript Regular Expressions 5.5」并确定。

2. Word示例代码（查找并设置时间格式） #

Sub FormatTimeInWord()
    Dim regEx As New RegExp
    Dim matches As MatchCollection
    Dim match As Match
    
    ' 配置正则规则（使用你提供的原正则表达式）
    regEx.Pattern = "\d{1,2}:\d{2}\ ?([aAPp].?[Mm].?)?"
    regEx.Global = True ' 匹配文档中所有符合规则的内容
    regEx.IgnoreCase = False ' 保持大小写匹配逻辑
    
    ' 执行匹配
    Set matches = regEx.Execute(ActiveDocument.Content.Text)
    
    ' 遍历匹配项并设置格式（示例为加粗+红色）
    For Each match In matches
        With ActiveDocument.Range(match.FirstIndex, match.FirstIndex + match.Length).Font
            .Bold = True
            .Color = RGB(255, 0, 0)
        End With
    Next match
End Sub

3. Outlook示例代码（处理邮件内容） #

如果是处理Outlook邮件中的时间格式，逻辑类似，只需获取邮件的正文内容进行匹配：

Sub FormatTimeInOutlookMail()
    Dim regEx As New RegExp
    Dim matches As MatchCollection
    Dim match As Match
    Dim objMail As MailItem
    
    ' 假设选中了一封邮件
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    If objMail Is Nothing Then Exit Sub
    
    ' 配置正则规则
    regEx.Pattern = "\d{1,2}:\d{2}\ ?([aAPp].?[Mm].?)?"
    regEx.Global = True
    
    ' 执行匹配（这里以纯文本正文为例，如需处理HTML正文需调整）
    Set matches = regEx.Execute(objMail.Body)
    
    ' 示例：将匹配到的时间用加粗标记替换（纯文本格式）
    objMail.Body = regEx.Replace(objMail.Body, "<b>$&</b>")
    objMail.Save
End Sub

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