六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

word之VBA RecordCount属性使用示例

Admin | 2012-11-30 8:35:55 | ReadNums | 2817 | 标签 香港最快开奖结果2018 | 打印本页
     

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


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日