如何用更简洁的VBA代码提取特定格式URL到数组（Word）

针对你需要提取以http:开头、结尾为.xxx格式的URL到数组的需求，原代码通过Split拆分的方式存在需要额外补全http、可能误处理非URL内容的问题，这里提供更简洁精准的实现方案——利用正则表达式直接匹配符合规则的URL：

Sub ExtractURLsToArray()
    Dim wDoc As Word.Document
    Dim rngSel As String
    Dim regEx As Object
    Dim matches As Object
    Dim urlArr() As String
    Dim i As Long
    
    Set wDoc = Application.ActiveInspector.WordEditor
    rngSel = Trim(wDoc.Windows(1).Selection.Text)
    
    ' 初始化正则表达式对象
    Set regEx = CreateObject("VBScript.RegExp")
    With regEx
        .Global = True ' 全局匹配所有符合的URL
        .Pattern = "http://.*?\.[a-zA-Z0-9]{3}" ' 匹配http开头、结尾为.xxx的URL
    End With
    
    ' 获取所有匹配结果
    Set matches = regEx.Execute(rngSel)
    
    ' 将匹配结果转成数组
    If matches.Count > 0 Then
        ReDim urlArr(0 To matches.Count - 1)
        For i = 0 To matches.Count - 1
            urlArr(i) = matches(i).Value
            Debug.Print urlArr(i)
        Next i
    End If
    
    ' 后续可直接使用urlArr数组进行处理
    Set regEx = Nothing
    Set matches = Nothing
    Set wDoc = Nothing
End Sub

方案优势 #

• 无需拆分后补全http，直接精准匹配符合规则的URL，避免原方案中可能出现的误匹配问题
• 不受任意分隔符影响，正则会自动跳过URL间的所有无关字符（制表符、换行符等）
• 代码逻辑更清晰，一步到位得到目标数组

如果需要支持https格式，只需把正则模式修改为https?:\/\/.*?\.[a-zA-Z0-9]{3}即可。

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