word之VBA RecordCount属性使用示例

　　word中的vba里面的RecordCount属性，其功能是返回一个 Long对象，该对象代表数据源中记录的数字为只读。

　　语法如下：

　　expression.RecordCount

　　参数说明

　　expression 必需。该表达式返回一个MailMergeDataSource对象。

　　注意：

　　如果 Microsoft Word 不能确定数据源中记录的数字，RecordCount属性会返回值 -1。

　　以下内容是有关RecordCount的代码示例

　　On Error GoTo ErrorHandler

　　With ActiveDocument.MailMerge.DataSource

　　.ActiveRecord = wdFirstRecord

　　Do

　　If Len(.DataFields(6).Value) < 5 Then

　　.Included = False

　　.InvalidAddress = True

　　.InvalidComments = "The zip code for this record" & _

　　"is less than five digits. This record is" & _

　　"removed from the mail merge process."

　　End If

　　If .ActiveRecord <> .RecordCount Then

　　.ActiveRecord = wdNextRecord

　　End If

　　Loop Until .ActiveRecord = .RecordCount

　　ErrorHandler:

　　End With

　　上面的代码循环遍历数据源中的记录并验证邮政编码域(在本示例中是第六个域)是否少于五位，如果少于五位，则从邮件合并中删除该记录。

　　如果要确保将定位代码添加到邮政编码中，可以将长度值从 5 改为 10。从而，如果邮政编码少于 10 位，就将其从邮件合并中删除。