阿Q吧 > 点击excel单元格，执行打开某一word文档，并且定位到文档中的某一段文字（文档和表格在同一文件夹，要求）

点击excel单元格，执行打开某一word文档，并且定位到文档中的某一段文字（文档和表格在同一文件夹，要求）

2024-12-03 09:00:13

推荐回答（5个）

回答1：

和前面的问题一样呀。
在单元格上按Ctrl+K，然后在弹出的对话框中选择一个文件，确定。然后点击这个单元格，就会打开刚才选择的文件了。
工作表标签上按右键，选择查看代码，然后把下面的代码贴到打开的窗口。
至于是不是同一个文件夹的问题你不用担心，如果创建超级链接的时候就是在同一个文件夹，Excel是不会添加路径的，除非两个不在同一个文件夹，才会找不到文件，要是一直在一起，就不用担心了。
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim WordApp As Word.Application, Doc As Word.Document
If Trim(UCase(Right(Target.Address, 4))) <> ".DOC" Then Exit Sub
DocName = Right(Target.Address, Len(Target.Address) - InStrRev(Target.Address, "\"))
Set WordApp = GetObject(, "Word.Application")
For Each Doc In WordApp.Documents
If Doc.Name = DocName Then
Doc.Select
WordApp.Selection.MoveStart
WordApp.Selection.Find.Execute Target.TextToDisplay
Exit For
End If
Next
End Sub

回答2：

这个我帮朋友做过，不难的，你把文件发送过来。
327431451@qq.com

表格已经发送，代码如下，03版本已测试，这段代码在sheet1里面的，双击单元格就能定位了，如果想用快捷键运行，就在菜单栏--插入---模块，输入SUB FFF,按回车就可，然后将中间6句代码粘贴进去，回到sheet1,按ALT+F8，选项中指定一个快捷键即可：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
str1 = ThisWorkbook.Path
nROW = ActiveCell.Row
Set wd = CreateObject("word.application")
wd.Visible = True
wd.Documents.Open (str1 & "\版面排版技巧.doc") '打开一个叫<版面排版技巧>的文档
wd.Selection.Find.Execute FindText:=ActiveSheet.Cells(nROW, 2) '第二列的
End Sub

回答3：

建议：把WORD的那段文字，复制到EXCEL表某格的“批注”中，点击这个格，就能看到文字，看别的数据，也不影响。

回答4：

用相对路径超链接就可以打开文档，转移后可以。定位文字要用vba

回答5：

这个好像word和excel、实现不了，至少我实现不了，如果这样都是写网页代码，我搞网站的，所以在VB方面不了解