MS Word批处理超链接

Question

我想知道是否有一种方法可以从批量文本中创建超链接。我有以下文本：www.abc.com/pictures/T_1.jpgnet abc。com/pictures/T_2.jpgnet abc。com/pictures/T_3.jpgnet abc。com/pictures/T_4.jpg每个文本本身就是一个链接，但如果我全选并按Ctrl+K，我就无法创建将文本作为网络链接的超链接。我可以一个接一个地做。如果我选择任何文本并按Ctrl+K，它会给我www.abc.com/pictures/T_1.jpg作为该链接的网址，但不是批量的。怎么做？

注意：链接中有空格，以避免发布错误。

Answer 1

请尝试这个，

1. 在word中粘贴链接，并用段落分隔它们
2. 选择链接并插入->表->转换为表格
3. 视图->宏->查看宏并创建以下名为BH的宏

Sub BH((Dim Rng为范围，TblCell为单元，StrTxt为字符串带所选内容如果.Information(wdWithInTable(=False，则退出Sub对于单元格中的每个TblCell设置Rng=TblCell.Range带Rng.End=.End-1StrTxt=.Text.Text＝"结束于ActiveDocument.HHyperlinks.Add Anchor:=Rng_地址：＝"；地址"；，子地址：="；"子地址"_屏幕提示：="&"；，TextToDisplay:=StrTxt，目标：=&quot_空白"；下一个结束于结束子

Answer 2

对于您所描述的内容：

Sub ConvertURLTextsToHyperlinksInDoc()
Application.ScreenUpdating = False
With ActiveDocument.Range
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "[wh][wt][wtps]{1,3}[./][!^13^t^l ^s]{1,}"
.Replacement.Text = ""
.Forward = True
.Format = False
.Wrap = wdFindStop
.MatchWildcards = True
.Execute
End With
Do While .Find.Found
If .Characters.Last Like "[:;.,(?)!})]" Then .End = .End - 1
.Hyperlinks.Add .Duplicate, .Text, , , .Text
.Start = .Hyperlinks(1).Range.End
.Find.Execute
Loop
End With
Application.ScreenUpdating = True
End Sub

不过，你发布的文本不包括有效的URL——abc两边都有空格。。。