我完全懂你遇到的困扰——正文里的书签能正常填充，一到页脚就报找不到书签的错误，这其实是因为Word的**故事范围（StoryRanges）**在搞鬼！默认情况下，Excel VBA里的Selection对象是指向Word的主文档正文区域，而页脚属于另一个独立的故事范围，直接用Selection.Goto自然搜不到页脚里的书签。

核心原因 #

Word把正文、页眉、页脚、脚注、批注等都划分成了不同的「故事范围」，每个范围里的书签是各自独立管理的。你之前的代码只在正文范围里查找书签，页脚的书签不在这个范围内，所以会抛出运行时错误'5678'。

解决方案：直接操作页脚的StoryRange #

推荐用不依赖Selection的方法，直接定位到页脚的故事范围，然后操作书签，这种方式更稳定，尤其是后台运行Word时不会受视图影响。

完整代码示例（Late Binding，无需引用Word对象库）

Sub FillWordFooterBookmark()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim footerStory As Object
    Dim targetBookmark As Object
    Dim docPath As String
    Dim bookmarkName As String
    Dim fillText As String
    
    ' 配置参数
    docPath = "C:\你的文档路径\目标文档.docx" ' 替换成你的Word文档路径
    bookmarkName = "FooterBookmark" ' 替换成你的页脚书签名称
    fillText = "这是填充到页脚书签的内容"
    
    ' 初始化Word应用
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True ' 调试时设为True，正式运行可改为False
    
    ' 打开目标文档
    On Error Resume Next
    Set wordDoc = wordApp.Documents.Open(docPath)
    On Error GoTo 0
    
    If wordDoc Is Nothing Then
        MsgBox "无法打开指定文档！"
        wordApp.Quit
        Set wordApp = Nothing
        Exit Sub
    End If
    
    ' 获取主页脚的故事范围（数值10对应wdPrimaryFooterStory）
    ' 如果是偶数页脚用11（wdEvenPagesFooterStory），首页页脚用12（wdFirstPageFooterStory）
    Set footerStory = wordDoc.StoryRanges(10)
    
    ' 检查页脚中是否存在目标书签
    On Error Resume Next
    Set targetBookmark = footerStory.Bookmarks(bookmarkName)
    On Error GoTo 0
    
    If Not targetBookmark Is Nothing Then
        ' 填充内容，同时保留书签（关键！否则填充后书签会消失）
        targetBookmark.Range.Text = fillText
        ' 重新添加书签，确保后续还能找到它
        wordDoc.Bookmarks.Add Name:=bookmarkName, Range:=targetBookmark.Range
        MsgBox "页脚书签填充成功！"
    Else
        MsgBox "页脚中未找到名为 '" & bookmarkName & "' 的书签！"
    End If
    
    ' 保存并关闭文档（可选，根据需求调整）
    wordDoc.Save
    wordDoc.Close
    
    ' 清理对象
    Set targetBookmark = Nothing
    Set footerStory = Nothing
    Set wordDoc = Nothing
    wordApp.Quit
    Set wordApp = Nothing
End Sub

关键注意事项 #

1. 常量数值替代：因为用了CreateObject（Late Binding），Excel不知道Word的内置常量，所以直接用数值代替：
   • 主页脚：10（对应Word的wdPrimaryFooterStory）
   • 偶数页页脚：11（wdEvenPagesFooterStory）
   • 首页页脚：12（wdFirstPageFooterStory）
2. 保留书签：填充书签内容后，原来的书签会被删除，所以一定要重新添加书签，否则下次运行代码会找不到它。
3. 避免依赖Selection：Selection对象容易受光标位置影响，直接操作StoryRange和Bookmark.Range更可靠。

备选方案：切换到页脚视图（不推荐后台运行） #

如果你一定要用类似录制宏的方式，可以先切换到页脚视图再查找书签，但这种方法在Word后台运行（Visible=False）时可能出问题：

' 切换到当前页页脚视图（数值10对应wdSeekCurrentPageFooter）
wordApp.ActiveWindow.View.SeekView = 10
' 定位到书签（wdGoToBookmark数值是-1）
wordApp.Selection.Goto What:=-1, Name:=bookmarkName
' 填充内容
wordApp.Selection.TypeText Text:=fillText
' 切回正文视图（数值0对应wdSeekMainDocument）
wordApp.ActiveWindow.View.SeekView = 0

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