Как удалить одинаковые слова?

Может, я  ошибаюсь  (тогда компетентные товарищи поправят), но программы для решения вашей специфической проблемы нет.

Все существующие программы сравнения файлов  предназначены,   как правило, для визуального сравнения
(текстов программ, версий документов и т. п.). Несовпадения (различия) выделяются цветом.
К тому же ваша проблема не сводится к сравнению файлов.
Вам надо писать  собственную программу.
Алгоритм примерно следующий:
1 Составляете  отсортированный список (без дубликатов) всех слов первого документа.
2 Аналогично для второго документа.
3 Далее в цикле:
- берете очередное слово из первого списка и   проверяете, есть ли оно во втором списке.
Если да,  удаляете из обоих списков и  помещаете его в выходной файл совпадающих слов. 
Если нет, ничего не делаете, переходите к следующему слову.

Имхо,   третий пункт проще всего реализуется с помощью какой-нибудь СУБД.
В БД надо будет  создать две таблицы и загрузить в них  списки слов из пункта 1 и 2.
Потом с помощью простых SQL-запросов можно будет выбирать интересующую информацию, например,
список   одинаковых слов
select  tab1.слово from tab1, tab2 where tab1.слово=tab2.слово;
Подобными запросами можно  получить список слов, присутствующих в  первом документе  и отсутствующих во втором,
и наоборот,  иcключить совпадающие слова  и т. п.

Спасибо, ребят, буду пробовать. Вот только я не знаю ни поисковых запросов, ни языков программирования, в том виде, в каком их надо бы знать. Я типа методом тыка делал. Но у меня получилось. Просто осталось малость, которую я не могу понять. Ну ладно, спасибо.
С уважением.

Вы об этом скрипте говорите:

Sub Macro1()

'специальные символы и подстановочные знаки
'в операциях поиска и замены MS Word 97/2000/XP
'http://artefact.lib.ru/design/text_khozyainov.shtml
'регулярное выражение - это образец текста
'который состоит из обычных символов и/или специальных метасимволов, описание:
'http://www.script-coding.com/WSH/RegExp.html#4
'http://www.script-coding.info/WSH/RegExp.html

'поиск и замена во всём документе
With ActiveDocument.Content.Find
'найти:
.Text = "(<[0-9A-Za-zА-ЯЁа-яё]@>)(*^m*)<\1>(*^m)"
'заменить:
.Replacement.Text = "\2\3\1^13"
'эта опция отвечает за поиск с использованием подстановочных знаков
'не работает когда установлено в положение False, или её нет вообще
'если установлена в положение True, тогда работает
.MatchWildcards = True
'заменить все
.Execute Replace:=wdReplaceAll
End With

End Sub

Я спорить не буду просто на 2010 вроде не работает???
Но я в нём особо не освоился