我有一个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,但在现实生活中,应用程序将包含的附件不只是图片。
预期结果
实际结果
这是我的代码是否有问题,或者我只是在工作方式上不正确?