電子郵件地址的Microsoft Word正則表達式

Question

我需要爲電子郵件地址創建正則表達式，該電子郵件地址將與Microsoft Word的查找和替換一起使用。我不是想要得到任何複雜的正則表達式，只是一個簡單的正則表達式。

我在網上發現了很多正則表達式，但Word不允許使用carrets。

Answer 1

這裏是一個piece of VBA macro，你可以檢查：

Option Explicit 

Const MODULE_NAME As String = "modMail" 
Public Function ValidateEmailAddress(ByVal strEmailAddress As String) As Boolean 
    On Error GoTo Catch 

    Dim objRegExp As New RegExp 
    Dim blnIsValidEmail As Boolean 

    objRegExp.IgnoreCase = True 
    objRegExp.Global = True 
    objRegExp.Pattern = "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$" 

    blnIsValidEmail = objRegExp.Test(strEmailAddress) 
    ValidateEmailAddress = blnIsValidEmail 

    Exit Function 

Catch: 
    ValidateEmailAddress = False 
    MsgBox "Module: " & MODULE_NAME & " - ValidateEmailAddress function" & vbCrLf & vbCrLf _ 
     & "Error#: " & Err.Number & vbCrLf & vbCrLf & Err.Description 
End Function