如何全部变成可以访问的链接

zzpsx

如何全部变成可以访问的链接.zip (16.03 KB, 下载次数: 7)

2023-3-29 21:36 上传

点击文件名下载附件

祝洪忠-

复制到Excel的A列，B1单元格输入公式 =HYPERLINK("https://www."&MID(A1,FIND(".",A1)+2,99),"https://www."&MID(A1,FIND(".",A1)+2,99))

batmanbbs

batmanbbs

1. Sub 转超链()
   
2. 
   
3.     Dim myPG As Paragraph
   
4.     For Each myPG In ActiveDocument.Paragraphs
   
5.         With myPG
   
6.             ActiveDocument.Hyperlinks.Add _
   
7.                     Anchor:=ActiveDocument.Range(.Range.Start, .Range.End - 1), _
   
8.                     Address:="https:\\www." & Mid(.Range.Text, InStr(.Range, " ") + 1, Len(.Range) - InStr(.Range, " ") - 1)
   
9.         End With
   
10.     Next myPG
    
11. 
    
12. End Sub

复制代码

zzpsx

问题解决，谢谢各位高手。