Propiedad MailMergeDataSource.InvalidComments (Word)
Si la propiedad InvalidAddress es True, devuelve o establece una cadena describe un error de dirección no válida. Lectura y escritura.
Sintaxis
expresión. InvalidComments
Expresión Variable que representa un objeto 'MailMergeDataSource'.
Comentarios
Utilice el método SetAllErrorFlags para establecer las propiedades InvalidAddress e InvalidComments para todos los registros de un origen de datos.
Ejemplo:
En este ejemplo, se recorren los registros del origen de datos de una combinación de correspondencia y se comprueba si el campo de código postal (en este caso, el número de campo seis) contiene menos de cinco dígitos. Si un registro tiene un código postal de menos de cinco dígitos, se excluye de la combinación de correspondencia, la dirección se marca como no válida y se incluye un comentario sobre el motivo de la exclusión.
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 fewer 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" & _
"has fewer than five digits. It will be" & _
"removed from the mail merge process."
End If
.ActiveRecord = wdNextRecord
Loop Until intCount >= .ActiveRecord
End With
End Sub
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de