十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
如果你那是TXT文档的话,在WORD2007中在工具栏中选择插入——点击超链接按钮——找到你文档的路径点击需关联的文档——点击确定就完成了
创新互联公司专注于企业成都营销网站建设、网站重做改版、枣庄网站定制设计、自适应品牌网站建设、html5、成都做商城网站、集团公司官网建设、外贸网站制作、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为枣庄等各大城市提供网站开发制作服务。
超链接在本质上是文字式按钮,事件类型仍旧属于鼠标单击事件。
在鼠标单击事件中,使用shell命令。
例如:
dim file as string=“C:\1.doc”
a=Shell("C:\Program Files\Microsoft Office\OFFICE11\WORD.EXE " file, vbNormalFocus)
注意要有空格。
参考:网页链接
或者变相实现
Private Sub RichTextBox1_DblClick()
Dim n As Long, s As String, t As String, tt As String
n = RichTextBox1.SelStart
t = RichTextBox1.Text
If n 1 Then
If Len(t) = 3 Then
tt = Mid(t, n - 1, 1) Mid(t, n, 1) Mid(t, n + 1, 1)
Else
tt = Mid(t, n - 1, 1) Mid(t, n, 1)
End If
Else
If Len(t) = 2 Then
tt = Left(t, 2)
End If
End If
If InStr(tt, "百度") 0 Then
MsgBox tt '打开链接
End If
End Sub
这个是超链接的target 属性,具体写法为: XXX 使用 Target 属性,你可以定义被链接的文档在何处显示,如果把链接的 target 属性设置为 "_blank"