Nombres Repetidos

Compumakro escribió:

Amigos de Word2003
En un listado de inscritos... como +3000 Despues de cerrar las
listas... ¿Cómo detectar automáticamente los repetidos?
Agradezco dfe antemano su cooepración.
Gracias y saludos
Oscar

Hola Oscar :)

Bien suponiendo que los nombres y/o mas apellidos esten uno debajo de
otro, prueba con algo como esto:

'[]

Private Sub Document_Close()

Dim x As Long
Dim y As Long



If ActiveDocument.Paragraphs.Count > 1 Then
Selection.Sort SortOrder:=wdSortOrderAscending
End If

For x = 1 To ActiveDocument.Paragraphs.Count
For y = x + 1 To ActiveDocument.Paragraphs.Count
If ActiveDocument.Paragraphs(x).Range.Text = _
ActiveDocument.Paragraphs(y).Range.Text Then
ActiveDocument.Paragraphs(y).Range.Delete
y = y - 1
If y = ActiveDocument.Paragraphs.Count Then Exit Sub
Else
Exit For

End If

Next

Next


End Sub

'[]

Pones el codigo en [ Thisdocument ] al cerrar habra eliminado los
duplicados perooo si estan uno debajo de otro osease en lista :)

Prueba y nos comentas ok? :)

Saludos
Monica


Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com