Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/23.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
将Excel或数字(mac)超链接转换为html a标记_Html_Excel_Ms Word_Href_Apple Numbers - Fatal编程技术网

将Excel或数字(mac)超链接转换为html a标记

将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

我正在尝试将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 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,在某些情况下,我在每个单元格中使用两个链接。