从 Access VBA 将页面添加到 Word 文档？答案

【问题标题】：Add pages to a Word Document from Access VBA?从 Access VBA 将页面添加到 Word 文档？
【发布时间】：2011-11-14 12:16:33
【问题描述】：

我有一个 .dot Word 模板，我循环浏览书签以填充文档。

我正在为每个 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

【问题讨论】：

标签： templates ms-access vba ms-word bookmarks

【解决方案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"

【讨论】：