我来帮你搞定这个问题——你现有的代码能成功插入图片，但交叉引用的核心前提是给图片添加带编号的题注（Caption），原代码缺少这一步，所以没法生成有效的交叉引用。下面是修改后的完整代码，我会拆解关键步骤：

原代码的不足 #

你的代码只完成了图片插入和分页，但交叉引用依赖Word的题注标签系统（比如"Figure"或"图片"），只有给每个图片分配唯一的编号标签，才能创建可跳转、可更新的交叉引用。

修改后的完整代码 #

Sub AddImagesWithCrossReferences()
    Dim strFolderPath As String
    strFolderPath = "C:\images"
    
    Dim objWord As Object
    Dim objDoc As Object
    Dim objSelection As Object
    Dim objFSO As Object
    Dim objFolder As Object
    Dim Img As Object
    Dim imgShape As Object
    Dim crossRefRange As Object
    
    ' 手动定义Word常量（后期绑定需要，避免找不到内置常量）
    Const wdLine As Integer = 5
    Const wdPageBreak As Integer = 7
    Const wdFieldSequence As Integer = 84
    Const wdFieldRef As Integer = 32
    Const wdCollapseEnd As Integer = 0

    ' 初始化对象
    Set objWord = CreateObject("Word.Application")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strFolderPath)
    Set objDoc = objWord.Documents.Open("D:\myfile.docx")
    objWord.Visible = True
    Set objSelection = objWord.Selection
    
    ' 遍历文件夹中的图片文件
    For Each Img In objFolder.Files
        ' 只处理常见图片格式，避免插入非图片文件
        Select Case LCase(objFSO.GetExtensionName(Img.Path))
            Case "jpg", "jpeg", "png", "gif", "bmp"
                ' 插入图片到文档
                Set imgShape = objSelection.InlineShapes.AddPicture(FileName:=Img.Path, _
                    LinkToFile:=False, SaveWithDocument:=True)
                
                ' 移动光标到图片下方，准备添加题注
                objSelection.MoveDown Unit:=wdLine, Count:=1
                objSelection.TypeParagraph
                
                ' 添加带编号的题注（标签为"Figure"，可改成中文"图片"）
                objDoc.Fields.Add Range:=objSelection.Range, Type:=wdFieldSequence, _
                    Text:="Figure \* ARABIC"
                
                ' 可选：给题注添加说明文字（比如图片文件名）
                objSelection.TypeText Text:=": " & objFSO.GetBaseName(Img.Path)
                objSelection.TypeParagraph
                
                ' 插入分页符（保持原需求的分页）
                objSelection.InsertBreak Type:=wdPageBreak
                
                ' --- 生成交叉引用（示例：在文档开头添加引用）---
                ' 你可以根据需求调整引用位置，比如放在图片上方或指定章节
                Set crossRefRange = objDoc.Range(Start:=0, End:=0)
                crossRefRange.InsertAfter "引用图片: "
                crossRefRange.Collapse Direction:=wdCollapseEnd
                
                ' 添加超链接式交叉引用（\h 参数实现跳转）
                objDoc.Fields.Add Range:=crossRefRange, Type:=wdFieldRef, _
                    Text:="Figure \h"
                crossRefRange.InsertParagraphAfter
        End Select
    Next Img
    
    ' 更新所有域，确保交叉引用编号正确显示
    objDoc.Fields.Update
    
    ' 释放对象，避免内存泄漏
    Set imgShape = Nothing
    Set crossRefRange = Nothing
    Set objSelection = Nothing
    Set objDoc = Nothing
    Set objFolder = Nothing
    Set objFSO = Nothing
    Set objWord = Nothing
End Sub

关键步骤解释 #

1. 添加题注：用wdFieldSequence域生成带阿拉伯数字编号的题注，标签名（比如"Figure"）可以自定义成中文"图片"，只要后续交叉引用的标签一致即可。
2. 筛选图片文件：通过Select Case只处理常见图片格式，避免插入文档、表格等非图片文件。
3. 交叉引用生成：用wdFieldRef域关联题注标签，\h参数让引用变成可点击的超链接，点击就能跳转到对应图片。你可以修改crossRefRange的位置，把引用放在你需要的地方（比如图片上方、正文段落里）。
4. 更新域：最后调用objDoc.Fields.Update，确保所有交叉引用的编号都是最新的，不会显示错误的占位符。

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