如果你那是TXT文檔的話,在WORD2007中在工具欄中選擇插入——點(diǎn)擊超鏈接按鈕——找到你文檔的路徑點(diǎn)擊需關(guān)聯(lián)的文檔——點(diǎn)擊確定就完成了
創(chuàng)新互聯(lián)公司專注于企業(yè)成都營銷網(wǎng)站建設(shè)、網(wǎng)站重做改版、棗莊網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、html5、成都做商城網(wǎng)站、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)網(wǎng)站制作、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計(jì)等建站業(yè)務(wù),價格優(yōu)惠性價比高,為棗莊等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
超鏈接在本質(zhì)上是文字式按鈕,事件類型仍舊屬于鼠標(biāo)單擊事件。
在鼠標(biāo)單擊事件中,使用shell命令。
例如:
dim file as string=“C:\1.doc”
a=Shell("C:\Program Files\Microsoft Office\OFFICE11\WORD.EXE " file, vbNormalFocus)
注意要有空格。
參考:網(wǎng)頁鏈接
或者變相實(shí)現(xiàn)
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 屬性設(shè)置為 "_blank"