从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

　　End Sub

　　将代码插入后，记住不是替换，打回车然后插入保存。点运行即可。word文档会将超链接的URL显示在光标所在处，excel会将URL显示在含超链接的单元格的右侧单元格内。

【从Word和Excel中批量提取网址超链接】相关文章：