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顯示在含超連結的單元格的右側單元格內。
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顯示在含超連結的單元格的右側單元格內。