使用word编辑文档,经常会碰到大批量重复的工作。这种工作可以用宏来完成,以下是用vba写的一个宏,可以获取文档的超级链接。
Sub 获取超级链接()
'
' 获取超级链接 宏
'
'
For Each aHyperlink In ActiveDocument.Hyperlinks
With Selection
.InsertAfter aHyperlink.Name
.Collapse Direction:=wdCollapseEnd
.InsertParagraphAfter
End With
Next aHyperlink
End Sub