批量提取WORD或EXCEL文档中的超链接

引用请注明出处: https://seonoco.com/blog/1216

NOCO发布于 分类 Office

12天前 有1个用户阅读过

本文来自我的百度空间博客详情

2007年开始使用的是 hi.baidu.com/udjy
后来百度空间强制升级为轻博客 hi.baidu.com/imnoco
2015年百度关闭了百度空间

最 近做资料,只需要用到文档中的超链接,老想着是不是有什么办法可以批量提取文档中的超链接,于是上网找,很快找到了,用WORD测试了一下,顺利提取超链 接,没有实际测试EXCEL,EXCEL应该也是可以顺利执行的,如果不行,建议先WORD,然后再拷贝到EXCEL里。

---具体方法如下---------------------

    word和excel批量提取超链接的方法相同,都要用到宏功能,因此,在你准备执行这个功能的时候,首先要保证你的office软件是可以加载宏的,一般将宏的安全级别设置为中。

    word和excel批量提取超链接的具体步骤是:工具>宏>宏>创建(excel为Visual Basic编辑器),打开编辑器,将如下代码插入模块:

word文档插入代码:

Sub 超级链接()
For Each aHyperlink In ActiveDocument.Hyperlinks

With Selection
.InsertAfter aHyperlink.Name
.Collapse Direction:=wdCollapseEnd
.InsertParagraphAfter
End With
Next aHyperlink

End Sub

excel文档插入代码:

Sub ExtractHL()
    Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
        HL.Range.Offset(0, 1).Value = HL.Address
    Next
End Sub

    将代码插入后,点运行即可。word文档会将超链接的URL显示在光标所在处,excel会将URL显示在含超链接的单元格的右侧单元格内。

-- The End --

本文标题: 批量提取WORD或EXCEL文档中的超链接

本文地址: https://seonoco.com/blog/1216

本文是否有所帮助?
点赞 0
感谢支持
0
多谢反馈
评论 0
打赏

支持微信/支付宝

评论

网友