Question

返回或设置活动邮件合并数据记录。可以是查询结果中的一个有效数据记录号，也可以是下列可读写 WdMailMergeActiveRecord 常量之一。

WdMailMergeActiveRecord 可以是这些 WdMailMergeActiveRecord 常量之一。

wdLastRecord

wdNoActiveRecord

wdFirstRecord

wdNextRecord

wdPreviousRecord

注意 活动的数据记录号是当前查询选项生成的查询结果中的记录的位置。同样，这个记录号也不一定是记录在数据源中的位置。

示例

本示例在活动文档中隐藏邮件合并域代码，以便在主文档中显示合并数据。然后数据源中下一条记录变成活动记录。

If ActiveDocument.MailMerge.MainDocumentType <> _
 wdNotAMergeDocument Then 
 With ActiveDocument.MailMerge
 .ViewMailMergeFieldCodes = False
 .DataSource.ActiveRecord = wdNextRecord
 End With
End If

本示例返回 Main2.doc 中的活动数据记录的数字位置。

Dim intRecordNumber as Integer

If Documents("Main2.doc").MailMerge.State = _
 wdMainAndDataSource Or _
 wdMainAndSourceAndHeader Then
 intRecordNumber = Documents("Main2.doc").MailMerge _
 .DataSource.ActiveRecord
End If