Question

我带有一些文字的word文档。在某些段落我想要添加超链接的单词。这是一个例子：

这本书＆＃34;当太阳升起＆＃34;，ABC-1212321-DEF，今天已经发布.......

＆＃34; ABC-1212321-DEF＆＃34;应找到并应用如下超链接：http://google.com/ABC-sometext-1212321-anothertext-DEF

文档中的所有字符串都以＆＃34; ABC - ＆＃34;开头。并以＆＃34; -DEF＆＃34;结束。

先谢谢。

编辑：

这就是我迄今为止所做的：

Sub InsertLinks()
Dim r As Range
Dim SearchString As String

Set r = ActiveDocument.Range
SearchString = "ABC-"
With r.Find
.MatchWildcards = True
Do While .Execute(findText:=SearchString, Forward:=True) = True
ActiveDocument.Hyperlinks.Add Anchor:=r, _
Address:=Replace(r.Text, " ", ""), _
SubAddress:="", ScreenTip:="", TextToDisplay:=r.Text
With r
.End = r.Hyperlinks(1).Range.End
.Collapse 0
End With
Loop
End With
End Sub

现在检测ABC-并添加一些随机链接。但需要得到ABC-和-DEF之间的数字。长度不一样。

Answer 1

<强>解

这是解决我问题的代码：

Sub InsertLinksTB()
Dim Rng As Range
Dim SearchString As String
Dim EndString As String
Dim Id As String
Dim Link As String


Set Rng = ActiveDocument.Range
SearchString = "ABC-"
EndString = "-DEF"
    With Rng.Find
    .MatchWildcards = True
        Do While .Execute(findText:=SearchString, Forward:=False) = True
            Rng.MoveStartUntil ("ABC-")
            Rng.MoveEndUntil (" ")
            'MsgBox (Rng.Text)
            Id = Split(Split(Rng.Text, "ABC-")(1), "-DEF")(0)
            'MsgBox (Id)
            Link = "http://google.com/" & Id

                ActiveDocument.Hyperlinks.Add Anchor:=Rng, _
                Address:=Link, _
                SubAddress:="", ScreenTip:="", TextToDisplay:=Rng.Text
                Rng.Collapse wdCollapseStart


        Loop
    End With

End Sub

所以如果文字＆＃34; ABC-1234-DEF＆＃34;在文本中找到，它将使用http://google.com/1234

超链接此文本

希望这对某人有帮助。

VBA在Word 2010中找到单词并替换为超链接

1 个答案: