Добавить страницы в документ Word из Access VBA?

Question

У меня есть шаблон Word .dot, и я перебираю закладки для заполнения документа.

Я заполняю шаблон для каждой строки RecordSet, но я создаю новый / отдельный документ Word.

Можно ли добавить страницы в документ или объединить отдельные документы, чтобы открыть один документ Word со всеми нужными мне страницами?

Это схема моего кода

Set rst = qdf.OpenRecordset()

If Not rst.EOF Then
    rst.MoveFirst
    Do While Not rst.EOF()

        Set doc = appWord.Documents.Open(DOC_PATH & DOC_NAME, , True)
        For Each bm In doc.Bookmarks
        ' Fill Bookmarks
        Next bm
        appWord.Documents.Open filename:=DOC_PATH & DOC_NAME
    Loop 
End If
rst.Close

Answer 1

Как насчет использования InsertFile для добавления всех документов к первому, который вы открываете? Вы также можете вставить разрывы страниц, если хотите (не показано здесь)

Dim W As New Word.Application
W.Visible = True
Dim D As Document: Set D = W.Documents.Add
Dim R As Word.Range: Set R = D.Range
R.InsertFile "c:\somefile.doc"