返回介绍

InvalidAddress 属性

发布于 2019-09-29 10:11:02 字数 1435 浏览 1043 评论 0 收藏 0

如果为 True,Microsoft Word 会标记邮件合并数据源(如果该数据源包含地址域中无效的数据)中的记录。Boolean 类型,可读写。

expression.InvalidAddress

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

说明

使用 SetAllErrorFlags 方法可设置数据源中所有记录的 InvalidAddress 和 InvalidComments 属性。

示例

本示例循环查看邮件合并数据源中的记录,检查邮政编码域包含的数字(本例中域包含六位数字)是否少于五位数字。如果某记录包含少于五位数字的邮政编码,则从邮件合并中排除该记录,并将该地址标记为无效。

Sub ExcludeRecords()

    Dim intCount As Integer

    On Error Resume Next

    With ActiveDocument.MailMerge.DataSource
        .ActiveRecord = wdFirstRecord
        Do
            intCount = intCount + 1
            'Counts the number of digits in the postal code field and if
            'it is less than 5, the record is excluded from the mail merge,
            'marked as having an invalid address, and given a comment
            'describing why the postal code was removed
            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

            .ActiveRecord = wdNextRecord
        Loop Until intCount >= .ActiveRecord
    End With

End Sub

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文