我对 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