1

我对 VBA 相当陌生,我正在尝试使用书签将数据从访问表单带到 word 文档。我遇到的问题是我发现很难用下一条记录创建一个新的 MS Word。VBA(Access 2010)中有没有办法创建分页符,以便我可以插入下一条记录?我已经可以在word文档的第一页获得任何记录。

Wrd.Documents.Add "\\wordDocument.dotx"
Wrd.Visible = True

x = 1

For x = 1 To LastRecord
'Replace each bookmark with current data.

With Wrd.ActiveDocument.Bookmarks
    .Item("bkDate").Range.Text = Date(x)
    .Item("bkProj").Range.Text = Proj(x)
    .Item("bkMeasID").Range.Text = MeasID(x)
    .Item("bkMeas").Range.Text = Meas(x)
    .Item("bkUnit").Range.Text = Unit(x)



    x=x+1
End With
Next x
4

1 回答 1

1

我想到了!!!

我所要做的就是添加

Wrd.Selection.InsertBreak Type:=wdPageBreak
于 2013-06-10T21:26:55.140 回答