1

我有一个 word 模板，其中填充了来自 Access 数据库的信息，该模板的一部分包括一个表格，其中包含两个单元格，类型和位置，用于该特定文档的所有附件。在这些字段中是内容控件，相应地命名，然后整个表格被包装在一个重复的部分内容控件中，标题为“附件”。

对于每个特定文档，都有一个附件文件夹，我遍历该文件夹以获取附件类型和附件文件路径。我想将此数据添加到附件内容控件，但无法正确显示信息。

Private Sub AttachmentControl(wrdApp As Word.Application, wrdDoc As Word.Document, attachmentsFolder As String)

    Dim fso As New Scripting.FileSystemObject, folderAttachments As Files, attachment As file, i As Long
    Set folderAttachments = fso.GetFolder(attachmentsFolder).Files

    For Each attachment In folderAttachments
        If attachment.Type <> "Data Base File" Then
            wrdDoc.SelectContentControlsByTag("Type").Item(1).Range.Text = attachment.Type
            wrdDoc.SelectContentControlsByTag("Location").Item(1).Range.Text = attachment.Path
            wrdDoc.SelectContentControlsByTag("Attachments").Item(1).RepeatingSectionItems.Item(1).InsertItemBefore
        End If
    Next attachment

End Sub

attachmentFolder 是我要遍历的附件所在的位置。出于我的测试目的，此文件夹中的文件是 6 张 jpg 图像，名为 Image 1 到 Image 6，但在现实生活中的应用程序中将包含更多的附件，而不仅仅是图像。

预期结果

预期结果

实际结果

实际结果

这是我的代码有问题还是我只是不正确地理解它应该如何工作？

4

0 回答 0