Foros del web, para los que viven de bits

Un amigo está realizando un curso de ofimática. Dentro de los ejercicios avanzados le ha propuesto uno que nos trae de cabeza. Tenemos una lista de la compra escrita en word, con elementos que se repiten y otros que no, tipo:

alubias

cerveza

alubias

carne

El ejercicio consiste en hacer una macro que elimine los items que estén repetidos y, una vez que sólo queden los diferentes, cuente cuántos hay.

¿Alguna sugerencia para hacer la macro? Es que estamos perdidos completamente. Somos newbies

Muchas gracias!

nadie sabe?

Para borrar algo así:

Sub Macro1()

Dim str As String

Dim docActive As Document
Dim rng As Range
Dim nw As Integer

Set docActive = ActiveDocument
nw = ActiveDocument.Words.Count
i = 1

ciclo:
If i >= nw - 1 Then Exit Sub

str = docActive.Words(i)

If str <> Chr(13) Then
Set rng = docActive.Range(Start:=docActive.Words(i + 1).Start, _
End:=docActive.Words(nw).End)
rs = rng.Find.Execute(FindText:=str, Forward:=True, ReplaceWith:="", _
Replace:=wdReplaceAll, MatchWholeWord:=True)
nw = ActiveDocument.Words.Count
Set rng = Nothing
End If

i = i + 1

GoTo ciclo

End Sub