Блог

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

Я заполняю шаблон для каждой строки набора записей, но создаю новый / отдельный документ 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 amp; DOC_NAME, , True)
        For Each bm In doc.Bookmarks
        ' Fill Bookmarks
        Next bm
        appWord.Documents.Open filename:=DOC_PATH amp; DOC_NAME
    Loop 
End If
rst.Close
  

Как насчет использования 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"