如何使用VBA从节标签中提取URL？

Sub ExtractURLFromHyperlink()
    Dim doc As Object ' Word.Document 或 Excel.Workbook
    Dim rng As Object ' Word.Range 或 Excel.Range
    Dim hyperlink As Object ' Word.Hyperlink 或 Excel.Hyperlink
    Dim url As String
    
    ' 设置文档对象
    Set doc = ActiveDocument ' Word文档 或 ActiveWorkbook ' Excel工作簿
    
    ' 设置范围对象，可以根据需要修改范围
    Set rng = doc.Content ' Word文档 或 doc.ActiveSheet.UsedRange ' Excel工作簿
    
    ' 遍历范围中的每个超链接
    For Each hyperlink In rng.Hyperlinks
        ' 提取URL
        url = hyperlink.Address
        
        ' 在此处可以对URL进行进一步处理，如输出到单元格或执行其他操作
        Debug.Print url
    Next hyperlink
End Sub