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 位,就将其从邮件合并中删除。