如何修改Word VBA代码以仅从选中的文本区域提取超链接

修改后的完整可运行代码如下：

Sub HyperlinksExtract()
    Dim oLink As Hyperlink
    Dim docCurrent As Document '当前文档
    Dim docNew As Document '存储提取结果的新文档
    Set docCurrent = ActiveDocument
    
    ' 校验是否有选中的文本区域
    If Selection.Type <> wdSelectionNormal Then
        MsgBox "请先选中需要提取超链接的文本区域", vbExclamation
        Exit Sub
    End If
    
    Set docNew = Documents.Add
    ' 仅遍历选中区域内的超链接
    For Each oLink In Selection.Hyperlinks
        oLink.Range.Copy
        docNew.Activate
        Selection.Paste
        Selection.TypeParagraph
    Next
     
    Set docNew = Nothing
    Set docCurrent = Nothing
End Sub

核心修改点：

• 新增选中文本校验逻辑：避免未选中内容时运行代码出现异常，未选中时会弹出提示直接退出程序。
• 替换超链接遍历对象：将原代码中遍历整篇文档的docCurrent.Hyperlinks替换为Selection.Hyperlinks，后者仅包含当前选中区域内的所有超链接，不会读取文档其他位置的内容。
• 删除冗余变量：原代码中定义的rngStory变量全程未调用，直接删除即可。

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