获取word文档中的超级链接,输出到文档末尾

七海恋空 2019-04-26 浏览(0 评论(0

使用word编辑文档,经常会碰到大批量重复的工作。这种工作可以用宏来完成,以下是用vba写的一个宏,可以获取文档的超级链接。

Sub 获取超级链接()
'
' 获取超级链接 宏
'
'
For Each aHyperlink In ActiveDocument.Hyperlinks

With Selection

.InsertAfter aHyperlink.Name

.Collapse Direction:=wdCollapseEnd

.InsertParagraphAfter

End With

Next aHyperlink
End Sub