Add pages to a Word Document from Access VBA?

Question

I have a .dot Word template, and I loop through the bookmarks to fill the Document.

I'm filling the template for each RecordSet's Row, but I'm creating a new/separated Word Document.

Can I Add Pages to the document or merge individual documents to open a single Word document with all pages that I need?

This is an schema of my code

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

DontFretBrett DontFretBrett · Accepted Answer · 2011-11-15T18:01:15

What about using InsertFile to append all the documents to the first one you open? You could also insert page breaks if you want (not shown here)

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"

Add pages to a Word Document from Access VBA?

1 Answers