将Excel或数字(mac)超链接转换为html a标记
我正在尝试将Excel、Word或数字超链接转换为HTML将Excel或数字(mac)超链接转换为html a标记,html,excel,ms-word,href,apple-numbers,Html,Excel,Ms Word,Href,Apple Numbers,我正在尝试将Excel、Word或数字超链接转换为HTML 有什么想法吗?谢谢。经过认真研究,我找到了一个有效的答案,您可以在word或excel中创建一个新宏,稍后再运行它 要创建宏,请转到“查看->宏”新建宏并粘贴以下代码: Sub AddHREF() ' Turn Word hyperlinks into <a href...> HTML tags Dim i As Integer For i = ActiveDocument.Hyperlinks.Count To 1 Ste
有什么想法吗?谢谢。经过认真研究,我找到了一个有效的答案,您可以在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
Sub AddHREF()
“将单词超链接转换为”
其他的
.Range=“”
如果结束
以
接下来我
端接头
然后,只要运行宏,就会出现神奇的效果!您在每种情况下使用相同的url还是不同的url?链接名称是否与每种情况下的url相同?每种情况下使用不同的url,在某些情况下,我在每个单元格中使用两个链接。