将Excel或数字（mac）超链接转换为html a标签

Question

我试图将Excel，Word或Numbers超链接转换为HTML <a>标签。

例如，我有[linkName]，需要 <a href='URL'>[linkName]</a>。

任何想法？谢谢。

Answer 1

经过艰苦的研究，我找到了一个可行的答案，在word或excel中，您可以创建一个新的宏并在以后运行它。

要创建宏，去“查看 - >宏”创建一个新的并粘贴此代码：

Sub AddHREF() 
' Turn Word hyperlinks into <a href...> HTML tags 
Dim i As Integer 
For i = ActiveDocument.Hyperlinks.Count To 1 Step -1 
    With ActiveDocument.Hyperlinks(i) 
    If InStr(1, .Address, "http://www.gaebler.com", 1) Then 
     .Range = "<a href=""" & Replace(.Address, "http://www.gaebler.com", "") & """>" _ 
     & Replace(Replace(.TextToDisplay, "<strong>", ""), "</strong>", "") & "</a>" 
    Else 
     .Range = "<a href=""" & .Address & """ target=""_blank"" rel=""nofollow"">" & _ 
     Replace(Replace(.TextToDisplay, "<strong>", ""), "</strong>", "") & "</a>" 
    End If 
    End With 
    Next i 
End Sub 

然后，只需运行宏，出现神奇！