请教守柔：excel中实现跳转到同一文件夹下的Word文档指定书签处

请教守柔大神：我想编辑一个宏按钮，使得一按按钮就打开同一文件夹下的名叫“a”的word文档，并跳转至指定书签“b”处。

有一阵子没上论坛了。
提问不必点名了，大家有空都会帮你回复的。
Option Explicit

Sub Example()
    Dim strFileName As String
    Dim objDocument As Object
    Dim strBM As String
    strFileName = ThisWorkbook.Path & "\A.doc" '''文档名称
    strBM = "B"    '''书签名称
    If Len(Dir(strFileName, vbDirectory)) = 0 Then
        MsgBox "未找到" & Chr$(34) & strFileName & Chr$(34), vbExclamation, "Rousoft"
        Exit Sub
    End If
    Set objDocument = GetObject(strFileName)
    With objDocument
        If .Bookmarks.Exists(strBM) = False Then
            MsgBox Chr$(34) & strFileName & Chr$(34) & "未找到书签:" & Chr$(34) & strBM & Chr$(34), vbExclamation, "Rousoft"
            .Close False
        Else
            .Bookmarks(strBM).Range.Select
            .ActiveWindow.Visible = True
        End If
    End With
End Sub