| 程序代码: |
Dim range As Microsoft.Office.Interop.Word.Range
range = Me.Application.Selection.Range
range.Hyperlinks.Add(range, "http://www.tiancao.net")
| 程序代码: |
'插入超链接,换行
Public Sub AddURL(ByVal Display As String, ByVal URL As String)
Dim R As Microsoft.Office.Interop.Word.Range
R = W.Selection.Range
R.Hyperlinks.Add(W.Selection.Range, URL, , , Display)
End Sub
[本日志由 tiancao1001 于 2019-06-02 05:24 PM 编辑]
|
|
暂时没有评论
| 发表评论 - 不要忘了输入验证码哦! |
用户登陆
站点日历
站点统计
最新评论
Insert Hyperlink to Word in VB.NET [ 日期:2019-06-02 ] [ 来自: