在Word VBA中将文本的一部分设置为超链接

Question

我需要更新一个旧的Word宏。此宏在页脚中创建一个包含2个单元格的表。第一个单元格包含地址和网站网址：

With myTable
.Cell(1, 1).Range.text = Line1 & vbCrLf & Line2 & vbCrLf & URL
End With

我需要使URL成为一个合适的超链接，而不仅仅是纯文本。我已经找到：

ActiveDocument.Hyperlinks.Add Anchor:=???, Address:= "http://myurl.com"

但我不知道该放什么作为锚。我尝试使用Selection对象，但它的.Execute没有返回任何内容。

请提供建议。

Answer 1

这类代码可以完成您描述的工作。

Dim Line1 As String, Line2 As String
Dim Url As String
Dim Rng As Range
Line1 = "Line 1"
Line2 = "Line 2"
Url = "www.Mydot.com"
With ActiveDocument.Tables(1).Cell(1, 1).Range
.Text = Line1 & vbCrLf & Line2 & vbCrLf & Url
Set Rng = .Paragraphs(3).Range
Rng.MoveEnd Count:=-1
.Hyperlinks.Add Rng, Rng.Text
End With

Answer 2

锚点是要将超链接附加到的对象。如果我们假设这是表格单元格中的文本，那么试试这个：

Sub AddHyperlink()
With ActiveDocument.Tables(1).Cell(1, 1).Range
.Text = "Line1" & vbCrLf & "Line2" & vbCrLf
.Hyperlinks.Add ActiveDocument.Tables(1).Cell(1, 1).Range, "http://www.brandwares.com"
End With
End Sub

如果它只是文本的一部分，则必须首先定义一个仅包含所需文本的范围，然后将该范围用作锚点。