从品牌网站建设到网络营销策划,从策略到执行的一站式服务
如果你那是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"
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图