Microsoft Word VBA 将 Web 链接插入到文档中的文本框

问题描述

有什么方法可以使用 VBA 将 html 链接插入文本框吗？我创建了一个带有文本框的对话框，我想将文本转换为 Web 链接，然后将其插入文档中的文本框。

Dim WO_Box1 As Shape
Set WO_Box1 = ActiveDocument.Shapes.AddTextBox(Orientation:=msoTextOrientationHorizontal,Left:=17,Top:=125,Width:=106.5,Height:=19)
WO_Box1.TextFrame.TextRange.Font.Name = "Tahoma"
WO_Box1.TextFrame.TextRange.Font.Size = "9"
WO_Box1.TextFrame.TextRange.Text = TextBox1.Text

解决方法

WO_Box1.TextFrame.TextRange.Hyperlinks.Add Anchor:=WO_Box1.TextFrame.TextRange,Address:=TextBox1.Text,TextToDisplay:=TextBox1.Text

锚是您正在使用的文本框。您可以为 TextToDisplay 使用任何文本，但应将地址分配给实际的超链接网址。

hyperlink ms-word