如何通过Access窗体（VBA）链接到Word文档指定位置？

当然可以实现自动跳转到Word文档的指定书签位置，只需在现有代码基础上添加书签定位逻辑即可。以下是修改后的完整代码：

Private Sub cmdUserGuide_Click()
    Dim LWordDoc As String
    Dim oApp As Object
    Dim oDoc As Object
    Dim targetBookmark As String
    
    ' 指定要跳转的书签名称
    targetBookmark = "Agreements"
    LWordDoc = "\\shareddrive\UserGuide.docx"

    If Dir(LWordDoc) = "" Then
        MsgBox "文档未找到。"
    Else
        ' 创建Word实例
        Set oApp = CreateObject(Class:="Word.Application")
        oApp.Visible = True
        
        ' 打开文档并获取文档对象
        Set oDoc = oApp.Documents.Open(FileName:=LWordDoc)
        
        ' 检查目标书签是否存在
        If oDoc.Bookmarks.Exists(targetBookmark) Then
            ' 跳转到指定书签（1对应Word常量wdGoToBookmark的数值）
            oApp.Selection.GoTo What:=1, Name:=targetBookmark
        Else
            MsgBox "文档中未找到书签：" & targetBookmark
        End If
        
        ' 释放对象，避免进程残留
        Set oDoc = Nothing
        Set oApp = Nothing
    End If
End Sub

关键说明 #

• 把targetBookmark的值替换为你实际需要的书签名称（比如"Agreements子窗体使用方法"）即可。
• 增加书签存在性检查，避免因书签不存在导致代码报错。
• 采用后期绑定方式（无需引用Word对象库），直接用数值1替代Word内置常量wdGoToBookmark，保证代码在不同环境下的兼容性。

注意事项 #

• 确保书签名称与Word文档中的定义完全一致（包括空格、特殊字符），Word书签名称不区分大小写，但建议完全匹配以避免意外问题。
• 确认共享驱动器路径有权限访问，且目标Word文档未被其他用户锁定。

内容的提问来源于stack exchange，提问作者Charlie