Добавление и настройка текста для элементов управления контентом в повторяющемся разделе «Контент-контроль» - PullRequest
Новая
       63

Добавление и настройка текста для элементов управления контентом в повторяющемся разделе «Контент-контроль»

0 голосов
/ 09 октября 2018

У меня есть шаблон слова, который заполняется информацией из базы данных 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 с именами от 1 до 6, но в реальных приложениях они содержат больше вложений, чем просто изображения.

Ожидаемый результат

Expected Result

Фактический результат

Actual Result

Это проблема с моим кодом или я просто не правильно понял, как это должно работать?

...