Question

我有一个.dot Word模板，我遍历书签以填充文档。

我正在为每个RecordSet的Row填充模板，但我正在创建一个新的/分离的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"

从Access VBA向Word文档添加页面？

1 个答案: