在重复节内容控件中向内容控件添加和设置文本

时间:2018-10-08 23:52:13

标签: vba ms-word word-contentcontrol

我有一个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,但在现实生活中,应用程序将包含的附件​​不只是图片。

预期结果

Expected Result

实际结果

Actual Result

这是我的代码是否有问题,或者我只是在工作方式上不正确?

0 个答案:

没有答案