创建从Excel FlowChart到MS Word标题的超链接

时间:2012-05-03 17:39:20

标签: excel vba excel-vba hyperlink ms-word

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

在流程图的每个部分,我想创建一个超链接/按钮,用户可以单击该按钮并打开单词文档的特定部分(标题)。我试图创建一个形状(矩形)并设置文档的超链接。这工作正常,但它只是在开头打开文档。我希望矩形按钮在特定标题处打开。我不确定你是否可以用这种方式超链接。如果没有,我认为我需要创建一个按钮控件。我不确定按钮控件是否也可以这样做。

任何人都可以建议

1)超链接到标题的方法,如果没有,

2)可能有关于如何使用按钮控件执行此操作的建议。

谢谢, 麦克

2 个答案:

答案 0 :(得分:4)

可能有一种方法可以引用您在word文档中创建的BOOKMARK,然后在Excels超链接路径中指定word文档的文件名,以及文件中的BOOKMARK。 根据这个:http://office.microsoft.com/en-us/excel-help/hyperlink-function-HP010062412.aspx

这是可能的。现在,使用Excel超链接添加界面找到了解决方法的问题。

答案 1 :(得分:3)

编辑:被VISQL击败:)

是的,可以做你想做的事。请按照以下步骤操作。

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

enter image description here

将此代码粘贴到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

右键单击按钮并将其指定给上面的宏。

enter image description here

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

HTH