这两天因为要做一个表格，有大量的超链接要提取出来，一个一个来做实在是太费时费力了，想着是不是有什么办法可以批量提取，于是上网去搜了搜。经过不懈努力，终于让我找到了批量提取超链接的方法，在此和大家一起分享。    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显示在含超链接的单元格的右侧单元格内。

• 孙凤英 发表于 2009-5-9 14:37:24
• [ 阅读全文 | 回复(0) | 编辑 ]

• 上一篇：搞笑的博客申请邮件
• 下一篇：百度不肯收录带链接的新浪博文了