怎么查找超链接源文件
我在多个EXCEL文件中通过点击右键选择“超链接……”命令增加了多个不同的word文档的文件为超链接文件,除了进入每个excel文件通过路径查找所连接的word文档外,怎...
我在多个EXCEL文件中通过点击右键选择“超链接……”命令增加了多个不同的word文档的文件为超链接文件,除了进入每个excel文件通过路径查找所连接的word文档外,怎么样可以通过word文档查找被连接的excel文件呢?.比如:现有EXCEL文件2个,分别为A和B,WORD文件有3个,分别为1,2,3我在A中连接入了1和3,在B中连接入了1,2,3那么我怎么样可以直接通过3这个word文档直接找到它被连接入了A和B两个excel文件中?
展开
1个回答
2013-10-21
展开全部
批量提取超链接的方法: 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 Subexcel文档插入代码: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显示在含超链接的单元格的右侧单元格内。
For Each aHyperlink In ActiveDocument.Hyperlinks With Selection
.InsertAfter aHyperlink.Name
.Collapse Direction:=wdCollapseEnd
.InsertParagraphAfter
End With
Next aHyperlink End Subexcel文档插入代码: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显示在含超链接的单元格的右侧单元格内。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |