如何为Word文档中添加的多个图像添加多个交叉引用？

Question

我可以使用 VBA 将多个图像添加到 Word 文档，同时我无法使用 VBA 添加多个交叉引用。

Sub checking()
    Dim strFolderPath
    strFolderPath = "C:\images"
    Dim objWord
    Dim objDoc
    Dim objSelection
    Dim objShapes
    Dim objFSO
    Dim objFolder

    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

        ImgPath = Img.Path
        objSelection.InlineShapes.AddPicture (ImgPath            
        objSelection.insertbreak

    Next

End Sub

Answer 1

我将向您展示一个示例。您将不得不修改它以满足您的需要。我将插入 2 张图片并创建一个 Cross Reference。我已经对代码进行了注释，因此您理解它应该没有问题。

逻辑：

1. 添加图片
2. 为图片添加标题
3. 创建交叉引用
4. 插入分页符？
5. 重复上述步骤

代码：

Sub Sample()
    Dim shp As InlineShape
    Dim n As Long

    '
    '~~> Insert Image 1
    '
    Set shp = Selection.InlineShapes.AddPicture(FileName:="C:\ImageA.Png", _
                                                LinkToFile:=False, _
                                                SaveWithDocument:=True)

    '~~> Adding a caption
    n = 1
    CaptionLabels.Add Name:="MyImage" & n

    shp.Select
    Selection.InsertCaption Label:="MyImage" & n, TitleAutoText:="", Title:="", _
    Position:=wdCaptionPositionBelow, ExcludeLabel:=0

    Selection.InsertBreak


    '
    '~~> Insert Image 2
    '
    Set shp = Selection.InlineShapes.AddPicture(FileName:="C:\ImageB.Png", _
                                                LinkToFile:=False, _
                                                SaveWithDocument:=True)

    '~~> Adding a caption
    n = n + 1
    CaptionLabels.Add Name:="MyImage" & n

    shp.Select
    Selection.InsertCaption Label:="MyImage" & n, TitleAutoText:="", Title:="", _
    Position:=wdCaptionPositionBelow, ExcludeLabel:=0

    Selection.InsertBreak

    '~~> Creating cross reference
    For n = 1 To 2
        Selection.InsertCrossReference ReferenceType:="MyImage" & n, ReferenceKind:= _
        wdEntireCaption, ReferenceItem:=1, InsertAsHyperlink:=True, _
        IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
    Next n
End Sub