文档中已有的网址（文本格式）怎样批量转换超链接

fuchengmeiruhua · 发表于 2022-10-25 14:32

zldccmx · 发表于 2022-10-26 16:48

zldccmx · 发表于 2022-10-26 16:51

Sub zldccmx()
Dim P As Paragraph
Dim T
Dim Regex As Object, Matchs
Set Regex = CreateObject("VBScript.RegExp")
With Regex
.Global = True
.IgnoreCase = True
.Pattern = "(http|https|ftp)://.*"
End With
For Each P In ActiveDocument.Paragraphs
Set Matchs = Regex.Execute(P.Range.Text)
If Matchs.Count > 0 Then
T = Replace(Matchs.Item(0), Chr(13), "")
P.Range.Select
With P.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = T
End With
Selection.Find.Execute
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=T, TextToDisplay:=T
End If
Next
End Sub

复制代码

		自动登录	找回密码
密码			免费注册