Delete duplicate entries in a word list

Hi, you could use excel to do it.

http://office.microsoft.com/en-us/excel/HA010346261033.aspx

Hope it helps.

Blaise

You could use the free uniq.exe program, available here:

http://openetwork.com/berk.html

@irudyk

I've seen/experience problems trying to iterate a collection while deleting items(s) from the collection.

==========================
I think the fastest method uses a collection.  (see snippet)

There are a few methods of replacing the text with the ordered font names.  I've included two flavors to illustrate.  Depending on the size and number of strings, you might find that concatenation slows noticably.  The second routine substitutes I/O for concatenation.  I've mitigated this effect by suspending screen refreshing.

Sub UniqueFonts()
    Dim colFonts As New Collection
    Dim pThing As Paragraph
    Dim vUniqueFont As Variant
    Dim sFonts As String
    
    On Error Resume Next
 
    For Each pThing In Selection.Paragraphs
        colFonts.Add pThing.Range.Text, pThing.Range.Text
    Next
 
    For Each vUniqueFont In colFonts
        sFonts = sFonts & vUniqueFont
    Next
    Selection.Text = sFonts
End Sub
 
=====================================
Sub UniqueFonts_NoConcat()
    Dim colFonts As New Collection
    Dim pThing As Paragraph
    Dim vUniqueFont As Variant
    Dim sFonts As String
    
    On Error Resume Next
    
    For Each pThing In Selection.Paragraphs
        colFonts.Add pThing.Range.Text, pThing.Range.Text
    Next
 
    Application.ScreenUpdating = False
    Selection.Text = vbNullString
    For Each vUniqueFont In colFonts
        Selection.InsertAfter vUniqueFont
    Next
    Application.ScreenUpdating = True
End Sub

Select allOpen in new window

Hey irudyk: Great code, superfast and just a couple of lines.
Thank you very much. Regards, Andreas