Программа для удаления повторяющихся слов

Sub q()
Dim s As String, v As Variant
' считываем файл
    Open "C:\1.txt" For Input As #1: s = Input(LOF(1), 1): Close #1
    v = Split(s, vbCrLf)
' Открываем файл для записи
    Open "C:\1.txt" For Output As #1
 
' что-то с ним делаем и закрываем
 
    Close #1
End Sub

With New Collection
        On error resume next
        do while x=0 to Ubound(ArrAllWord)
            .Add ArrAllWord(x), CStr(ArrAllWord(x))
            If err.number = 0 Then
                ArrUniqueOnly(y) = ArrAllWord(x): y = y + 1
            Else: err.clear
            End If
        x=x+1
        loop
    End With

Option Explicit
 
Sub tt()
    Dim w
    With CreateObject("scripting.dictionary")
        For Each w In ThisDocument.Words
            If Len(Trim(w.Text)) > 1 Then
                If Not .Exists(LCase(w)) Then .Item(LCase(w)) = 0 Else w.Delete
            End If
        Next
    End With
End Sub

If Len(Trim(w.Text)) >= 1 Then

Sub tt()
    Dim w
    With CreateObject("scripting.dictionary")
        For Each w In ThisDocument.Words
            If Len(Trim(w.Text)) >= 1 Then
                If Not .Exists(Trim(LCase(w))) Then
                .Item(Trim(LCase(w))) = 0
                Else
                If Trim(w.Text) <> Chr(13) Then
                If InStr(1, ",.;:!?-=\/", ThisDocument.Range(w.End, w.End + 1).Text) > 0 Then
                ThisDocument.Range(w.End, w.End + 1).Text = ""
                End If
                w.Delete
                End If
                End If
            End If
        Next
    End With
End Sub

Sub tt()
    Dim w As Range
    With CreateObject("scripting.dictionary")
        For Each w In ThisDocument.Words
            If Trim(w.Text) <> Chr(13) Then
                If InStr(1, ",.;:!?-=\/", Trim(w.Text)) = 0 Then
                    If Not .Exists(Trim(LCase(w))) Then
                        .Item(Trim(LCase(w))) = 0
                    Else
                        If InStr(1, ",.;:!?-=\/", ThisDocument.Range(w.End, w.End + 1).Text) > 0 Then
                            ThisDocument.Range(w.End, w.End + 1).Text = ""
                        End If
                        w.Delete
                    End If
                End If
            End If
        Next
    End With
End Sub

Not .Exists(Trim(LCase(w)))

Not .ExistsTrimLCasew)))