Question

我是VBA的新手，我正在尝试使用书签将数据从访问表单转移到word文档。我遇到的问题是我发现用下一条记录创建一个新的MS字很难。在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

Answer 1

我明白了!!!

我所要做的只是添加

Wrd.Selection.InsertBreak Type:=wdPageBreak

VBA访问分页符

1 个答案: