Vba 创建从Excel流程图到MS Word标题的超链接

我正在MS Excel 2007中构建流程图。这是一个工作流程。我希望能够参考word文档，其中包含流程图中每个步骤的详细说明

在流程图的每个部分，我想创建一个超链接/按钮，用户可以点击并打开word文档的特定部分（标题）。我试图创建一个形状（矩形）并设置一个指向文档的超链接。这很好，但它只是在开始时打开文档。我希望矩形按钮在特定标题处打开。我不确定你是否能用这种方式链接。如果没有，我想我需要创建一个按钮控件。我不确定按钮控件是否也能做到这一点

有人能建议吗

1） 指向标题的超链接方式，如果不是

2） 也许是关于如何使用按钮控件来实现这一点的建议

谢谢，

---

Mike

有一种方法可以引用您在word文档中创建的书签，然后在Excel超链接路径中指定word文档的文件名以及文件中的书签。 据此：

---

这是可能的。现在要做的是找到使用Excel超链接添加界面的方法。

编辑：被VISQL击败：）

是的，你可以做你想做的事。遵循以下步骤

打开word文档并在相关位置插入书签。比如，我们在标题2插入一个名为“Mike”的书签

将此代码粘贴到Excel中的模块中

Sub Sample()
    Dim oWordApp As Object, oWordDoc As Object, bMark As Object
    Dim FlName As String

    FlName = "C:\Sample.Docx"

    '~~> Establish an Word application object
    On Error Resume Next
    Set oWordApp = GetObject(, "Word.Application")

    If Err.Number <> 0 Then
        Set oWordApp = CreateObject("Word.Application")
    End If
    Err.Clear
    On Error GoTo 0

    oWordApp.Visible = True

    Set oWordDoc = oWordApp.Documents.Open(FlName)

    Set bMark = oWordDoc.Bookmarks("Mike")

    bMark.Select
End Sub

子样本（）
将oWordApp作为对象，将oWordDoc作为对象，将bMark作为对象
将名称设置为字符串
FlName=“C:\Sample.Docx”
“~~>建立Word应用程序对象
出错时继续下一步
Set oWordApp=GetObject（，“Word.Application”）
如果错误号为0，则
设置oWordApp=CreateObject（“Word.Application”）
如果结束
呃，明白了
错误转到0
oWordApp.Visible=True
设置oWordDoc=oWordApp.Documents.Open（FlName）
设置bMark=oWordDoc.Bookmarks（“Mike”）
b标记。选择
端接头

右键单击按钮并将其指定给上述宏

你就完了。下次用户单击该按钮时，代码将打开word文档并转到相关书签。对其他按钮重复相同的步骤

---

HTH

先生，你真是太棒了。这是一个非常快速的回答，我一定会用这个！谢谢西德哈特！！+1使用SnapshotHanks VISQL进行了很好的解释。我试过这个，它对我来说非常好。超级酷的西德哈特。我以前从来没有这样做过，只是前几天在Outlook邮件中使用了超链接，所以我也想弄清楚这一点。非VBA的方法是直接在单元格中输入类似于=HYPERLINK（[C:\Users\W7User\Desktop\testytest.docx]level2”、“TestyTestStatlevel2”）的内容。