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

发布于 2010-07-19 作者 [重庆SEO]

本文来自百度空间博客搬家

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显示在含超链接的单元格的右侧单元格内。