返回介绍

Included 属性

发布于 2019-09-29 10:10:58 字数 1751 浏览 1010 评论 0 收藏 0

如果为该属性值为 True,则在邮件合并中包含记录。Boolean 类型,可读写。

expression.Included

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

说明

使用 SetAllIncludedFlags 方法在邮件合并数据源中包括或排除所有记录。

示例

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

Sub CheckRecords()

    Dim intCount As Integer

    On Error Resume Next

    With ActiveDocument.MailMerge.DataSource

        'Set the active record equal to the first included record
        ' in the data source
        .ActiveRecord = wdFirstRecord
        Do
            intCount = intCount + 1

            'Set the condition that field six must be greater than
            'or equal to five
            If Len(.DataFields(6).Value) < 5 Then

                'Exclude the record if field six is less than five
                .Included = False

                'Mark the record as containing an invalid address field
                .InvalidAddress = True

                'Specify the comment attached to the record
                'explaining why the record was excluded
                'from the mail merge
                .InvalidComments = "The zip code for this record " & _
                    "is less than five digits. It will be removed " _
                    & "from the mail merge process."

            End If

            'Move the record to the next record in the data source
            .ActiveRecord = wdNextRecord

        'End the loop when the counter variable equals the
        'number of records in the data source
        Loop Until intCount = .RecordCount
    End With

End Sub

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

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

发布评论

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