400-099-0376

在线试用
微信扫码联系专属客服
安企神软件官网
首页
下载中心
客户列表
关于安企神

word之VBA RecordCount属性使用示例

2024-10-31

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

  • TAG: