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

(0)

相关推荐

  • Word中VBA编辑器怎么修改代码默认的格式?

    word打开vba发现代码的默认格式不适合自己的操作习惯,字体大小.文字颜色等都不喜欢,想要自己设置,下面我们就来看看详细的教程. 1.首先,打开Word2010的VBA编辑器,输入一段代码. 2.单 ...

  • 电脑word文档如何将“按示例样式”选项添加到功能区中

    word是我们现在最常使用的办公软件之一.今天小编跟大家分享的是电脑word文档如何将"按示例样式"选项添加到功能区中.具体如下:1. 首先我们在电脑中打开一份word文档.2. ...

  • 怎么在Word文档的属性中添加作者的相关信息

    我们在编辑Word文档的时候,有时会考虑到版权问题,想要添加上自己的相关信息,该怎么操作呢?今天就跟大家介绍一下怎么在Word文档的属性中添加作者的相关信息的具体操作步骤.1. 首先打开电脑上,我们想 ...

  • 怎样编辑Word文档的属性

    Word文档的属性含有这个文档的很多信息,比如标题.作者.创建时间.编辑时间等等,有时是敏感的信息需要删除,有时又需要尽量详细以便在正文中交叉引用或用于排序,所以,编辑好文档的属性是十分必要的. 操作 ...

  • 如何解决Word 需要VBA 宏语言支持来完成此操作

    相信很多朋友打开Word时总是出现"Microsoft Office Word 需要 VBA 宏语言支持来完成此操作."而又无法解决,导致Word无法打开,现在笔者教大家如何解决W ...

  • Java 读取Word文本/段落样式属性

    本文介绍通过Java后端程序代码来读取Word文本和段落格式的方法. 本次测试环境如下: ● Word版本:2013 ● 编译环境:IntelliJ IDEA2018 ● Work库:spire.do ...

  • 如何删除word文档的属性和个人信息

    大家可能都知道,word文件是会存储个人信息的,尤其在2013版本中更甚,每一个文档都会储存使用者的id.创建时间.修改作者等等一系列个人信息,而我们在工作中,有时候并不希望这些信息随着文档的发送而泄 ...

  • 怎样设置Word文档的属性信息

    制作完一篇文档后我们可以对文档中的属性信息进行设置,这样有利于日后的查找,下面就让我们一起来看看具体的操作步骤. 步骤/方法 01 打开要修改属性信息的word文档,单击菜单栏的"文件&qu ...

  • 如何批量清除Word所有超级链接属性

    如题目所说,假如您下载了一个WORD文档,里面的文字有很多的超级链接属性,那么,我们如何能批量操作,一次性把所有超级连接属性全部删除,只留文字呢? 操作方法 01 如下图,假设文档有2处存在超级链接属 ...