程序代码: |
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 编辑]
|
暂时没有评论
发表评论 - 不要忘了输入验证码哦! |