Word VBA教程:InvalidAddress属性

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

expression.InvalidAddress

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

说明

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号